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

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]

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.

El problema es que yo no tengo SQL Server.

Voy a probarlo en Access y te digo algo.

Ok. quedo a la espera.

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

esta como Fecha (Date) y es SQL 2005

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.

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

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.

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

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

Ok. agradecido por el tiempo que dedicaste a ayudarme

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

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

Cerrrar tema