VB操作access数据库

原创 2014年04月16日 16:13:39

第一次用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.NET操作ACCESS数据库读取存入图片

一、准备工作     在ACCESS数据库中,将字段声明为 OLE链接 类型 二、将图片框中图片转化成二进制数组的方法         Dim MyStream As New System.IO....

VB通过代码对Access数据库的操作

转csdn帖子中faysky2、lihonggen0的答案,不过自己还未测试,先记录下来 用ADOX:  '菜单“工程”--> "引用 "--> Microsoft ADO ...

vb.net操作数据库之ACCESS(一)

转载自:http://blog.csdn.net/machong8183/article/details/5488191 一直想写下数据库操作方面的,只是没什么时间(好像是借口,应该是懒或者没心情吧...
  • lengyff
  • lengyff
  • 2015年04月05日 11:26
  • 704

vb.net 操作Access数据库帮助类

VB.net 操作Access数据库的一些常用方法,代码如下:Imports System Imports System.Data.SqlClient Imports System.Configura...

vb.net 操作Access数据库帮助类

VB.net 操作Access数据库的一些常用方法,代码如下 Imports System Imports System.Data.SqlClient Imports System.Config...
  • lqh4188
  • lqh4188
  • 2013年12月29日 11:30
  • 5207

VB.NET 使用 OleDb 操作 Access 数据库(来自 MSDN)

VB.NET 使用 OleDb 操作 Access 数据库 这里采用 OleDb 方式对 Access 数据库进行访问,主要内容都来自 MSDN 帮助文档。建议新手注意 MSDN 的用途。 首先导入命...
  • Linmson
  • Linmson
  • 2014年04月03日 13:52
  • 5114

vb.net操作access数据库实例

  • 2009年08月05日 16:39
  • 116KB
  • 下载

ACCESS操作范例(基于VB编写,其他环境可参考)

下面是一个用VB操作ACCESS数据库的一个例子,当中支持添加,删除,修改,查询等基本操作,虽然很多都是使用的是固定字符,但是足够用来做参考了。 ACCESS数据库的名字是“db1.mdb”,数据库...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VB操作access数据库
举报原因:
原因补充:

(最多只允许输入30个字)