我的找码如上，我的窗体上就一个datagrid控件。没有经过任何改动。我想用代码连接数据库并在datagrid控件中显示。但是我运行后出现在“实时错误7004，行集合不能作为标签。”请各位帮帮忙!!!!!!

[此贴子已经被作者于2006-11-10 11:14:47编辑过]

是不是Recordset没有设置游标类型这些..

为什么要设置那些啊。是不是datagrid控件的datasource属性有什么限制啊。
等待中！！！

Option Explicit
'请先添加引用Ado对象
Private Conn As ADODB.Connection '声明Ado成员
Private Rst As ADODB.Recordset

Private Sub Form_Load()
Dim conString As String '连接数据库字符串
conString = "Provider=Microsoft.Jet.OleDb.4.0;Data Source=D:\mdb\NorthWind.mdb"

Set Conn = CreateObject("ADODB.Connection") '创建Connection对象实例
With Conn
.ConnectionString = conString
.Open
End With

Set Rst = CreateObject("ADODB.Recordset") '创建Recordset对象实例
Dim sql As String
sql = "SELECT * FROM Orders"

Rst.CursorLocation = adUseClient '游标位置为客户端
Rst.LockType = adLockPessimistic '设置锁的类型
Rst.CursorType = adOpenKeyset '设置游标类型

Rst.Open sql, Conn, , , adCmdText

Set DataGrid1.DataSource = Rst
End Sub

发个例子你,自己看看

[此贴子已经被作者于2006-11-10 16:04:02编辑过]

我昨天回去了又想了一下。只要把游标的位置设置成客户端就行了。其它的属性都不用设置，可是为什么游标在服务器端就不行呢。百思不得其解！！！

呵呵..你找相关的书看看吧..

我都看了，都说得很简单，说：服务器的游标灵敏，客户的能实现服务器游标没有的功能。

呵呵...这样..不就行了吗..

我也刚刚遇到了这个问题，搞了一下午，吐血～～
看看我的代码也是这样的错误：
Private Sub Command1_Click()
Dim Adocn As ADODB.Connection
Dim adors As ADODB.Recordset
Set Adocn = New ADODB.Connection
Set adors = New ADODB.Recordset
Adocn.Open ("Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=HHM")
adors.Open "PerRegT", Adocn, adOpenKeyset, adLockOptimistic, adCmdTable
If Text1.Text <> "" Then
Dim rs As ADODB.Recordset
Set rs = Adocn.Execute("select * from PerRegT where " & Combo1.Text & " like '" & Text1.Text & "'")
'Adodc1.RecordSource = "SELECT * from PerRegT where" & Combo1.Text & "like'" & Text1.Text & "'"
'Adodc1.Refresh
Set DataGrid1.DataSource = rs //错误在此
DataGrid1.Refresh
Else
MsgBox "没有" & Combo1.Text & "查询的数据", vbInformation + vbCritical, "提示"
End If

End Sub

[此贴子已经被作者于2006-12-4 18:02:07编辑过]