DAO问题，很简单。解决给分40分

[okcat]

用DAO设置网格控件的数据源的语句怎么写？

Private Sub Form_Load()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = OpenDatabase("e:\学生学籍表.mdb")
Set rs = db.OpenRecordset("select * from 表1")
Set datagrid1.DataSource = rs
End Sub

Set datagrid1.DataSource = rs ，就是这句该怎么写

[lxcc]

DataGrid的数据源需要使用ADO

[haohaohappy]

dim Rs as new Adodb.recordset
dim CNCsDB as new adodb.connection
dim CSWithDB as string'CSWithDB为连接数据库字符串，自己写吧：）我用的是SQL SERVER 你的是ACCESS
CNCsDB.ConnectionString = CSWithDB
CNCsDB.CursorLocation = adUseClient
CNCsDB.Open
Rs.Open "select * from 表1", CNCsDB, adOpenStatic, adLockBatchOptimistic
Set DataGrid1.DataSource = Rs

[haohaohappy]

还是我给你写吧
CSWithDB="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\学生学籍表.mdb;Persist Security Info=False"

[cheng7634]

ding

[of123]

datagrid 与 DAO 不兼容。可以用 DBGrid ＋ Data 控件。

事先将 DBGrid 与 Data 绑定（DBGrid 不支持运行时绑定，也不支持绑定记录集对象）。

Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = OpenDatabase("e:\学生学籍表.mdb")
Set rs = db.OpenRecordset("select * from 表1")

Set Data1.Recordset = rs

[ryuginka]

datagrid 与 DAO 不兼容。用ADO吧