Programación General > Visual Basic para principiantes

 Combo

(1/3) > >>

Llaneta:
Hola, buenos dias...

Estoy intentando llenar un combo mediante un recordset que recupera una consulta de una tabla, pero me da error, les pongo el codigo a ver si ustedes lo encuentran.

Private Sub Cuadro_combinado41_GotFocus()

Dim Csql As String
abre As ADODB.Recordset

Csql = "Select Ejercicio, iva1, iva2, iva3, iva4, iva5 From IVAINICIO" _
& "Where Ejercicio= '" & Year(Now()) & "'"

Set abre = New ADODB.Recordset

abre.Open Csql, CurrentProjectConnection, adOpenKeyset, adLockReadOnly, adCmdText

If Not (abre.EOF And abre.BOF) Then

MsgBox " Ha encontrado algo "

EJERCICIO = abre!EJERCICIO
iva1 = abre!iva1
iva2 = abre!iva2
iva3 = abre!iva3
iva4 = abre!iva4
iva5 = abre!iva5

End If

    Set abre = Nothing

End Sub


El error que me da es: La instrucción no es válida fuera del bloque Type

Muchas grácias

luciano2:
El error está acá: -->> abre As ADODB.Recordset

Te faltó el Dim ...

Dim abre As ADODB.Recordset


saludos



-----------------------------

Recursos Visual basic

Llaneta:
Gracias luciano, eso ya lo solucione, ahora no se como pasar los registros al combo

Mollense:
Además la consulta no va a funcionar. Le falta un espacio delante del "Where".

Saludos  :photo:

Llaneta:

--- Cita de: "Angel_K_ido" --- Además la consulta no va a funcionar. Le falta un espacio delante del "Where".

Saludos  :photo:
--- Fin de la cita ---
eso también lo habia detectado y solucionado, gracias.La select me funciona lo q no funciona es lo q les comente anteriormente de pasar los registros del recordset a un combo, es la primera vez que lo hago y voy un poco pez.

Gracias y Feliz Navidad

Navegación

[0] Índice de Mensajes

[#] Página Siguiente