select con fecha no funciona

Question

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.

Answer 1

Hola,

¿Visual Basic 6 o Visual Basic .NET?

Un saludo.

Answer 2

Javier, buenas tardes.

 

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

 

saludos.

Answer 3

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!

Answer 4

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