Imprimir página | Cerrar ventana

error con codigo SQL usando fechas

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y Otros sistemas
Descripción del foro: Proyectos ADP & Sql Server, Mysql& Access, MSDE
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=71247
Fecha de impresión: 15/Agosto/2020 a las 02:23


Tema: error con codigo SQL usando fechas
Publicado por: crcastro
Asunto: error con codigo SQL usando fechas
Fecha de publicación: 22/Noviembre/2011 a las 16:55
Estoy tratando de realizar una consulta a una BD de oracle desde el vba de acces usando ado y SQL, cuando trato de hacer una consulta filtrando fechas me da error, alguien me podria decir la manera correcta de usar la fechas en la consulta, (ya he realiza pruebas con otras consultas sin usar fecha como filtro y no tengo problemas) aqui el codigo:
Sub Prueba()

Dim strConnection As String

Dim conn As New ADODB.Connection

Dim rs As New ADODB.Recordset

Dim strSQL As String

strConnection = "Driver={Microsoft ODBC for Oracle}; " & _

         "CONNECTSTRING=(DESCRIPTION=" & _

         "(ADDRESS=(PROTOCOL=TCP)" & _

         "(HOST=216.184.102.110)(PORT=1523))" & _

         "(CONNECT_DATA=(SERVICE_NAME=costos))); uid=username;pwd=password;"    

conn.Open strConnection

strSQL = "SELECT * FROM PLANIFICACION.MDO_PROGDIA_DESPACHO WHERE FECHA=#11/21/11#"

 

rs.Open strSQL, conn

rs.Close

conn.Close




Respuestas:
Publicado por: Emilio
Fecha de publicación: 22/Noviembre/2011 a las 19:40
Hola!
si mal no recuerdo, hace mucho que no toco Oracle, sería algo así
strSQL = "SELECT * FROM PLANIFICACION.MDO_PROGDIA_DESPACHO WHERE To_Date(Fecha, 'mmddyyhhmiss')= " & Format (Date, "mmddyyhhnnss")


-------------
Saludos a todos desde Huelva

http://www.mvp-access.es/emilio/" rel="nofollow - http://www.mvp-access.es/emilio/



Imprimir página | Cerrar ventana