none
como insertar registros de una tabla de access en un combo en visual 6.0

    Question

  • Hola, soy nuevo en la programación de visual basic, tengo una tabla en access llamada Empleados y deseo desplegar los nombres de los empleados en un comboBox.

    Tengo el siguiente código pero no me funciona


     Dim SentenciaSQL As String

    Dim Base As ADODB.Recordset

    DPrivate Sub Form_Load()

    Set Base = OpenData("C:\Users\Hewlett\Documents\programas visual.PROYECTOPACOL.accdb", False, False, "")
    SentenciaSQL = "Select * from Empleados"
    Set Empleados_1 = Base.OpenRecordset(SentenciaSQL)
    Do While Datos_1.EOF = False
        Combo2.AddItem Empleados_1(1).Value
        Datos_1.MoveNext
    Loop
    End Sub

    Con este código me muestra el siguiente error

    procedimiento sub o función no definido

    Por favor si me pueden ayudar muchas gracias

    Thursday, June 07, 2012 3:46 PM

All replies