VB小程序,通过代码连接Access数据库并取数

2019-01-11  leafcho

如果要使用.accdb格式的数据库,首先在工程下引用“Microsoft ActiveX Data Objects 6.1 library”

界面:

VB小程序,通过代码连接Access数据库并取数

代码:

Private Sub Command1_Click()

Dim conn As New ADODB.Connection '创建Connection连接对象

Dim rs As New ADODB.Recordset '创建Recordset记录集

Dim i%

Dim a(1 To 11) As Integer

i = 1

conn.ConnectionString = 'Provider=Microsoft.ace.oledb.12.0;data source=E:\mydata\零件.accdb' '确定连接的数据库

conn.Open '打开数据库连接

rs.ActiveConnection = conn '设置记录的连接属性

rs.Open 'select * from lj' '打开记录集

Do While Not rs.EOF '从第一条记录开始查找,直到完成查询

a(i) = rs.Fields(2) '数据放入数组中

List1.AddItem rs.Fields(2) & Space(16) & rs.Fields(3) '数据放入list列表框中

rs.MoveNext

Loop

rs.Close '关闭记录集

conn.Close '关闭数据库的连接

End Sub

数据库:

VB小程序,通过代码连接Access数据库并取数

    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。如发现有害或侵权内容,请点击这里 或 拨打24小时举报电话:4000070609 与我们联系。

    来自: leafcho > 《办公》

    猜你喜欢
    关闭