ayuuuuuuuuuuddddddddddddddddddddaaaaaaaaaaa

Doggie
05 de Mayo del 2004
Tengo un mes tratando de como buscar una persona por un codigo asignado, cuando ponga ese codigo en un text aparesca el resto de los datos en otros text
este es codigo que tengo pero no me sale nada..
Option Explicit
Dim Base As DAO.Database
Dim Combo As DAO.Database
Private Sub Text1_Text()
Conjunto = "Select * from Datos where Codigo = " & Text1.Text
Text2.Text = Combo.Fields(Nombre)

Doggie
05 de Mayo del 2004
.

lorrich
05 de Mayo del 2004
Te lo comento con ADODB que es con lo que trabajo.

Option Explicit

Dim conecta As New ADODB.Connection
Dim rst As New ADODB.Recordset

'esto es para una base de datos en access 2000, si utilizas otra base de datos seria otra cadena
conecta.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "CRJ.mdb;Persist Security Info=False"

conecta.Open

rst.LockType = adLockOptimistic
rst.CursorLocation = adUseClient
rst.CursorType = adOpenStatic
rst.ActiveConnection = conecta

rst.open "Select * from Datos where Codigo = " & cint(Text1.Text)

text2.text=rst!nombre

rst.close
conecta.close

Espero que con esto te sirva, si quieres me puedes añadir al messenger para que te pueda ayudar mas rapido.