查询窗体的制作
2021-06-29 04:04
标签：data sele nbsp sub and 制作 ros rds ref Private Sub Command1_Click() Private Sub Form_Load() End Sub Private Sub Command1_Click() Private Sub Form_Load() End Sub 查询窗体的制作 标签：data sele nbsp sub and 制作 ros rds ref 原文地址：https://www.cnblogs.com/zsp2/p/10031611.html
Adodc1.RecordSource = "select * from xsd where 日期 between # " & DT1.Value & " # and # " & DT2.Value & " #"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db_zbjxc.mdb;Persist Security Info=False"
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from xsd where 日期 between # " & DT1.Value & " # and # " & DT2.Value & " #"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db_zbjxc.mdb;Persist Security Info=False"
Adodc1.CommandType = adCmdText