关于datagrid显示

youngling 2008-07-17 02:51:25
请教,我的数据库数据已经取出来,却怎么也显示不到datagrid控件里,但是,比如我表products里有5条数据,datagrid控件会列出5行空的,就是没有显示数据。adodc1是我已经设定好的数据库联接,没有问题。看了一些文章,有些要注册一些文件,或者再添加ADO DATA的控件,实在弄不懂,大虾们帮助下,谢啦
Dim stemp As String
stemp = "select name,price,total from products"


Set rs = New ADODB.Recordset

rs.CursorLocation = adUseClient
rs.Open stemp, adodc1, adOpenKeyset, adLockPessimistic
Set MSHFlexGrid1.DataSource = rs ''MSHFlexGrid1显示就没有问题
Set DataGrid1.DataSource = rs
...全文
71 点赞 收藏 9
写回复
9 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
Kevin2328 2008-07-18
右击你的mshflexgrid控件选取"清除格式"后再试试
回复
zdingyun 2008-07-17
将你的代码放有VB其它机器试。
回复
youngling 2008-07-17
重新安装了,还是不行:(
回复
zdingyun 2008-07-17
重新安装VB,估计是系统中缺少必要的DLL文件。
回复
youngling 2008-07-17
改了.
系统什么问题?有办法设置吗?
回复
zdingyun 2008-07-17
如果你的MSHFlexGrid1显示就没有问题,仅是DATAGRID控件显示有问题的话,问题出在系统中。
回复
zdingyun 2008-07-17
cnstr的赋值句改了没有?
回复
youngling 2008-07-17
试了,还是不出来,还是空显示
回复
zdingyun 2008-07-17
你混用了ADO数据对象和ADO数据控件。
用ADODC数据控件,就不要用ADO数据对象。
    
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Dim cnstr As String
Dim sql As String
Set con = New ADODB.Connection
Set rs = New ADODB.Recordset
cnstr = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=hxzl_dbf" '本句须改为你的数据连接句
sql = "select name,price,total from products"
con.Open cnstr
rs.CursorLocation = adUseClient
rs.Open sql, con, adOpenStatic, adLockReadOnly
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
回复
相关推荐
发帖
控件
创建于2007-09-28

1425

社区成员

VB 控件
申请成为版主
帖子事件
创建了帖子
2008-07-17 02:51
社区公告
暂无公告