tratamiento de fechas

21/11/2007 - 07:24 por Edgar Brito | Informe spam

Tengo una conexion a sqlserver con ADO de la siguiente forma
Dim Conexion As ADODB.Connection, CadenaConexion As String

Dim Actualizar As ADODB.Command

Set Conexion = New ADODB.Connection
Conexion.Open "Provider=SQLNCLI; " & _
"Initial Catalog=tesoreria; " & _
"Data Source=desktop; " & _
"integrated security=SSPI; persist security info=True;"

Dim MovBancarios As ADODB.Recordset
Set MovBancarios = New ADODB.Recordset
MovBancarios.CursorLocation = adUseClient
MovBancarios.CursorType = adKeySet
MovBancarios.Open "select * from movimientosbancarios where " & _
" [fecha]=" & Cells(a, 1), Conexion, adOpenDynamic,
adLockOptimistic

donde cells(a,1) hace referencia a una fecha en excel 01/08/2007

el problema consiste es que tengo un registro en la tabla
movimientosbancarios el campo fecha es 01/08/2007 pero al recuperar los
registros no reconoce este registro y devuelve cero registros, como puedo
utilizar la claúsula select utilizando un campo de fecha.

Mil gracias por el apoyo.

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Salvador Ramos

21/11/2007 - 10:25 | Informe spam

Hola,

Creo que es un problema habitual, en tu caso esa fecha como la
interpretarías ? 1 de agosto u 8 de enero ? Lo recomendable es utilizar el
formato ANSI 'AAAAMMDD'.
Te paso un link a un artículo del amigo Maxi, espero que te ayude:
http://www.mug.org.ar/SQL/ArticSQL/240.aspx

Un saludo
Salvador Ramos

www.helpdna.net (información sobre SQL Server y Microsoft .Net)
www.helpdna.net/acerca_de_salvador_ramos.htm

"Edgar Brito" escribió en el mensaje
news:

Tengo una conexion a sqlserver con ADO de la siguiente forma
Dim Conexion As ADODB.Connection, CadenaConexion As String

Dim Actualizar As ADODB.Command

Set Conexion = New ADODB.Connection
Conexion.Open "Provider=SQLNCLI; " & _
"Initial Catalog=tesoreria; " & _
"Data Source=desktop; " & _
"integrated security=SSPI; persist security info=True;"

Dim MovBancarios As ADODB.Recordset
Set MovBancarios = New ADODB.Recordset
MovBancarios.CursorLocation = adUseClient
MovBancarios.CursorType = adKeySet
MovBancarios.Open "select * from movimientosbancarios where " & _
" [fecha]=" & Cells(a, 1), Conexion, adOpenDynamic,
adLockOptimistic

donde cells(a,1) hace referencia a una fecha en excel 01/08/2007

el problema consiste es que tengo un registro en la tabla
movimientosbancarios el campo fecha es 01/08/2007 pero al recuperar los
registros no reconoce este registro y devuelve cero registros, como puedo
utilizar la claúsula select utilizando un campo de fecha.

Mil gracias por el apoyo.

Responder a este mensaje

#2 Leonardo Azpurua

21/11/2007 - 12:42 | Informe spam

"Edgar Brito" escribió en el mensaje
news:

Tengo una conexion a sqlserver con ADO de la siguiente forma
Dim Conexion As ADODB.Connection, CadenaConexion As String

Dim Actualizar As ADODB.Command

Set Conexion = New ADODB.Connection
Conexion.Open "Provider=SQLNCLI; " & _
"Initial Catalog=tesoreria; " & _
"Data Source=desktop; " & _
"integrated security=SSPI; persist security info=True;"

Dim MovBancarios As ADODB.Recordset
Set MovBancarios = New ADODB.Recordset
MovBancarios.CursorLocation = adUseClient
MovBancarios.CursorType = adKeySet
MovBancarios.Open "select * from movimientosbancarios where " & _
" [fecha]=" & Cells(a, 1), Conexion, adOpenDynamic,
adLockOptimistic

donde cells(a,1) hace referencia a una fecha en excel 01/08/2007

el problema consiste es que tengo un registro en la tabla
movimientosbancarios el campo fecha es 01/08/2007 pero al recuperar los
registros no reconoce este registro y devuelve cero registros, como puedo
utilizar la claúsula select utilizando un campo de fecha.

Hola, Edgar:

No dejes de leer el artículo que te recomienda Salvador.

Para una solucion inmediata:

MovBancarios.Open "select * from movimientosbancarios where " & _
" [fecha]= ' " & Format(Cells(a, 1), "yyyymmdd") & " ' ", ...

(los espacios entre el apóstrofe y las comillas deben suprimirse, los puse
para que notaras los apóstrofes). Debe quedar así:

select * from movimientosbancarios
where fecha = '20070801'

Salud!

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida