如何按日期查找数据库内的数据
以下是我的代码Private Sub Command1_Click()
Adodc1.RecordSource = "select * from 备忘录 where 日期='" + Format(Text2.Text, "short date") + "'"
Set DataGrid2.DataSource = Adodc1
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
Command1.Caption = "查 询"
Command2.Caption = "退 出"
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\总数据库.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select 日期,标题,重要性 from 备忘录"
Set DataGrid1.DataSource = Adodc1
Adodc1.Refresh
End Sub
datagrid1 会在运行的时候显示
当我按下command1
datagrid2 会显示我输入在text2里面日期的所有数据
自我感觉没什么问题了
但是现在 按下command1
datagrid2 和datagrid1 显示的内容一样
请问大神 问题出在哪里了?