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数据库的几种方法

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

VB.NET操作ACCESS数据库读取存入图片

一、准备工作     在ACCESS数据库中,将字段声明为 OLE链接 类型 二、将图片框中图片转化成二进制数组的方法         Dim MyStream As New System.IO....
  • aocshallo
  • aocshallo
  • 2014年02月28日 00:53
  • 2553

在VB6.0中设置ADO控件属性连接Microsoft ACCESS 2007数据库

在VB6.0中设置ADO控件属性连接Microsoft ACCESS 2007数据库        使用VB6.0一般支持.mdb格式的数据库,为了能够使VB6.0能连接.accdb格式的数据库,需要...
  • ttpage
  • ttpage
  • 2013年06月24日 13:55
  • 2325

VB与Access数据库连接

整理自几罗星人的博客 'Dim Cnn As ADODB.Connection 'Dim rec As ADODB.Recordset 'Private Sub Form_Load() '创建新的...
  • eniron
  • eniron
  • 2017年02月06日 16:17
  • 415

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

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

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

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

VB6.0 对ACCESS的控制总结——无需控件版(建库,删库,建表,删表,增加行,删除行)

'前言: VB6.0对数据库的操作方法很多,对于初学者来说也比较乱.用控件操作数据库是很简洁的,但相对的局限性也变大了.总结了相对简介而使用的几个功能希望大家喜欢. '引用"Microsof...
  • qq_18603023
  • qq_18603023
  • 2014年11月29日 17:04
  • 1778

ACCESS数据库局域网内实现多机数据共享的方法

有不少朋友要把自己的数据库实现局域网内多机共享数据,这里我介绍一下一种简单的实现方法: 1.         首先把程序折分,分成一个前台程序,一个后台数据库。 利用ACCESS的数据库拆分向...
  • u010240338
  • u010240338
  • 2013年06月04日 20:38
  • 4932

c# 操作ACCESS数据库

c# 简单操作ACCESS
  • nanxizhu
  • nanxizhu
  • 2014年11月06日 20:10
  • 2224

C#操作Access数据库步骤

本教程介绍了如何通过ADO.NET的OleDb相关类来操作Access数据库的相关步骤。 1     软件环境 开发平台:Microsoft Visual Studio 2010 数据库:Mic...
  • zhouxy0901
  • zhouxy0901
  • 2014年10月10日 20:13
  • 4442
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VB操作access数据库
举报原因:
原因补充:

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