Foros del web, para los que viven de bits

Dalr · 26-may-2005, 16:23

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 · 26-may-2005, 16:28

Cita:

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 · 26-may-2005, 16:33

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

xcars · 26-may-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

Dalr · 26-may-2005, 16:51

upps gracias de todos modos......

erkillo · 27-may-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-may-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-may-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

rsRecordset.Open strSql, oConexion, adOpenStatic, adLockOptimistic

sdemingo · 30-may-2005, 03:19

Cita:

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 · 31-may-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.

26-may-2005, 16:23	#1 (permalink)
Dalr Fecha de Ingreso: mayo-2005 Mensajes: 7	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

30-may-2005, 03:19	#9 (permalink)
sdemingo Fecha de Ingreso: noviembre-2003 Ubicación: Madrid Mensajes: 109	Cita: 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... __________________ Lo importante no es saber, sino tener el teléfono del que sabe :risa:

Herramientas
Mostrar Versión Imprimible Enviar por Correo
Desplegado
Mode Lineal Cambiar a Modo Hibrido Cambiar a Modo Hilado

26-may-2005, 16:28	#2 (permalink)
xcars Fecha de Ingreso: mayo-2005 Mensajes: 570	Cita: 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.

26-may-2005, 16:33	#3 (permalink)
Dalr Fecha de Ingreso: mayo-2005 Mensajes: 7	Sorry me olvide, quiero trabajar con access 2000 y con objetos ado,

26-may-2005, 16:45	#4 (permalink)
xcars Fecha de Ingreso: mayo-2005 Mensajes: 570	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

26-may-2005, 16:51	#5 (permalink)
Dalr Fecha de Ingreso: mayo-2005 Mensajes: 7	upps gracias de todos modos......

27-may-2005, 02:54	#6 (permalink)
erkillo Fecha de Ingreso: abril-2005 Mensajes: 82	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

27-may-2005, 14:45	#8 (permalink)
Dalr Fecha de Ingreso: mayo-2005 Mensajes: 7	......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

31-may-2005, 02:39	#10 (permalink)
erkillo Fecha de Ingreso: abril-2005 Mensajes: 82	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.