Visual Basic - URGENTE::COMBO BOX

Life is soft - evento anual de software empresarial
 
Vista:

URGENTE::COMBO BOX

Publicado por nestor (94 intervenciones) el 04/05/2006 21:26:01
Mi base de datos es Access.
No sé la manera de ingresar informacion al COMBO BOX a partir de la tabla CLIENTE y en el COMOBOBOX debe contener todo lo que el CAMPO NOMBRE de la TBALA CLIENTE.

MUCHAS GRACIAS A TODOS
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:URGENTE::COMBO BOX

Publicado por Eduardo (67 intervenciones) el 04/05/2006 22:25:28
Hola, bueno quisas este codigo te pueda servir. Todo lo q esta en MAYUSCULA debes cambiar x datos de la tabla, estoy utilizando ADO( tienes q agregar una referencia, para esto debes ir al menu proyecto--->referencias, en la lista escoges el control llamado "Microsoft DAO 3.6 object Library")

Set WS = DBEngine.Workspaces(0)
DbFile = (App.Path & "\BASE DE DATOS.MDB")
PwdString = "CONTRASEÑA"
Set dB = DBEngine.OpenDatabase(DbFile, False, False, ";PWD=" & PwdString)
Set rs = dB.OpenRecordset("TABLA", dbOpenTable)
Max = rs.RecordCount
rs.MoveFirst
combo1.Clear
For i = 1 To Max
combo1.AddItem rs!CAMPO DE LA TABLA
rs.MoveNext
Next i

EJEMPLO: esta codigo carga los apellidos de una tabla llamada computacion.

Set WS = DBEngine.Workspaces(0)
DbFile = (App.Path & "\DatosP.mdb")
PwdString = "caja"
Set dB = DBEngine.OpenDatabase(DbFile, False, False, ";PWD=" & PwdString)
Set rs = dB.OpenRecordset("Computacion", dbOpenTable)
Max = rs.RecordCount
rs.MoveFirst
combo1.clear
For i = 1 To Max
combo1.AddItem rs!Apellidos
rs.MoveNext
Next i

bueno espero q te sriva el codigo, saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar