7,763
社区成员
发帖
与我相关
我的任务
分享请大家帮我看看为什么不能显示？？？？？？？？
先连接数据库
temcon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\tem.mdb;Mode=Share Deny Read|Share Deny Write;Jet OLEDB:Database Password=123;"
然后
mysql = "select repairno as 维修号,OwnerName as 所有者,OwnerTelNo as 联系电话,LogNo as 车牌,DeliveredDate as 交车日 from dms_rt_contact where DeliveredDate='" & Format(ytoday - 3, "YYYYMMDD") & "' and ((left(OwnerTelNo,2)='13') or (left(OwnerTelNo,3)='013'))"
rsdms.Open mysql, temcon, adOpenKeyset, adLockReadOnly
AA = rsdms.RecordCount
Set DataGrid1.DataSource = rsdms
其中 AA 已经返回15 了 也就是查询有结果啊
但为什么DATAGRID1没有显示东西呢？？
我是新手 大家多多帮忙啊！！
temcon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\tem.mdb;Mode=Share Deny Read|Share Deny Write;Jet OLEDB:Database Password=123;"
然后
mysql = "select repairno as 维修号,OwnerName as 所有者,OwnerTelNo as 联系电话,LogNo as 车牌,DeliveredDate as 交车日 from dms_rt_contact where DeliveredDate='" & Format(ytoday - 3, "YYYYMMDD") & "' and ((left(OwnerTelNo,2)='13') or (left(OwnerTelNo,3)='013'))"
rsdms.Open mysql, temcon, adOpenKeyset, adLockReadOnly
AA = rsdms.RecordCount
Set DataGrid1.DataSource = rsdms
其中 AA 已经返回15 了 也就是查询有结果啊
但为什么DATAGRID1没有显示东西呢？？
我是新手 大家多多帮忙啊！！
...全文
请发表友善的回复…
发表回复
yjtzc 2004-10-27
- 打赏
- 举报
up
creazyfish 2004-10-27
- 打赏
- 举报
在绑定数据源后加一个
DataGrid1.refresh
试下呢
应该是可以的
DataGrid1.refresh
试下呢
应该是可以的
officecn 2004-10-27
- 打赏
- 举报
确保你声明的Connection和Recordset是全局变量，而且没有代码将他们关闭
ada518 2004-10-27
- 打赏
- 举报
up!!
ada518 2004-10-27
- 打赏
- 举报
楼上两种方法都试过了 还是不行 ！
northwolves 2004-10-27
- 打赏
- 举报
try:
rsdms.CursorLocation = adUseClient
Set DataGrid1.DataSource = rsdms
rsdms.CursorLocation = adUseClient
Set DataGrid1.DataSource = rsdms
vansoft 2004-10-27
- 打赏
- 举报
刷新一下DataGrid1。
