Visual Basic - Combos y bases de datos

Life is soft - evento anual de software empresarial
 
Vista:

Combos y bases de datos

Publicado por Jhonatan (5 intervenciones) el 16/04/2008 18:22:05
El problema que tengo es el siguiente:

A) Tengo una base de datos en Access con dos Campos (Matricula , Nombre, fecha de nacimiento, etc)
B) Quiero obtener los datos del campo "Nombre" en un Combo para poder desplegarlos.
Es urgente su apoyo, gracias
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:Combos y bases de datos

Publicado por niwdeloko (8 intervenciones) el 16/04/2008 18:26:40
mira yo utilizo esta funcion si te sirve:
t = ' la tabla de la base de datos
c = el combo
col = la columna osea el numero de campo de tu tabla
con = mi variable tipo conexion

para tu caso seria call cargarcombo("tabla",combo1,1)

Public Sub CargarCombo(T As String, C As ComboBox, COL As Integer)
Dim SQLC As String
Dim res As New Recordset
Dim I As Integer

SQLC = "SELECT * FROM " + T
res.Open SQLC, CON, adOpenDynamic, adLockOptimistic
If res.BOF Then
Else
res.MoveFirst
C.Clear
Do While Not res.EOF
If IsNull(res(COL).Value) Then
C.AddItem ""
Else
C.AddItem res(COL).Value
End If

res.MoveNext
Loop
End If
res.Close
Set res = Nothing
End Sub

saludos espero te sirva
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

RE:Combos y bases de datos

Publicado por Jhonatan (5 intervenciones) el 17/04/2008 18:13:01
Excelente mi hermano, te agradezco el codigo y el tiempo para ayudarme, ya lo cheque y ya lo hice funcionar,

Un abrazo
Jhonatan
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