VB6.0使用ADO连接Access2003数据库
通过应用ADO建立与Access2003的连接,并显示数据。
操作方法
- 01
新建一个标准工程,创建一个新窗体,默认的“名称”属性为Form1
- 02
引用ADO对象。选择Visual Basic菜单中的“工程”/“引用”命令,然后选中Microsoft ActiveX Data Objects 2.5 Library复选框,单击“确定”按钮,此时,ADO对象群中的Connection、Rrcordset、Command和Fields等对象成为程序可以引用的对象。
- 03
在Form1窗体上添加一个CommandButton控件,设置其Caption属性为“退出”。
- 04
在Form1窗体上添加一个MSHFlexGrid控件,用于显示Access数据表中的数据。该控件属于ActiveX控件,使用前应先将其添加到工具箱中。
- 05
编写代码如下: 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
赞 (0)