年底最后一问:用VB读DBF数据库中SQL语句的如何选择符合时间条件的记录????指教
我想选出大于符合我条件的所有记录,提示错误:
[Microsoft][ODBC Visual FoxPro Driver]operator/operand type mismatch
没折,估计是时间格式不对.高来帮忙解决一下,年前最后一个问题了!!!!!!!!!!
程序如下:
Option Explicit
Private Sub Form_Load()
'Provider=MSDASQL.1;Persist Security Info=False;Extended Properties="DSN=main1;UID=;SourceDB=d:\金基翠城\电子巡更\3000;SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;"
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim connstr As String
connstr = "Provider=MSDASQL.1;Persist Security Info=False;" & _
"Extended Properties=DSN=main1;" & _
"UID=;SourceDB=d:\3000;SourceType=DBF;Exclusive=No;" & _
"BackgroundFetch=Yes;Collate=Machine;"
conn.Open connstr
MsgBox conn.State ←显示等于1,说明数据库连接上了
Dim sql As String
sql = "select * from main"
rs.Open sql, conn, adOpenStatic, adLockReadOnly
MsgBox rs.RecordCount ← 显示等于29
rs.Close
Dim datetime As date
datetime = Format("2003-05-20", "yyyy-mm-dd")
sql = "select * from main where CDATE>'" & datetime & "'" ←这边出错
rs.Open sql, conn, adOpenStatic, adLockReadOnly
MsgBox rs.RecordCount
rs.Close
conn.Close
End Sub