Visual Basic - combobox y BD

Life is soft - evento anual de software empresarial
 
Vista:

combobox y BD

Publicado por Buka (94 intervenciones) el 03/11/2003 23:45:42
hola programadores,
Hace tiempo que no hago esto y se me olvido, necesito cargar un combobox con los datos de una tabla de mi base de datos, mi base de deatos se llama siv (en ACCES), la tabla se llama (condominios) y el campo que necesito es no_condominio, y el combo se llama cbcondominio, la verdad es que ni siquiera me acuerdo como hacer la conexion ni abrir la base de datos desde el codigo fuente. seria alguien tan amable y tuviera el tiempo de ayudarme a realizar este codigo?, si me dan el codigo generico me aordare facilmente.

De antemano muchisimas gracias!!

Buka
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:combobox y BD

Publicado por Carlos Mtz. (39 intervenciones) el 04/11/2003 03:39:45
Lo puedes hacer con un bucle Do
Seria algo así...

On Error GoTo DatosError
Dim BaseDatos As Database, RecordsetDatos As Recordset
Set BaseDatos = Workspaces(0).OpenDatabase("RutaDeAcceso")
Set RecordsetDatos = BaseDatos.OpenRecordset("Condominios")
Do
cbcondominio.AddItem Recordset!no_condominio
RecordsetDatos.MoveNext
Loop
DatosError:
If Err.Number <> 0 Then
Aqui debes controlar el error que te produce por no haber registros
activos cuando llega a EOF
End If

Claro que para que esto funcione primero debes agregar a tu proyecto la referencia de Microsoft DAO
Espero que te sirva. Suerte !
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