Dim rs As New ADODB.Recordset
Set rs = New ADODB.Recordset
If rs.State <> adStateClosed Then rs.Close
rs.Open "select * from LXLF", MdbConn, adOpenKeyset, adLockOptimistic
Set DataGrid1.DataSource = rs
为什么数据显示不出来呢
Set rs = New ADODB.Recordset
If rs.State <> adStateClosed Then rs.Close
rs.Open "select * from LXLF", MdbConn, adOpenKeyset, adLockOptimistic
Set DataGrid1.DataSource = rs
为什么数据显示不出来呢
解决方案 »
- Winsock控件如何获得连接者的MAC地址
- 使用ADO连接MS SQL数据库,多用户拥堵
- Public Declare Function GetInputState Lib "user32" Alias "GetInputState" () As Long还需要其他的申明吗
- 谁人能解我忧愁?
- Erp 你認識它嗎?
- 窗体中行,模块中不行,调用数据库!????
- HELP~~~~~~半年了,还是没找到答案,很压抑呀!!!UP者有分
- 存储过程问题:返回的参数可否为数组?急用!请帮忙!
- ?谁能告诉我在VB 中 ActiveSkin如何使用????
- SQL SERVER无法启动!请赐教!
- 如何使用listview控件作为数据源?
- 对硬盘要求较高的代码,我的硬盘为什么会响呢?~
Set rs = New ADODB.Recordset
rs.CursorLocation=adUseClient '设置客户端游标
If ......如果还不行,换一个DataGrid再试试