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操作ACCESS数据库实例

  • 2008年10月15日 23:49
  • 12KB
  • 下载

VB操作ACCESS数据库代码

VB引用项目如下:Microsoft ADO Ext. 2.8 for DDL and SecurityMicrosoft ActiveX Data Objects 2.8 LibraryCOM+ S...
  • xqf222
  • xqf222
  • 2006-06-20 14:55:00
  • 5179

详解VB中连接access数据库的几种方法

在VB中,连接ACCESS数据库的方法主要有下面三种      使用ADO对象,通过编写代码访问数据库                       Connection 对象...
  • GarfieldEr007
  • GarfieldEr007
  • 2017-03-26 22:21:19
  • 1648

vb连接access数据库及各种操作(添加删除修改)

  • 2012年09月11日 12:17
  • 15KB
  • 下载

vb与access数据库的操作实例所有VB6.0源代码,有很好的参考价值

  • 2009年05月29日 10:54
  • 6.17MB
  • 下载

vb.net操作access数据库实例

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

vb6.0 连接access数据库 并在窗口显示数据内容

    程序主要包括FORMS 和MODULES两部分一、FORMS     主要为操作界面及界面上各控件的触发事件。       (1) 首先在建立一窗口(form),再在其上添加DATAGRID ...
  • zhizhu8256
  • zhizhu8256
  • 2008-09-20 21:10:00
  • 6586

vb怎样访问网络服务器的access数据库

=============================自定义常量========================================Private Const RESOURCETYPE...
  • a97191
  • a97191
  • 2004-12-30 09:18:00
  • 2327

VB连接Sql Server,Oracle,Sybase,Access数据库操作实例

  • 2008年08月21日 10:54
  • 12KB
  • 下载

WPF连接access的简单信息管理示例

  • 2013年11月13日 10:54
  • 610KB
  • 下载
收藏助手
不良信息举报
您举报文章:VB操作access数据库
举报原因:
原因补充:

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