标题:如何按日期查找数据库内的数据
只看楼主
yflovevb01
Rank: 1
等 级:新手上路
帖 子:22
专家分:0
注 册:2017-4-28
结帖率:75%
已结贴  问题点数:20 回复次数:2 
如何按日期查找数据库内的数据
以下是我的代码
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 显示的内容一样
请问大神 问题出在哪里了?
搜索更多相关主题的帖子: 日期 数据库 数据 Sub End 
2017-05-19 18:14
xzlxzlxzl
Rank: 15Rank: 15Rank: 15Rank: 15Rank: 15
来 自:湖北
等 级:贵宾
威 望:125
帖 子:1091
专家分:5825
注 册:2014-5-3
得分:10 
两个DataGrid公用一个Adodc记录集,当然显示内容是一样的
2017-05-20 19:59
ZHRXJR
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:125
帖 子:1034
专家分:5519
注 册:2016-5-10
得分:10 
应该使用 Adodc1.Recordset 语句更新记录吧。

请不要选我!!!
2017-05-23 10:44



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-477157-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.854402 second(s), 8 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved