ADO 与 DATAGRID 问题，急盼高手指点

Question

Dim connectstr As String
    Dim Rs As New ADODB.Recordset
    
    connectstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
        App.Path & "\stocks.mdb;Persist Security Info=False"
    Rs.ActiveConnection = connectstr
    Rs.Open "select * from paperstocks"
    
    Set DataGrid1.DataSource = Rs '这里出现错误：行集合不能作为标签
    Dim connectstr As String
    Dim Rs As New ADODB.Recordset
    
    connectstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
        App.Path & "\stocks.mdb;Persist Security Info=False"
    Rs.ActiveConnection = connectstr
    Rs.Open "select * from paperstocks"
    
    Set DataGrid1.DataSource = Rs '这里出现错误：行集合不能作为标签请问原因是什么，如何解决

Answer 1

rs.Open "SELECT * FROM USERPASSWORD", cn, adOpenStatic, adLockOptimistic 
Set DataGrid1.DataSource = rs请以静态(adOpenStatic)或者键集(adOpenKeyset)的方式打开记录集!!
你没指定,默认的是只向前的记录集(adOpenForwardOnly)的记录集,不能做为DATAGRID的数据源!!
建议你用MSHFlexGrid1控件,它可以!!

Answer 2

谢你了，现在错误没有了，但是记录没显示出来，这可能是什么原因呢？用ADO控件一切正常的。另外你说的 MSHFlexGrid 功能是否不强，是不是不能对数据进行编辑？？

Answer 3

能否提供一个例子：ADO对象加 DATAGRID 控件，可用代码方式修改记录(用FIELD()，发现不好使)，查找记录(跟据编号字段查找，将记录移到吻合的一条)，将感激不尽，分数加倍

Answer 4

Rs.ActiveConnection = connectstr有问题!
根本没有打开数据源!
改为：
Dim connectstr As String
    dim cn as new adodb.connection
    Dim Rs As New ADODB.Recordset
    
    connectstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
        App.Path & "\stocks.mdb;Persist Security Info=False"
    cn.open connectstr
    Rs.Open "select * from paperstocks",cn,1,3
    Set DataGrid1.DataSource = Rs 

Answer 5

在Rs.Open "select * from paperstocks 前加上Rs.CursorLocation = adUseClient

Answer 6

ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbfilename & ";Persist Security Info=False;"
conn.Open ConnectString
conn.CursorLocation = adUseClientSet rs = New ADODB.Recordset
rs.Open "select * from orders", conn, adOpenDynamic, adLockPessimistic
Set DataGrid1.DataSource = rs

Answer 7

要把recordset绑定到datagrid上，必须设置recordset的游标引擎的位置为aduseclient,因为默认的是adUseServer