用两个dtpicker控件来选择一个时间段,怎么才能把数据库中的这个时间段中的数据打开 我刚学vb,最近在做个程序,碰到一点问题,请大家帮忙!先谢了!!程序数据连接方式我选用了ADODC ,现在想实现用两个dtpicker控件来选择一个时间段,怎么才能把数据库中的这个时间段中的数据打开,并用datagrid显示出来.代码如何编写? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 类似:Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Test.mdb;User Id=admin;Password=;"Adodc1.CommandType = adCmdTextAdodc1.RecordSource = "select * from 表 where 日期>=#" & DTPicker1.Value & "# and 日期<=#" & DTPicker2.Value & "#"Adodc1.RefreshSet DataGrid1.DataSource=Adodc1如果是MSSQL库,把查询语句中的#号改为单引号 没有调试,试试:'建立一个连接Cnn, rs 为ADO的recordset Set rs = Nothing strSQL = "SELECT * FROM table1 where datefield between """ & dtpicker1.value &" "" and "" "& dtpicker2.value & """ With rs .CursorLocation = adUseClient .CursorType = adOpenKeyset .LockType = adLockOptimistic .Open strSQL, Cnn, , , adCmdUnknown End With Set Datagrid1.DataSource = rs Str = "select * from 数据表 where 接警类别='" & Combo1.Text & "' and 值班民警='" & Combo2.Text & "' and (日期>='" & Format(DTPicker1.Value, "yyyy-mm-dd") & "' and 日期<='" & Format(DTPicker2.Value, "yyyy-mm-dd") & "')" 你的查询语句用在SQL数据库里应该没问题,如果用在Access里就有问题了,在Access里,日期字段要用两个#号括起来:Str = "select * from 数据表 where 接警类别='" & Combo1.Text & "' and 值班民警='" & Combo2.Text & "' and (日期>=#" & Format(DTPicker1.Value, "yyyy-mm-dd") & "# and 日期<=#" & Format(DTPicker2.Value, "yyyy-mm-dd") & "#)"两外,数值类型的字段不要用单引号括起来 faysky2(出来混,迟早是要还嘀) !!!!你说的方法我实验了,终于成功了!!!万分感谢!!!困饶我一天的问题终于解决了!!!!大好人一个!!!作为一个刚学vb不到一个星期的人,能遇到你这样的恩人,太幸运了...能否留个qq跟你交流,向你学习啊!!万分感谢!!!困饶我一天的问题终于解决了!!!!大好人一个!!! 那位大哥能给我讲讲mscomm-common事件怎么触发的? 关于word中选中内容的位置问题 请问,两个文本框相同的内容列出来? VB下处理中文字符的通用解决方案 请问那里可以找到在vb中播放flash的控件? 请教,如何找出一个窗体的所有菜单?用代码 使用对象变量访问数据库能保存数据吗? VB 如何按季度查询 自己做了个触摸屏用的虚拟键盘,如何才能判断窗口处于等待键盘输入状态,然后自动打开虚拟键盘,在不需要键盘输入时隐藏 关于数据绑定的问题 开发繁体版软件如何输入繁体字? 为什么我的VB6和VB8会有冲突
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "select * from 表 where 日期>=#" & DTPicker1.Value & "# and 日期<=#" & DTPicker2.Value & "#"
Adodc1.Refresh
Set DataGrid1.DataSource=Adodc1如果是MSSQL库,把查询语句中的#号改为单引号
strSQL = "SELECT * FROM table1 where datefield between """ & dtpicker1.value &" "" and "" "& dtpicker2.value & """
With rs
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open strSQL, Cnn, , , adCmdUnknown
End With
Set Datagrid1.DataSource = rs
大好人一个!!!
作为一个刚学vb不到一个星期的人,能遇到你这样的恩人,太幸运了...
能否留个qq跟你交流,向你学习啊!!
万分感谢!!!困饶我一天的问题终于解决了!!!!
大好人一个!!!