查询窗体的制作

Private Sub Command1_Click()
Adodc1.RecordSource = "select * from xsd where 日期 between # " & DT1.Value & " # and # " & DT2.Value & " #"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub

Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db_zbjxc.mdb;Persist Security Info=False"
Adodc1.CommandType = adCmdText

End Sub

 

Private Sub Command1_Click()
Adodc1.RecordSource = "select * from xsd where 日期 between # " & DT1.Value & " # and # " & DT2.Value & " #"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub

Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db_zbjxc.mdb;Persist Security Info=False"
Adodc1.CommandType = adCmdText

End Sub

转载于:https://www.cnblogs.com/zsp2/p/10031611.html