Realizar busqueda desde un textBox

[Dalr]

Hola amigos, soy nuevo en VB espero alguien me responda, lo q deseo hacer es ingresar en un textBox un dato por ejemplo CODIDO y q me llene un formulario con los datos de dicho codigo ...... Gracias

[xcars]

Iniciado por Dalr

Hola amigos, soy nuevo en VB espero alguien me responda, lo q deseo hacer es ingresar en un textBox un dato por ejemplo CODIDO y q me llene un formulario con los datos de dicho codigo ...... Gracias

ok, antes de empezar, con que vas a trabajar?? sql, mysql, access? esto te lo pregunto pk cada uno tiene variaciones, no es muy complicado no te preocupes y cuando respondas esta pregunta, con mucho gusto te ayudo, ok.

[Dalr]

Sorry me olvide, quiero trabajar con access 2000 y con objetos ado,

[xcars]

Iniciado por Dalr

Sorry me olvide, quiero trabajar con access 2000 y con objetos ado,

uimm lo siento access no es mi fuerte, trabajo con SQL asi qeu no puedo ayudarte y no me atreveria decirte como lo hago con SQL pk no vaya a ser que te confunda lo siento

[Dalr]

upps gracias de todos modos......

[erkillo]

yo he trabajado con access y ado y es muy facil. Conoces algo de ado???? lo digo para decirte desde cero o si ya lo conoces, ir directamente a como conectarte a la base de datos

[sdemingo]

Iniciado por Dalr

upps gracias de todos modos......

Primero agrega la referencia Microsoft ActiveX data Objects

luego...

Código:

Dim oConexion As New ADODB.Connection
Dim rsRecordset As New ADODB.RecordSet
Dim strSql As String

oConexion.Provider = "Microsoft.Jet.OLEDB.4.0"
oConexion.Open "c:\maseDatos.mdb"

strSql = "Select * From Tabla where CODIGO = '" & Text1.Text & "'"
rsRecordset.Open strSql, oConexion, adOpenStatic, adLockOptimistic

If rsRecordset.RecordCount <> 0 Then
      .........aki rellenas tus campos.........
      Text2.Text = rsRecordset(0)
      Text3.Text = rsRecordset(1)
      ..................................................
Endif

rsRecordset.Close
oConexion.Close

[Dalr]

......lo intente pero no se q estare haciendo mal xq sale error en el metodo open del recordset y se sombrea la siguiente linea de codigo


rsRecordset.Open strSql, oConexion, adOpenStatic, adLockOptimistic

[sdemingo]

Iniciado por Dalr

......lo intente pero no se q estare haciendo mal xq sale error en el metodo open del recordset y se sombrea la siguiente linea de codigo


rsRecordset.Open strSql, oConexion, adOpenStatic, adLockOptimistic

pon aki tu código a ver que está pasando...

[erkillo]

eso te pasa porque has intentado hacer una consulta con el recordset cuando este estaba ya abierto. Por eso te da ese error. Para arreglar eso, antes de realizar cualquier consulta pon esto:

If rs.State = 1 Then
rs.Close()
End If

Y si el fallo es el que yo pienso, se te arregla.