Cargar campos en un combobox vb6.0

[flashtkd]

hola uso el programa visual basic 6.0 con base de datos access y tipo de coneccion (ADO = ActiveX Data Objects)

La base de datos de llamas: datos
La tabla: personas
Campo: nombres

La idea es que cargue el campo "nombres" en el combo1



Codigo:

Option Explicit

Public cn As ADODB.Connection
Public rst As ADODB.Recordset

Sub Conectar()

' Crea una nueva conexión y un recordset
Set cn = CreateObject("ADODB.Connection")
Set rst = CreateObject("ADODB.Recordset")

rst.CursorLocation = adUseClient
' abre la base de datos
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
App.Path & "\datos.mdb" & ";Persist Security Info=False"

End Sub

Sub Desconectar()
rst.Close
cn.Close

Set rst = Nothing
Set cn = Nothing
End Sub

' A partir desde aqui no funciona el codigo
Private Sub Form_Load()

Call Conectar

' abre el recordset
rst.Open "Select * from empleados, cn, adOpenStatic, adLockOptimistic"

' Muestra los datos en el FlexGrid
Set Combo1.DataSource = rst
Set Combo1.DataMember= rst


End Sub



Saludos

[Avellaneda]

Modifica las comillas en esta instrucción, así:

rst.Open "Select * from empleados", cn, adOpenStatic, adLockOptimistic

y elimina estas dos líneas
Set Combo1.DataSource = rst
Set Combo1.DataMember= rst

y pon esto:

Do Until rs.EOF
Combo1.AddItem rst!nombres
Loop

[franko1809]

Que tal necesito realizar lo mismo probe el ejemplo y no funciona
Do Until rst.EOF
Combo1.AddItem rst!nombres
Loop

Se cuelga el programa, seguro hace un bucle infinito algo asi, como lo soluciono

[Avellaneda]

Iniciado por franko1809

Que tal necesito realizar lo mismo probe el ejemplo y no funciona
Do Until rst.EOF
Combo1.AddItem rst!nombres
Loop

Se cuelga el programa, seguro hace un bucle infinito algo asi, como lo soluciono

Que tal, unas preguntas:

¿Has declarado y abierto el recordset?, ¿se llama rst?

¿Hay un campo de la tabla, a la que enlazaste el recordset, que se llame nombres?

Do Until rst.EOF
Combo1.AddItem rst!nombres
rst.MoveNext
Loop

[franko1809]

gracias tio faltaba en movenext por eso colapsaba

Código:

Dim rsCargo As Recordset

Private Sub Form_Load()
Set rsCargo = New Recordset
rsCargo.Open "SELECT * FROM cargo", dbConex, adOpenStatic, adLockOptimistic
'cargamos el datagrid
Set DataGrid1.DataSource = rsCargo
DataGrid1.MarqueeStyle = 4
End Sub

Private Sub Command1_Click()
Do Until rsCargo.EOF
'Combo1.AddItem rsCargo(1)
Combo1.AddItem rsCargo!nomcargo
rsCargo.MoveNext
Loop
End Sub

saludos