Foros del Web - Realizar busqueda desde un textBox

Foros del Web (http://www.forosdelweb.com/)

- Visual Basic clásico (http://www.forosdelweb.com/f69/)

- - Realizar busqueda desde un textBox (http://www.forosdelweb.com/f69/realizar-busqueda-desde-textbox-302152/)

Dalr	26/05/2005 16:23

Realizar busqueda desde un textBox

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 :arriba:

xcars

26/05/2005 16:28

Cita:

Iniciado por Dalr

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	26/05/2005 16:33

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

xcars

26/05/2005 16:45

Cita:

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 :adios:

Dalr	26/05/2005 16:51

:-( upps gracias de todos modos......

erkillo

27/05/2005 02:54

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

27/05/2005 05:26

Cita:

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	27/05/2005 14:45

:-( ......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

:no:
rsRecordset.Open strSql, oConexion, adOpenStatic, adLockOptimistic

sdemingo

30/05/2005 03:19

Cita:

Iniciado por Dalr

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

erkillo

31/05/2005 02:39

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. ;-)

La zona horaria es GMT -6. Ahora son las 00:33.