Problema con fecha al consultar en SQL

[mcastillo32]

Hola a todos, tengo el siguiente problema que me gustaria me pudiesen ayudar

tengo una hoja en la cual realizo consulta a BD SQL, hasta el momento logre conectarme a la base de datos y rescatar la informacion que necesito el problema es que cuando filtro por fechas mediante DTPicker y consulto por Ej. por el dia 04-12-2012 el resultado que obtengo son los datos del 12-04-2012. El problema es que considera los 2 primeros digitos como el mes y los segundos como el dia y no he logrado solucionar esto. le pido por favor si me pudieran ayudar.

Saludos

Libro3.rar

[Antoni]

Pon la columna de la fecha como "Texto" y modifica esta línea:

Hoja2.Cells(fila, 1) =[B] Format(CDate([/B]rs("FechadeElaboración")[B]), "dd/mm/yyyy")[/B][/CODE]

[mcastillo32]

Primero que todo gracias por responder Macro Antonio, hice lo que dijiste pero aun asi al realizar la consulta sigo con el mismo problema.

Saludos.

[Antoni]

El problema es que yo no tengo SQL Server.

Voy a probarlo en Access y te digo algo.

[mcastillo32]

Ok. quedo a la espera.

[Antoni]

Necesito saber como tienes definidas las fechas en la base de datos ¿Como Fecha, como texto,.....?

[mcastillo32]

esta como Fecha (Date) y es SQL 2005

[Antoni]

Hola:

Así me ha funcionado correctamente:

 

[COLOR=#008000]SQL =[/COLOR] [COLOR=#008000]"[/COLOR][COLOR=#0000cd][B]SELECT FECHA FROM TABLA WHERE[/B][/COLOR][COLOR=#008000]" & _[/COLOR]

         [COLOR=#008000]"[/COLOR][COLOR=#0000cd][B]FECHA > CDate('[/B][/COLOR][COLOR=#008000]" & DTPicker1.Value & "[/COLOR][B][COLOR=#0000cd]')[/COLOR] [COLOR=#0000cd]AND[/COLOR] [/B][COLOR=#008000]" & _[/COLOR]

         "[COLOR=#0000cd][B]FECHA < CDate('[/B][/COLOR][COLOR=#008000]" & DTPicker2.Value & "[/COLOR][COLOR=#0000cd][B]')[/B][/COLOR]"



[/CODE]

Fíjate que convertimos las fechas dentro de la sentencia SQL y no con la función de conversión de VBA.

Con eso conseguimos que se ADO quien se pelee con el motor de la base de datos.

[mcastillo32]

acabo de hacer lo que dijiste y tampoco funciono.

 Public Sub conexion()

Dim cn As New ADODB.Connection
cn.Open "driver=sql server;uid=sa;pwd=Sap;database=Quinta_Tran;server=SVR"
    If cn.State = 1 Then
            Hoja2.Range("A2:I1048576").ClearContents
            'Hoja2.Range("A2").Select
        Dim com As New ADODB.Command
        com.ActiveConnection = cn
        com.CommandText = "select FechadeElaboración, Código, Descripción, UniMedida, UniEmpaque, Planificado, Fabricado from dbo.INFORME_DE_ORDENES " & _
        "where FechadeElaboración > CDate( '" & DTPicker1.Value & "') " & _
        "and FechadeElaboración < CDate ('" & DTPicker2.Value & "') order by FechadeElaboración"
        ' Para tener en cuenta para selecionar la fecha a buscar es (fila, columna)
        'where Fecha = '" & Hoja1.Cells(7, 4) & "'"
        com.CommandType = adCmdText
        Dim rs As ADODB.Recordset
        Set rs = com.Execute
        If rs.EOF = False Then
            Dim fila As Integer
            fila = 2
            Do While Not rs.EOF
                Hoja2.Cells(fila, 1) = Format(rs("FechadeElaboración"), "dd/mm/yyyy")
                Hoja2.Cells(fila, 2) = rs("Código")
                Hoja2.Cells(fila, 3) = rs("Descripción")
                Hoja2.Cells(fila, 4) = rs("UniMedida")
                Hoja2.Cells(fila, 5) = rs("UniEmpaque")
                Hoja2.Cells(fila, 6) = rs("Planificado")
                Hoja2.Cells(fila, 7) = rs("Fabricado")

                fila = fila + 1
                rs.MoveNext
            Loop
            MsgBox "Datos exportados Exitosamente"
        Else
        MsgBox "Sin Informaión"
        End If

    cn.Close
    Else
        MsgBox "No Estamos Conectados"
    End If
    Hoja2.Activate
End Sub

  [/PHP]

Disculpa tanta insistencia pero necesito solucionar este problema pues es de mi trabajo

saludos

[color=blue]- - - - - Mensaje combinado - - - - -[/color]

Me da este error

[Antoni]

Pues lo siento, pero al no disponer de SQL Server no puedo hacer nada mas.

En Access funciona, no se que mas decirte.

Saludos.

- - - - - Mensaje combinado - - - - -

Aunque no puedo ver el error, lo mas probable es que no reconozca la función CDate, documentate sobre la función Convert de SQL Server.

[mcastillo32]

http://C:\Users\Manuel\Desktop\Libro1.mht

- - - - - Mensaje combinado - - - - -

Ok. agradecido por el tiempo que dedicaste a ayudarme

[Antoni]

¿ Llegaste a leer lo relativo a la función CONVERT?

[mcastillo32]

lo he solucionado asi

Public Sub conexion()


Dim cn As New ADODB.Connection

cn.Open "driver=sql server;uid=sa;pwd=Sap;database=Quinta_Tran;server=SVR"

    If cn.State = 1 Then

            Hoja2.Range("A2:I1048576").ClearContents

            'Hoja2.Range("A2").Select

        Dim com As New ADODB.Command

        com.ActiveConnection = cn

        com.CommandText = "select FechadeElaboración, Código, Descripción, UniMedida, UniEmpaque, Planificado, Fabricado from dbo.INFORME_DE_ORDENES " & _

        "where FechadeElaboración >= Convert(datetime,'" & DTPicker1 & "',103) " & _

        "and FechadeElaboración <= Convert(datetime,'" & DTPicker2 & "',103)and NdeOrden < '100000000' order by FechadeElaboración"

        ' Para tener en cuenta para selecionar la fecha a buscar es (fila, columna)

        'where Fecha = '" & Hoja1.Cells(7, 4) & "'"

        com.CommandType = adCmdText

        Dim rs As ADODB.Recordset

        Set rs = com.Execute

        If rs.EOF = False Then

            Dim fila As Integer

            fila = 2

            Do While Not rs.EOF

                Hoja2.Cells(fila, 1) = rs("FechadeElaboración")

                Hoja2.Cells(fila, 2) = rs("Código")

                Hoja2.Cells(fila, 3) = rs("Descripción")

                Hoja2.Cells(fila, 4) = rs("UniMedida")

                Hoja2.Cells(fila, 5) = rs("UniEmpaque")

                Hoja2.Cells(fila, 6) = rs("Planificado")

                Hoja2.Cells(fila, 7) = rs("Fabricado")


                fila = fila + 1

                rs.MoveNext

            Loop

            MsgBox "Datos exportados Exitosamente"

        Else

        MsgBox "Sin Informaión"

        End If


    cn.Close

    Else

        MsgBox "No Estamos Conectados"

    End If

    Hoja2.Activate

End Sub



[/CODE]

Gracias por toda la ayuda. Si te fijas converti la fecha en el mismo codigo vba.

Cerrar tema

[mcastillo32]

Cerrrar tema