datagrid怎么显示查询结果？

[feihu0002]

我用ODBC连接sql-server。
dim cn as new adodb.connection
dim rst as new adodb.recordset
cn.open "dsn=zhao;uid=sa;pwd"
rst.open "select * from table1",cn
Set DataGrid1.DataSource = rst
当我运行时，最后一句出现错误，错误号‘7004’。行记录集不能作为标签。
请高手指点怎么能实现这个功能。在datagrid上显示查询结果。

[julysixth]

Dim db As ADODB.Connection
Dim rs As ADODB.Recordset

Private Sub Form_Load()
Set db = New ADODB.Connection
db.CursorLocation = adUseClient
db.Open "Provider=MSDASQL.1;Persist Security Info=False;Data Source=zhao;uid=shenghuo;pwd=shenghuo"

Set rs = New ADODB.Recordset
strsql = "select * from table"
rs.Open strsql, db, adOpenDymanic, adLockBatchOptimistic
Set Main.DataGrid1.DataSource = rs

End Sub

[华芸智森]

你的记录还没有成功地打开吧...

Dim cn As New adodb.Connection
Dim rst As New adodb.Recordset
cn.Open "dsn=zhao;uid=sa;pwd=;"
rst.Open "select * from table1", cn, adOpenKeyset, adLockBatchOptimistic
Set DataGrid1.DataSource = rst

或者检查一下CN是否已经连接好了.

[feihu0002]

MSTOP哥哥，你真是解决了我的难题呀。

多谢了，呵呵。