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

okcat 2004-10-07 11:05:56
用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 ,就是这句该怎么写

...全文
73 点赞 收藏 6
写回复
6 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
ryuginka 2004-10-08
datagrid 与 DAO 不兼容。用ADO吧
回复
of123 2004-10-08
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

回复
cheng7634 2004-10-08
ding
回复
haohaohappy 2004-10-08
还是我给你写吧
CSWithDB="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\学生学籍表.mdb;Persist Security Info=False"
回复
haohaohappy 2004-10-08
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
回复
lxcc 2004-10-08
DataGrid的数据源需要使用ADO
回复
发动态
发帖子

1180

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
社区公告
暂无公告