|
#2
coucongzi2013-10-31 14:39
|
程序代码：conn.Close
conn.Open "Provider=Microsoft.Jet.Oledb.4.0;Persist Security Info=false;Data source=" & App.Path + "\bfdtb.mdb"
rs.CursorLocation = adUseClient
rs.Open "select * from dtb where 交期 >= & DTPicker5(0).Value & and 交期 <= &DTPicker5(1).Value &", conn, adOpenDynamic, adLockPessimistic '语法错误（操作符丢失）在查询表达式
Set DataGrid1.DataSource = rs
conn.Open "Provider=Microsoft.Jet.Oledb.4.0;Persist Security Info=false;Data source=" & App.Path + "\bfdtb.mdb"
rs.CursorLocation = adUseClient
rs.Open "select * from dtb where 交期 >= & DTPicker5(0).Value & and 交期 <= &DTPicker5(1).Value &", conn, adOpenDynamic, adLockPessimistic '语法错误（操作符丢失）在查询表达式
Set DataGrid1.DataSource = rs
