VB小程序，关注我有更多的有趣的VB小程序

如果要使用.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数据库并取数

想得到更多的VB小程序，请关注我，点击下方的广告可以更好的支持和鼓励我哦！