Visual Basic - Ayuda con búsqueda en bd

Life is soft - evento anual de software empresarial
 
Vista:

Ayuda con búsqueda en bd

Publicado por Josefé (8 intervenciones) el 18/08/2004 22:51:38
Hola a todos/as.-

Tengo un data, dos text, un command y un dbgrid.

Tengo conectada la bd de la siguiente forma:

Data1.DatabaseName = App.Path & "\bd1.mdb"
Data1.RecordSource = "Select * From Tabla1 order by Campo1"

Text1.DataField = "campo1"

Ahora cuando cuando quiero buscar algo lo hago de la siguiente forma

Private Sub Command1_Click()
Dim nreg As Long
nreg = Val(Text2.Text)
Data1.Recordset.FindFirst "Campo1 like '" & Text2.Text & "'"
If Data1.Recordset.NoMatch Then
MsgBox ("No se ha encontrado ningún registro que coincida con el criterio de búsqueda")
Exit Sub
End If
End Sub

Y me muestra el primer registro que coincide, pero lo que necesito es que me llene un dbgrid con todos los registros que coincidan con el criterio de búsqueda.

Pregunta ¿Se puede hacer?, ¿Como sería el código?

Gracias de antemano.-
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Ayuda con búsqueda en bd

Publicado por ALH76 (278 intervenciones) el 19/08/2004 00:07:29
Hasta donde se, con el metodo FindFirst no podras realizar lo q deseas, ya q solo encontrara un registo, puedes realizarlo haciendo un bucle y utilizando el metodo Findnext, pero te recomiendo q utilices una sentencia SQL, es mucho mas rapida y funcional...con menos codigo...

Te muestro un ejemplo:
Dim SentenciaSQL As String
SentenciaSQL = "Select TuCampo From TuTabla Where TuCampo Like "
SentenciaSQL = SetenciaSQL & "'" & Text2.Text & "'"

Data1.RecordSource = SentenciaSQL
Data1.Refresh

La sentencia sql es guardada en una variable del mismo nombre y luego solo igualas el valor a la propiedad RecordSource de tu BD, espero q te sirva de algo este pequeño ejemplo.

Saludos!!!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Ayuda con búsqueda en bd

Publicado por tecniCam (186 intervenciones) el 19/08/2004 20:36:47
En plan coloquial...
1.- FindFirst
2.- Haces un bucle y:
* principio bucle
poner en el Grid
FindNext
y así hasta que llegues al final y sales del bucle
* volver principio bucle

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

FIND

Publicado por tecniCam (186 intervenciones) el 19/08/2004 20:39:02
recordset.{FindFirst | FindLast | FindNext | FindPrevious} criterios

Son, en este orden:
Primero, último, próximo y anterior.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar