elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Recuerda que debes registrarte en el foro para poder participar (preguntar y responder)


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Hacer una búsqueda en visual Basic enlasado con una BD de access
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Hacer una búsqueda en visual Basic enlasado con una BD de access  (Leído 4,362 veces)
mandracke

Desconectado Desconectado

Mensajes: 2


Ver Perfil
Hacer una búsqueda en visual Basic enlasado con una BD de access
« en: 24 Junio 2007, 20:58 pm »

Pues bien esa es la cuestion necesito hacer una busqueda, mi programa esta enlasado a un abase de datos, y lo que quiero hayr es que si pordecir la matricula o CURP, ya existe pues que envie un mesaje que ya esta registrada.

Por lo pronto lo que me interesa es hacer la busqueda ya llevo rato tratando de hacerlo pero nadamas no encuentro la solucion, este es lo que llevo del codigo para la accion que quiero realisar.


Private Sub cmdconsultar1_Click()
InputBox ("Proporcione la CUPR")
Data1.Recordset.MoveFirst
Do
 
Data1.Recordset.MoveNext
Loop Until Data1.Recordset.EOF



una ves ya lo habia echo y se que se puede es de una forma muy sencilla, pero lamentablemente, deje de oprogramar un tiempo y se me ha olvidado y la carpeta donde tenia eso se trono el discoduro  y pues se perdio todo.

Espero me ayuden un saludo cordial


« Última modificación: 24 Junio 2007, 23:34 pm por mandracke » En línea

mandracke

Desconectado Desconectado

Mensajes: 2


Ver Perfil
Re: Hacer una búsqueda en visual Basic
« Respuesta #1 en: 24 Junio 2007, 23:32 pm »

Perdonen el post doble, pero es que ya he encontrado la solucion, a  lo de la busqueda y espero que dejen este post fjo o algo asi, ya que yo en lo personal busque y busque en demaciados foros y no hay un ejemplo de como hacerlo, asi que les dejo como lo he solucionado.


Private Sub cmdconsultar1_Click()

buscar = InputBox("proporcione la curp")
Data1.Recordset.MoveFirst
Do
If buscar = txtcurp1.Text Then
Exit Sub
End If

If buscar <> txtcurp1.Text Then
cmdconsultar1.Enabled = True
cmdconsultar1.Visible = True
End If

Data1.Recordset.MoveNext
Loop Until Data1.Recordset.EOF



End Sub


En línea

Hans el Topo


Desconectado Desconectado

Mensajes: 1.754


"Estoy cansado de no hacer nada"


Ver Perfil WWW
Re: Hacer una búsqueda en visual Basic enlasado con una BD de access
« Respuesta #2 en: 25 Junio 2007, 01:49 am »

cosas más raras haces xD


Código:
Private Sub cmdconsultar1_Click()

buscar = InputBox("proporcione la curp")
Data1.Recordset.findfirst "curp='" & buscar & "'"
'pedimos el dato hasta que no sea repe
while data1.recordset.nomatch
    msgbox("el curp ya existe")
    buscar = InputBox("proporcione la curp")
   Data1.Recordset.findfirst "curp='" & buscar & "'"
wend
'ya tienes el dato correcto

End Sub

también puedes así...

Código:
Private Sub cmdconsultar1_Click()

buscar = InputBox("proporcione la curp")
Data1.Recordsource="select blablablbal from tablablalbabal where curp='" & buscar & "'"
data1.refresh
'pedimos el dato hasta que no sea repe
while not data1.eof
    msgbox("el curp ya existe")
    buscar = InputBox("proporcione la curp")
    Data1.Recordsource="select blablablbal from tablablalbabal where curp='" &    buscar & "'"
   data1.refresh
wend
'ya tienes el dato correcto

End Sub

P.D. por si no ta quedao claro te agrego la ayuda

Citar
FindFirst, FindLast, FindNext, FindPrevious (Métodos)

Buscan el primero, último, siguiente o anterior registro de un objeto Recordset de tipo Dynaset o Snapshot que cumpla el criterio especificado y lo convierte en el registro activo (sólo espacios de trabajo Microsoft Jet).

Sintaxis

recordset.{FindFirst | FindLast | FindNext | FindPrevious} criterios

Los métodos Find utilizan los siguientes argumentos.

Argumento   Descripción
recordset   Una variable de objeto que representa un objeto Recordset existente de tipo Dynaset o Snapshot.
criterios   Un tipo de datos  String utilizado para localizar el registro. Es como la cláusula WHERE en una instrucción SQL, pero sin la palabra WHERE.
Comentarios

Si desea incluir todos los registros en la búsqueda - no sólo aquellos que cumplan un condición específica - utilice los métodos Move para pasar de un registro a otro. Para localizar un registro en un Recordset de tipo Table, utilice el método Seek.
Si no se localiza un registro que coincida con los criterios, el puntero del registro activo será indeterminado y la propiedad NoMatch será True. Si recordset contiene más de un registro que satisfaga el criterio, FindFirst localizará la primera aparición, FindNext localizará la segunda, etc.

Cada método Find comienza a buscar desde la posición y en la dirección especificadas en la siguiente tabla:

Métodos Find    
Comienzo   Dirección de búsqueda
FindFirst   Comienzo del recordset   Fin del recordset
FindLast   Fin del recordset   Comienzo del recordset
FindNext   Registro activo   Fin del recordset
FindPrevious   Registro activo   Comienzo del recordset

Copyright (c) 1996 Microsoft Corporation
« Última modificación: 25 Junio 2007, 01:51 am por Hans el Topo » En línea

Red Mx
Rojito
Colaborador
***
Desconectado Desconectado

Mensajes: 3.649


Viva México Cabrones...


Ver Perfil WWW
Re: Hacer una búsqueda en visual Basic enlasado con una BD de access
« Respuesta #3 en: 25 Junio 2007, 02:15 am »

amen
En línea

Desarrollar Malware Es Causa De Cancer...
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
COmo hacer grafico en Access
Software
_CrisiS_ 3 3,862 Último mensaje 21 Abril 2011, 06:08 am
por _CrisiS_
Hacer select de Access 2007 en Visual Basic
.NET (C#, VB.NET, ASP)
Rivax 1 1,981 Último mensaje 7 Diciembre 2013, 12:23 pm
por MCKSys Argentina
[ayuda] BD ¿cómo hacer una busqueda en BD
PHP
american 2 1,370 Último mensaje 30 Noviembre 2016, 17:12 pm
por zikotik
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines