SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => VBA => Mensaje iniciado por: manuelbse en Domingo 3 de Julio de 2005, 19:09

Título: Ayuda Urgente Con Una Consulta
Publicado por: manuelbse en Domingo 3 de Julio de 2005, 19:09
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
Título: Re: Ayuda Urgente Con Una Consulta
Publicado por: Shiquilla en Domingo 3 de Julio de 2005, 21:19
Te faltaba un espacio para que no se juntara el WHERE.

Código: Text
  1. Strconsord = "SELECT ordentrab.ordtrab, ordentrab.fecha, " & _
  2. "ordentrab.tipomant, ordentrab.especi, ordentrab.ubica, " & _
  3. "ordentrab.grupo, ordentrab.fechapen, ordentrab.asigna, " & _
  4. "ordentrab.asigcod, ordentrab.asignomb, ordentrab.realizo, " & _
  5. "ordentrab.horaini, ordentrab.horafin, ordentrab.duracion, " & _
  6. "ordentrab.vale, ordentrab.comenta, ordentrab.penrea " & _
  7. "FROM ordentrab" & _
  8. " Where ordentrab.fechapen = " & CDate(Form5.DTPicker1.Value) & _
  9. " ORDER BY ordentrab.fechapen"
  10.  
  11. CONSORDEN.Open Strconsord, conexion, adOpenForwardOnly, adLockReadOnly
  12.  

Saludos,
Título: Re: Ayuda Urgente Con Una Consulta
Publicado por: ferlucas en Miércoles 6 de Julio de 2005, 15:29
Y yo le agregaria:

CONSORDEN..CursorLocation = adUseClient  'Antes de abrirlo