Buscar registros de tablas de base de datos

[matirojas]

hola amigo , yo estoy creando un sistema que guarda datos en unas tablas de base de datos , pero nececito que busque los datos , por ejemplo por nombre.
lo que queria saber es como hacer eso , si me pueden alcansar un codigo o decirme como , alguna pagina o algo .

saudos amigo :D:D

[zxs23]

Pon algo de codigo, como estas programando DAO con el control data, ADO utiilizando el control adodc o con recordset's, como esta tu conexion, etc.....

[matirojas]

la conecto con recorsets a una carpeta que hise , que contiene la base de datos

[fradve]

Pues trabaja con tus recorsets y consultas SQL:

Si el campo es numérico usa este:

Código vb:

res.Open "SELECT * FROM Tabla WHERE Campo=" & Valor
 

Si es una cadena, añades los apostrofes:

Código vb:

res.Open "SELECT * FROM Tabla WHERE Campo='" & Valor "'"
 

Si es una fecha, añades los signos numeral:

Código vb:

res.Open "SELECT * FROM Tabla WHERE Campo=#" & Valor & "#"
 

Y por ejemplo ese resultado lo muestras en un datagrid, asignandole tu recorset de esta manera:

Código vb:

Set DataGrid1.DataSource = res
 

Prueba para ver como te va con la consulta, y me comenta cualquier cosa...

[matirojas]

amigo , mira encontre un codigo pero cuando escribo el nombre de la busqueda , se cierra la ventana de busqueda y no pasa nada :S , lo que quiero es que cuando termine de buscar , aparesca en un datagrid.

aca esta todo el codigo:

Código vb:

Private Sub fg_GotFocus()
 
End Sub
 
 
Private Sub Buscar_Click()
Dim buscado As String
Dim criterio As String
buscado = InputBox("Que nombre desea buscar?", "Buscar nombre...")
criterio = "Nombre like'*" & buscado & "*'"
Data1.Recordset.FindFirst (criterio)
If Data1.Recordset.NoMatch Then
cadena = "El registro " & buscado & " no existe"
MsgBox cadena, 64, "Resultado de la busqueda"
Data1.Recordset.MoveLast
Set DataGrid1.DataSource = res
End If
 
 
End Sub
 
Private Sub DataGrid1_Click()
 
Set DataGrid1.DataSource = res
 
End Sub
 

espero que me puedan ayudar amigos


saludos