Programación General > VBA

 Ayuda Urgente Con Una Consulta

(1/1)

manuelbse:
HOLA A TODOS ESPERO Q ALGUIEN M PUEDA AYUDAR, ESTOY TRATANDO DE REALIZAR UNA CONSULTA POR FECHA A TRAVES DE UN DTPICKER Y M DA ERROR DE SINTAXIS DE LA CLAUSULA FROM Y EN VERDAD Q NO C COMO CORREGIRLO...
NO C SI ESTOY REALIZANDO BIEN LA CONSULTA...ESPERO Q ALGUIEN PUEDA HACER EL FAVOR DE AYUDARM...ESTE ES LA CONSULTA:


 Strconsord = "SELECT  ordentrab.ordtrab, ordentrab.fecha, " & _
    "ordentrab.tipomant, ordentrab.especi, ordentrab.ubica, " & _
    "ordentrab.grupo, ordentrab.fechapen, ordentrab.asigna, " & _
    "ordentrab.asigcod, ordentrab.asignomb, ordentrab.realizo, " & _
    "ordentrab.horaini, ordentrab.horafin, ordentrab.duracion, " & _
    "ordentrab.vale, ordentrab.comenta, ordentrab.penrea " & _
    "FROM ordentrab" & _
    "Where ordentrab.fechapen = " & CDate(Form5.DTPicker1.Value) & _
    " ORDER BY ordentrab.fechapen"

CONSORDEN.Open Strconsord, conexion, adOpenForwardOnly, adLockReadOnly


GRACIAS

Shiquilla:
Te faltaba un espacio para que no se juntara el WHERE.


--- Código: Text ---Strconsord = "SELECT ordentrab.ordtrab, ordentrab.fecha, " & _"ordentrab.tipomant, ordentrab.especi, ordentrab.ubica, " & _"ordentrab.grupo, ordentrab.fechapen, ordentrab.asigna, " & _"ordentrab.asigcod, ordentrab.asignomb, ordentrab.realizo, " & _"ordentrab.horaini, ordentrab.horafin, ordentrab.duracion, " & _"ordentrab.vale, ordentrab.comenta, ordentrab.penrea " & _"FROM ordentrab" & _" Where ordentrab.fechapen = " & CDate(Form5.DTPicker1.Value) & _" ORDER BY ordentrab.fechapen" CONSORDEN.Open Strconsord, conexion, adOpenForwardOnly, adLockReadOnly 
Saludos,

ferlucas:
Y yo le agregaria:

CONSORDEN..CursorLocation = adUseClient  'Antes de abrirlo

Navegación

[0] Índice de Mensajes