Problemas con la Fecha en VB6

[jmvacio]

Que tal, quiero pedir de su ayuda, ya que estoy aprendiendo a hacer mis primeros programas en VB6, en general el programa ya esta terminado, pero al querer hacer un reporte, si solicito toda la informacion, si me la trae sin problema, pero si solicito un rango de fechas me genera error, e incluso probe con solo solicitar la informacion de un solo dia y me marca el mismo error que si le pido un rango de fechas, el error que me genera es:
"[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression"



Public base As New ADODB.Connection
Public rs As New ADODB.Recordset

Private Sub Command1_Click()
If CmbD.Text = "" Then
Set rs = base.Execute("select * from Tgeneral")
If rs.EOF = False Then
Set DataReport1.DataSource = rs
DataReport1.Show
End If
Else
**********************En esta parte es donde me genera la falla*********
Set rs = base.Execute("select * from Tgeneral where Outdate='30/03/2011'")
************************************************** **************
If rs.EOF = False Then
Set DataReport1.DataSource = rs
DataReport1.Show
End If
End If
End Sub

Private Sub Form_Load()
base.Open "DRIVER={Microsoft Access Driver (*.mdb)};dbq=\\jmvacio\SOPCDB\Rbs_Sat.mdb", , "Tgeneral"
End Sub



Gracias de antemano por su ayuda

[hugo180486]

Que tipo de dato es tu campo donde almacenas la fecha en tu BD, es Datetime?

[jmvacio]

Iniciado por hugo180486

Que tipo de dato es tu campo donde almacenas la fecha en tu BD, es Datetime?

Asi es el tipo de campo es Date/Time, pero con formato de fecha corta, eso lo consegui con:

QUERY = "Insert into tGeneral (UserSOPC,OutDate,Timer,Estadorbs,Medium,Motive,Rb s,Sec,Ciudad) values('" & _
frmMain.usuario & "'," & CDbl(Now) & ",'" & Text2.Text & "','" & cboEstadorbs.Text & "','" & frmMain.Medium & "','" & Text1.Text & "','" & Text3.Text & "','" & Text4.Text & "','" & cbociudad.Text & "')"
Call Traer(adUseServer, adOpenForwardOnly, adLockOptimistic, QUERY, "")

[hugo180486]

segun yo deberia de funcionar...

Intenta lo sigueinte:

Código vb:

Set rs = base.Execute("select * from Tgeneral where Outdate= '20110330'")
 

[jmvacio]

Iniciado por hugo180486

segun yo deberia de funcionar...

Intenta lo sigueinte:

Código vb:

Set rs = base.Execute("select * from Tgeneral where Outdate= '20110330'")
 

No, de ambas maneras me sigue saliendo el mismo error......

"[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression"

[lokoman]

Hola!!
El error dice que es el tipo de datos no coincide... haz tu select en el query analyser o en una consulta en access, despues solo traduce la sentencia a VB6.0