lauris
21 de Diciembre del 2002

como puedo realizar una busqueda en visual a una base de datos y hacer que el resultado se arroje en un textbox

jos?
21 de Diciembre del 2002

Si usas un Control Data sería así:
Desde luego, el Data estará enlazado a la BD por medio de su propiedad DatabaseName y a la Tabla por RecordSource.

En código: (Puede ser en un CommandButton también)
Private Sub Consultar()
data1.recordset.movefirst
while not data1.recordset.EOF
if Text1.text = Data1.recordset("CampoID") then
Text1.text = data1.recordset("Campo")
Text2.text = data1.recordset("Campo2")
etc...
Exit Sub
End if
data1.recordset.movenext
Wend
msgbox"No se encontro nada bajo: " & Text1.text
End Sub

Si no es con un Data, entonces:
(usaremos la misma codificacion pero con una variable recordset)
Se pueden declarar en General: (Declaraciones)
Dim BD as Database
Dim Rs as Recordset

Y esto en el Load del Form para que abra la BD cada vez que se cargue a memoria:
Set BD = OpenDatabase("Ruta de la BD")
Set Rs = BD.OpenRecordset("Sentecia SQL")

Rs.MoveFirst
While Not Rs.EOF
If Text1.text = Rs!CampoID Then
text1.text = Rs!Campo
text2.text = Rs!Campo2
etc...
Exit Sub
End If
Rs.MoveNext
Wend
Msgbox"No se encontro nada bajo: " & Text1.text

Siendo el Text1.Text el TextBox en el cual hay que colocar el CampoID para uscar en la BD.