＋设为首页 ＋添加到收藏夹
在编一个程序,一个表格控件与ADO事先绑定,我的要求是:在程序中RS记录集如何赋予ADO控件,以使ADO控件能够反映出RS记录集的内容，我用set adodc1.recordset=rs,可是，ＡＤＯ控件无法反映ＲＳ记录集的内容．急，各位帮帮忙
Private Sub Form_Load()
工程--->引用--->Microsoft ActiveX Data Object 2.x
Dim CN As New ADODB.Connection 定义数据库的连接
Dim Rs As New ADODB.Recordset
CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=northwind;User Id=sa;Password=sa;"
CN.Open
Rs.CursorLocation = adUseClient
Rs.Open "select * from employees", CN, adOpenDynamic, adLockOptimistic
Set Adodc1.Recordset = Rs
Set MSHFlexGrid1.DataSource = Adodc1
MsgBox Adodc1.Recordset.RecordCount
Adodc1.Recordset.MoveFirst
MsgBox Adodc1.Recordset.Fields(1)
End Sub
有了RS就不要ADODC了，直接set 表格控件的DataSource为RS就可了
对，只能用一种。rs是ADODB记录集。
