VB6.0使用ADO连接Access2003数据库

VB6.0使用ADO连接Access2003数据库

通过应用ADO建立与Access2003的连接，并显示数据。

新建一个标准工程，创建一个新窗体，默认的“名称”属性为Form1

引用ADO对象。选择Visual Basic菜单中的“工程”/“引用”命令，然后选中Microsoft ActiveX Data Objects 2.5 Library复选框，单击“确定”按钮，此时，ADO对象群中的Connection、Rrcordset、Command和Fields等对象成为程序可以引用的对象。

在Form1窗体上添加一个CommandButton控件，设置其Caption属性为“退出”。

在Form1窗体上添加一个MSHFlexGrid控件，用于显示Access数据表中的数据。该控件属于ActiveX控件，使用前应先将其添加到工具箱中。

编写代码如下：

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

Private Sub Command1_Click()

End

End Sub