Me.Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=book.mdb;Persist Security Info=False;"
Me.Adodc1.RecordSource = "select BookTypeName,BookNo,BookName,BookWriter,BookPublish,BookPrice from BookInfo,BookType where BookInfo.BookType=BookType.TypeId"
Set DataGrid1.DataSource = Adodc1
abodc1.Refresh
Me.Adodc1.RecordSource = "select BookTypeName,BookNo,BookName,BookWriter,BookPublish,BookPrice from BookInfo,BookType where BookInfo.BookType=BookType.TypeId"
Set DataGrid1.DataSource = Adodc1
abodc1.Refresh
博客内容展示了使用Adodc1连接数据库的代码,设置连接字符串指向book.mdb数据库,指定记录源为从BookInfo和BookType表中查询相关字段,最后将DataGrid1的数据源设置为Adodc1并刷新,涉及数据连接与展示。
3711

被折叠的 条评论
为什么被折叠?



