VB操作access数据库

来源：懂视网责编：小采时间：2020-11-09 15:29:19

VB操作access数据库

VB操作access数据库:第一次用VB来连接Access数据库，由于不了解VB语法，老是出现bug。现在看来，其实很简单，有好几种方法来连接，包括ADO控件、利用ADO对象等方法。由于ADO控件操作局限性太大，本文采用ADO对象来操作。过程如下：准备工作: 建立数据库 E:\operatio

推荐度：

点击下载本文 文档为doc格式

导读VB操作access数据库:第一次用VB来连接Access数据库，由于不了解VB语法，老是出现bug。现在看来，其实很简单，有好几种方法来连接，包括ADO控件、利用ADO对象等方法。由于ADO控件操作局限性太大，本文采用ADO对象来操作。过程如下：准备工作: 建立数据库 E:\operatio

第一次用VB来连接Access数据库，由于不了解VB语法，老是出现bug。现在看来，其实很简单，有好几种方法来连接，包括ADO控件、利用ADO对象等方法。由于ADO控件操作局限性太大，本文采用ADO对象来操作。过程如下：准备工作: 建立数据库 E:\operation.accdb；

第一次用VB来连接Access数据库，由于不了解VB语法，老是出现bug。现在看来，其实很简单，有好几种方法来连接，包括ADO控件、利用ADO对象等方法。由于ADO控件操作局限性太大，本文采用ADO对象来操作。过程如下：

准备工作: 建立数据库 E:\operation.accdb；建数据表:selection；数据表中,建字段:User,Password,并添加一条记录

点工程->引用选中Microsoft Activex Data Objects 6.1 Library（注：选择最高版本就行）

1、数据库查询

首先添加控件:添加一个文本框,一个命令按钮

Private Sub Command1_Click()
Dim Conn As New ADODB.Connection '创建ADODB对象，用于连接数据库操作
Dim Rs As New ADODB.Recordset '创建ADODB对象，用于返回取得的数据库内容
Conn.Open "Provider=microsoft.ace.oledb.12.0;Data Source=E:\operation.accdb" '连接数据库函数，第一个参数为数据库驱动，第二个参数为数据库路径

sql = "Select Password From select where User='a'" 
'selection请换成你的实际数据表名
Rs.Open sql, Conn, 1, 3 '查询数据库，第一个参数为数据库查询语句，第二个参数为数据库连接，第三个和第四个分别为对数据库的操作权限；
If Rs.EOF Then
MsgBox "没有找到此用户"
Else
Text1.Text = Rs("Password")
End If
Conn.close
Rs.close
End Sub

2、数据插入

首先添加控件:添加两个文本框,一个命令按钮

Private Sub Command1_Click()
Dim s1 As String
Dim s2 As String
Dim Conn As New ADODB.Connection
Conn.Open "Provider=microsoft.ace.oledb.12.0;Data Source=E:\operation.accdb"

s1 = Text1.Text
s2 = Text2.Text
sql = "Insert Into selection Values('" & s1 & "','" & s2 & "')"
Conn.Execute sql
Conn.close
End Sub

3、删除数据库中的某个记录

首先添加控件:添加一个文本框,一个命令按钮

Private Sub Command1_Click()
Dim s As String
Dim Conn As New ADODB.Connection
Conn.Open "Provider=microsoft.ace.oledb.12.0;Data Source=E:\operation.accdb"

s = Text1.Text
sql = "Delete From selection Where User = '" & s & "'"
Conn.Execute sql
Conn.close
End Sub

4、更新数据库某个记录

首先添加控件:添加一个文本框,一个命令按钮

Private Sub Command1_Click()
Dim s As String
Dim Conn As New ADODB.Connection
Conn.Open "Provider=microsoft.ace.oledb.12.0;Data Source=E:\operation.accdb"
s = Text1.Text
sql = "Update selection Set [Password] = '" & s & "' Where [User] = 'a'"

Conn.Execute sql
Conn.Close
End Sub

总结

首先是建立数据库连接：

Private Sub Command1_Click()
Dim Conn As New ADODB.Connection '创建ADODB对象，用于连接数据库操作
Dim Rs As New ADODB.Recordset '创建ADODB对象，用于返回取得的数据库内容
Conn.Open "Provider=microsoft.ace.oledb.12.0;Data Source=E:\operation.accdb" '连接数据库函数，第一个参数为数据库驱动，第二个参数为数据库路径

然后，是对数据库各种操作语句。

声明：本网页内容旨在传播知识，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。TEL:177 7030 7066 E-MAIL:11247931@qq.com

VB操作access数据库

推荐度：

点击下载本文 文档为doc格式

标签：操作连接数据

热门焦点

VB操作access数据库

VB操作access数据库

VB操作access数据库

最新推荐

猜你喜欢

热门推荐