SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: FRIJU en Viernes 16 de Mayo de 2003, 11:01

Título: Re: COMBO
Publicado por: FRIJU en Viernes 16 de Mayo de 2003, 11:01
ME DA ERROR
Dim wks As Workspace
Dim db As Database
Dim vDatos As Variant
Dim sUser As String, sPassword As String

    sUser = DBEngine.Workspaces(0).UserName
    sPassword = ""
    Set wks = DBEngine.CreateWorkspace("wks", sUser, sPassword)
   
    Set db = wks.OpenDatabase(App.Path & "db13.mdb")
    Dim sSQL$
    Dim qrydatos As Recordset
    sSQL = "SELECT TblProyecto.PRODENOMINACION FROM TblProyecto ORDER BY TblProyecto.PRODENOMINACION; "
    Set qrydatos = db.OpenRecordset(sSQL, dbOpenDynaset)
    If qrydatos.BOF And qrydatos.EOF Then
        vDatos = vbNull
    Else
        qrydatos.MoveLast
        qrydatos.MoveFirst
       
       
        'Me.combo1.DataSource = sSQL
        'TDbGrid1.Columns(1).ValueItems.Presentation = 4
       
        Set combo1.DataSource = sSQL
        Me.combo1.DataField = qrydatos("PRODENOMINACION")

    End If
Título: COMBO
Publicado por: angelescj en Viernes 16 de Mayo de 2003, 18:35
¿´Qué error te da?:think: