VB数据库操作命令

使用VB操作Access数据库指南

最新推荐文章于 2025-09-12 12:28:46 发布

原创

最新推荐文章于 2025-09-12 12:28:46 发布 · 2.5k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#数据库 #vb #table #microsoft #security #database

这篇博客详细介绍了如何使用Visual Basic (VB) 连接和操作Access数据库，包括连接数据库、查询数据、添加记录、删除记录和更新记录的步骤。通过ADODB对象，如Connection和Recordset，演示了具体的VB代码示例。

连接数据库

引用 Microsoft ActiveX Data Objects 2.8 Library

Private Sub Form_Load()

Dim cnn As ADODB.Connection
Set cnn = New ADODB.Connection
cnn.Provider = "Microsoft.Jet.OLEDB.4.0"
Dim cnnFile As String
cnnFile = "Data Source=D:/db.mdb;Persist Security Info=False;Jet OLEDB:Database Password=123456789"
cnn.Open cnnFile

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open Table, cnn, , adLockReadOnly
Set Me.MSHFlexGrid1.DataSource = cnn2.Execute("select * from Table")

'ADO 连接加密Access数据库
cnn2string = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "D:/db.mdb;Persist Security Info=False;Jet OLEDB:Database Password=123456789"

添加

strSQL = "INSERT INTO User_Table(UserID,UserPWD,UserLevel,UserINFO) VALUES('" & Text1(0).Text & "','" & Text1(1).Text & "','" & Combo1.Text & "','" & Text1(2).Text & "')"
&nb