Visual Basic - Llenar Combobox

Life is soft - evento anual de software empresarial
 
Vista:

Llenar Combobox

Publicado por Karla Casablanca (2 intervenciones) el 28/09/2006 18:18:48
Hola, mil disculpas por una pregunta que quizas resulte simple. Estoy aprendiendo de forma autodidacta a usar VB6. Tengo una base de datos en access 97 llamada "Ubigeo", en ella esta la tabla "Distritos" y en ella el campo "Ldist", que tiene 44 registros.

En VB6 tengo un formulario llamado "Presentacion" y en el he colocado un comobox llamado "comodist". Me gustaria saber el codigo que deberia usar para que al abrir el formulario se llene automaticamente con los 44 registros nombreado. Intente colocando un control "data" al formulario que asocie la base de datos pero me muestra solo un registro por vez. Gracias

Karla
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:Llenar Combobox

Publicado por Ricardo J. Marenco (8 intervenciones) el 28/09/2006 18:40:00
Hola Karlita....

Te envio el siguiente procedimiento a ver si te es util...

Declara una variable en formulario
ejemplo:

Dim rsAdo1 As New ADODB.Recordset

Luego llamas a una funcion que en este caso yo la tengo como
"LlenarDataCombos"

y la pasas como parametro, el rsAdo1
el nombre del DataCombo, en este caso "comodist"
y luego la consulta en este caso
SQL="Select ldist, descripcion from Distritos order by descripcion"

LlenarDataCombos rsAdoNivel1, Me.comodist, SQL, 0

La funcion es esta:

Sub LlenarDataCombos(ADO As ADODB.Recordset, DTC As DataCombo, SQL As String, LField As Integer)

Set ADO = New ADODB.Recordset

If ADO.State = 1 Then ADO.Close
ADO.Open SQL, cn, adOpenDynamic, adLockBatchOptimistic

Set DTC.RowSource = ADO
DTC.BoundColumn = ADO.Fields(LField).Name
DTC.ListField = ADO.Fields(LField + 1).Name

End Sub

Esto deberi de funcionarte...
Yo de esta forma lleno mis datacombos, es super facil y rapido..

Saludos,
Ricardo
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
Imágen de perfil de Abraham Valencia

RE:Llenar Combobox

Publicado por Abraham Valencia (55 intervenciones) el 28/09/2006 18:45:34
Hola Ricardo, muchas gracias por tu super rapida respuesta. un besote, cualquier duda te aviso.

Karla
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:Llenar Combobox

Publicado por Karla Casablanca (2 intervenciones) el 28/09/2006 18:49:33
Jajajaj, por apurada llene el encabezado con los datos de mi hermanito (materno). Ese pesado para metido en esta pagina pero se dedica al excel. Es un aburrido jijijiji.

Disculpen

Karla
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:Llenar Combobox

Publicado por LOLO (1 intervención) el 28/09/2006 23:04:32
jajajaj y cuantos hermanitos (maternos) más tenés.
porke seguro que (paternos) tendrés bastantes más porke ni en los apellidos os conoseis
debereis ser una familia muy feliz , juajuajua....
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