请高手帮帮我看这个有关ADO和DataGrid的问题怎么解决!?

Question

Private Sub Command1_Click()
Dim cnn As Object
Dim rs As ObjectSet cn = CreateObject("ADODB.connection")
Set rs = CreateObject("ADODB.recordset")cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\db1.mdb"
rs.Open "Select * From 表1", cnSet DataGrid1.DataSource = rsEnd Sub然后提示错误"实时错误"7004" 行集合不能作为标签"请问这个问题怎么解决?谢谢!

Answer 1

cn.CursorLocation = adUseClient

Answer 2

cn.CursorLocation = adUseClient
这个没有办法使用啊,提示错误

Answer 3

加ADO控件，设置ADO控件的属性，再把DataGrid的DataSource设置为ADO控件。

Answer 4

楼上的大哥,能不能不用ADODC控件啊?还有of123()大哥
你说的加cn.CursorLocation = adUseClient只实用在引用了ADO后!才不会提示错误,才能正常使用而我的是使用
Set cn = CreateObject("ADODB.connection")
Set rs = CreateObject("ADODB.recordset")而不是使用
dim cn as new ADODB.connection
dim rs as new adodb.recordset所以提示了什么参数冲突的错误提示!请问使用我用的这个
Set cn = CreateObject("ADODB.connection")
Set rs = CreateObject("ADODB.recordset")
方法,应该怎么解决
Set DataGrid1.DataSource = rs
出现的"实时错误"7004" 行集合不能作为标签"错误提示!
谢谢

Answer 5

楼主的问题好象也曾经碰到过类似的,不过我是使用文件对象系统fso时出现的CreateObject是asp中也使用的,而new关键字也可以用在vb中,因为本人也会asp,所以就想习惯使用CreateObject,但是却行不通.
如果你要实现功能的话,你就引用ado对象咯

Answer 6

Private Sub Command1_Click()
Dim cn As Object
Dim rs As Object
Set cn = CreateObject("ADODB.connection")
Set rs = CreateObject("ADODB.recordset")
'rs.CursorLocation = adUseClient '或者用这句，不用cn.CursorLocation = adUseClient也可以，这两句各用一句就可以了
cn.CursorLocation = adUseClient
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\db1.mdb;"
rs.Open "Select * From 表1", cn'MsgBox
Set DataGrid1.DataSource = rsEnd Sub我已经测试过了可以！！