Visual Basic - Llamar datos de una tabla a una Combobox

Life is soft - evento anual de software empresarial
   
Vista:

Llamar datos de una tabla a una Combobox

Publicado por Tomas (4 intervenciones) el 17/09/2014 22:36:05
Ojala me puedan ayudar

Mi situacion es esta Llame datos de una tabla a un Combobox para que segun yo en otro formulario estuviera agragando los clientes me apareciera esa lista de clientes actualizada para escogerla y guardar.

En fin use esto con un DATA 1 es fue el codigo en el Form load

1
2
3
4
5
6
7
8
Set Base = OpenDatabase(App.Path & "\Montos.mdb", False, False, "")
SentenciaSQL = "Select *from MONTOS"
Set Datos1 = Base.OpenRecordset(SentenciaSQL)
Do While Datos1.EOF = False
    Combo5.AddItem Datos1(2).Value
    Datos1.MoveNext
 
Loop

Pero por razones de que ocupaba ponerle la opcion de antiduplicable tuve que cambiar el sistema de datos a ADO y buscando (Porque me di cuenta que no podia ser el mismo codigo que el Datos1. Me encontre este codigo para que me diera la misma funcion de mostrar los clientes en el combobox pàra escoger.

1
2
3
4
5
6
7
8
Adodc1.ConnectionString = Conexion
Adodc1.RecordSource = "Select Apellidos from Clientes"
Adodc1.Refresh
While Not Adodc1.Recordset.EOF
Combo1.AddItem "Adodc1.Recordset.Fields ("Apellidos")
Adodc1.Recordset.MoveNext
Wend
End Sub

Pero en Apellidos me sale el error de " Se esperaba fin de la instruccion". No encuentro la solucion. Que estoy haciendo mal? O que otro codigo uso para que me cumpla lo que busco?
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
Imágen de perfil de Oscar

Llamar datos de una tabla a una Combobox

Publicado por Oscar (63 intervenciones) el 18/09/2014 20:32:19
Combo1.AddItem "Adodc1.Recordset.Fields ("Apellidos")

Cuidado con las comillas!!!!
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 Wilfredo Patricio Castillo

Llamar datos de una tabla a una Combobox

Para eso debes usar un datacombo

Con eso haces:
dim Rst1 as new ADODB.Recordset
Rst1.Open "Select Codigo,Nombre From Tabla",Conexion,tiporecorset,tipoalgo

set datacombo1.datasource=Rst1

Ya casi no recuerdo el código de VB6, ya que lo dejé mas de 10 años.
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