关于datagrid显示

[youngling]

请教，我的数据库数据已经取出来，却怎么也显示不到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

[zdingyun]

你混用了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

[youngling]

试了,还是不出来,还是空显示

[zdingyun]

cnstr的赋值句改了没有？

[zdingyun]

如果你的MSHFlexGrid1显示就没有问题，仅是DATAGRID控件显示有问题的话，问题出在系统中。

[youngling]

改了.
系统什么问题?有办法设置吗?

[zdingyun]

重新安装VB，估计是系统中缺少必要的DLL文件。

[youngling]

重新安装了,还是不行:(

[zdingyun]

将你的代码放有VB其它机器试。

[Kevin2328]

右击你的mshflexgrid控件选取"清除格式"后再试试