Buscar en un datagrid

[xDie]

Hola como peudo hacer esto.. vi unso psot viejos de hacer sentencias sql y eso.. pero yo tengo un textbox y un boton buscar y un datagridd con toda un bd en access, queiro que me busque ahi com peudo hacer ???

[CeLaYa]

puedes hacerlo con una consulta sql, usando solo la caja de texto y el boton

Código [Seleccionar] Expandir



private sub Command1_Click()
dim Bd as database
dim Tb as database


set BD = workspaces(0).Opendatabase("c:\....\tu_BD")
set Tb =BD.OpenRecordset("SELECT * FROM Tabla " & _
                                         "WHERE Campo = '" & text1.text & "';")

If tb.Recordcount > 0 then
    'Encontro registros que cumplen la condición
else
    Msgbox "no encontre nada de nada"
end if

tb.close
set tb = nothing

BD.close
Set BD = Nothing


end sub


[CeLaYa]

o si estas usando un datacontrol pues le pones la consulta SQL y luego un Refresh

[xDie]

Como hago eso celaya? uso un datacontrol, lo que quiero es que me meustre el resultado en algun lado  gracias

[CeLaYa]

el datacontrol no lo uso, prefiero hacerlo con ADO, que en teoria seria lo mismo, mira más o menos esto es lo que hago:

Código [Seleccionar] Expandir


´Declaro variables para el acceso a la BD
dim BD as Database
dim Rd as RecordSet

'Abro la BD
Set BD = Workspaces(0).Opendatabase("c:\..\BD.mdb", Lectura, Excritura, Password)
'Abro la tabla o en este caso hago un filtrado
set Rd = BD.OpenRecordset("SELECT * FROM Tabla WHERE Campo = '" & text1.text & "';")
'Checo si encontro registros
if Rd.RecordCount > 0 then
   ' Encontro registros
else
   ' msgbox "No hay registros para mostrar"
end if
'Cierro la tabla y la BD
Rd.close
BD.close

'Libero memoria
set Rd = nothing
set BD = nothing




aunque creo que con el data lo podrías hacer más o menos asi

Código [Seleccionar] Expandir



data1.DabaseName = "tuBD.mdb"
data1.RecordSource = "Tabla"
data1.refresh


If Data1.Recordset.RecordCount > 0 Then
   data1.Recordset.FindFirst "Campo1 = '" & text1.text & "'"
   if data1.Recordset.NoMatch then
      msgbox "no hay registros que mostrar"
   else
      'encotro unos registros
   end if
end if



alguna vez use el datacontrol pero luego se me hizo mejor usar variables para lo que estaba haciendo