求助:VB6.0 引用Microsoft ActiveX Data Objects 2.8 Library 动态链接DataGrid这个控件?要求代码!

Question

如题

Answer 1

Dim Conn As New ADODB.Connection ' 实例化ADO连接Conn
Dim Rs As New ADODB.Recordset '实例化一个记录集
Dim Connstr As String ' 连接字符串
Dim Mdbpath As String
Mdbpath = App.Path & "\教学管理.mdb"
Connstr = "DBQ=" + Mdbpath + ";DRIVER={Microsoft Access Driver (*.mdb)};password=''"
Set Conn = CreateObject("ADODB.CONNECTION") '创建Conn对象
Conn.Open Connstr '打开数据库
Set Rs = CreateObject("adodb.recordset") '创建对象Rs记录集
SQL = "select * from 学生" 'SQL语句'Recordset对象可以通过Source属性来连接Command对象。
'Source参数可以是一个Command对象名称、一段SQL命令、一个指定的数据表名称。
'本例中为一段SQL命令
'具体格式为；recordset.Open Source,ActiveConnection,CursorType,LockType,Options
'具体用法请参照有关资料Rs.Open SQL, Conn, 3, 2
Set DataGrid1.DataSource = Rs