Question

VB，ADO对象的引用

Private Sub Form_Load()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db_medicine.MDB"
rs.Open "tb_kc", cn, adOpenKeyset, adLockOptimistic
Set MSHFlexGrid1.DataSource = rs
MSHFlexGrid1.ColWidth(0) = 100
End Sub
1、ADODB是什么2、请把这六行代码写出注释

Answer 1

ADODB 是 Active Data Objects Data Base 的简称，它是一种存取数据库的中间组件。Dim cn As New ADODB.Connection'定义个新的adodb的数据源（connection）
Dim rs As New ADODB.Recordset'定一个用来读取数据的recordset
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db_medicine.MDB"'打开数据库地址和一些配置参数
rs.Open "tb_kc", cn, adOpenKeyset, adLockOptimistic'打开数据的表，后面两个是打开的方式，具体参数你可以查资料
Set MSHFlexGrid1.DataSource = rs'绑定MSHFlexGrid1数据源为刚才查询出来的数据
MSHFlexGrid1.ColWidth(0) = 100'设置宽度。

Answer 2

1、ADODB 是 Active Data Objects Data Base 的简称，它是一种存取数据库的中间函式组件。2、注释 Dim cn As New ADODB.Connection '定义一个ADO连接cn
Dim rs As New ADODB.Recordset '定义一个记录集rs
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db_medicine.MDB" '打开指定路径数据库的连接cn
rs.Open "tb_kc", cn, adOpenKeyset, adLockOptimistic '锁定只读打开SQL语句为tb_kc的记录集
Set MSHFlexGrid1.DataSource = rs ‘将记录集里的数据赋值给MSHFlexGrid1的数据源
MSHFlexGrid1.ColWidth(0) = 100

Answer 3

Dim cn As New ADODB.Connection '定义一个连接
Dim rs As New ADODB.Recordset '定义纪录集cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db_medicine.MDB"
rs.Open "tb_kc", cn, adOpenKeyset, adLockOptimistic '打开数据连接
Set MSHFlexGrid1.DataSource = rs '设置网格控件的数据源
MSHFlexGrid1.ColWidth(0) = 100 '设置第一列的宽度为100