none
select con fecha no funciona

    Pregunta

  • buenas tardes.

     

    estoy con una aplicacion en vba (excel) en donde me conecto a una tabla .dbf para consultar informacion dentro de un rango de fecha especificado. el problema radica que no puedo hacer que funcione el select, ya he probado distintas formas de dar formato a la sentencia y no me funciona, este es el codigo...

    Dim status As String
    Dim fecha1 As String
    Dim fecha2 As Date
    Rem Variables de control de datos de base de datos
    Dim base As New ADODB.Connection
    Dim rpersonal As New ADODB.Recordset
    Dim rmaster As New ADODB.Recordset
    Dim qpersonal As String
    Dim qmaster As String
    status = "Activo"
    fecha2 = Calendar2.Value

    Rem ***************************************************************************
    Rem *****                                                                 *****
    Rem *****         Hacemos la conexion a la Base de Datos                  *****
    Rem *****                                                                 *****
    Rem ***************************************************************************
    With base
            .ConnectionString = "Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=\\10.250.33.235\registro\registro;exclusive=no;Collate=Machine;NULL=NO;DELETED=YES;BACKGROUNDFETCH=YES"
            .ConnectionTimeout = 10
    End With
    base.Open
    fecha1 = Format(Calendar1.Value, "dd/mm/yyyy")

    aqui es donde no se como hacerlo.
     'qmaster = "select * from master where fecha = #" & Format(fecha1, "mm/dd/yyyy") & "# " '#" & fechainicio1 & "# " SELECT * FROM diario WHERE fecha=#7/1/97#
     qmaster = "select * from master where fecha = '" & fecha1 & "' "
     'where fecha = #" + fecha1 + "# "


     ''# " + fecha1 + " # "
     'rmaster.CursorType = 1
     'rmaster.LockType = 1
     rmaster.Open qmaster, base
     If rmaster.RecordCount >= 1 Then
       MsgBox rmaster.RecordCount
       End If
    End Sub

     

    espero y me puedan ayudar.

     

    saludos.

    miércoles, 14 de enero de 2009 19:50

Todas las respuestas

  • Hola,

    ¿Visual Basic 6 o Visual Basic .NET?

    Un saludo.
    jueves, 15 de enero de 2009 6:25
  • Javier, buenas tardes.

     

    actualmente estoy programando en vb 6.0 y la aplicacion la estoy diseñando en excel 2003 (VBA)

     

    saludos.

    jueves, 15 de enero de 2009 23:51
  • Fijate asi:

    Select * from TABLA where fecha = '2009-7-01'

    sino:

    Select * from TABLA where fecha = '2009/7/01'

    si te ayude marcame como solucionado!!

    saludos!
    viernes, 16 de enero de 2009 16:14
  • hola

     

    si usas '2009-7-01' en komillas, no te lo acepta porque es tipo DateTime

    no texto :)

    yo tambien estoy batallando con las fechas.

     

    quiero hacer una consulta con fechas pero no me deja

     

    "select * from tabla where Fecha=" + txtfecha.text ;

    //txtfecha.text es la fecha actual

     

    si alguien me ayuda porfavor

    gracias

     

     

    viernes, 23 de abril de 2010 18:26