首页 / ACCESS / VB操作access数据库
VB操作access数据库
内容导读
互联网集市收集整理的这篇技术教程文章主要介绍了VB操作access数据库,小编现在分享给大家,供广大互联网技能从业者学习和参考。文章包含2767字,纯文字阅读大概需要4分钟。
内容图文
![VB操作access数据库](/upload/InfoBanner/zyjiaocheng/564/3d56dd86ef6849ab8dbc2cce6b541234.jpg)
第一次用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" '连接数据库函数,第一个参数为数据库驱动,第二个参数为数据库路径然后,是对数据库各种操作语句。
内容总结
以上是互联网集市为您收集整理的VB操作access数据库全部内容,希望文章能够帮你解决VB操作access数据库所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错,欢迎将互联网集市网站推荐给程序员好友。
内容备注
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 gblab@vip.qq.com 举报,一经查实,本站将立刻删除。
内容手机端
扫描二维码推送至手机访问。