VB操作MDB数据库：快捷高效的数据处理 (vb 操作mdb数据库)
在软件开发中，常常需要使用数据库来存储和管理数据。而Microsoft Access作为一个比较流行的关系型数据库管理系统，无疑是一个不错的选择。在Visual Basic编程中，我们可以使用Microsoft提供的数据访问组件ADO来操作Access数据库。本文将介绍如何使用VB来操作MDB数据库，以及一些快捷高效的数据处理方法。
一、准备工作
要使用VB来操作MDB数据库，我们需要按照以下步骤进行准备工作：
1. 确认已安装Microsoft Access数据库引擎
在使用VB操作MDB数据库之前，我们需要确保计算机中已安装Microsoft Access数据库引擎。如果未安装，可以在Microsoft官网上下载并安装，或使用以下代码检查是否已安装：
Dim regkey As RegistryKey
regkey = Registry.LocalMachine.OpenSubKey(“SOFTWARE\Microsoft\Office\14.0\Access Connectivity Engine\Engines\ACE”, False)
If (regkey Is Nothing) Then
MessageBox.Show(“Microsoft Access Database Engine未安装！”)
End If
2. 创建数据库文件和表
在使用VB之前，我们需要先创建一个MDB数据库文件，并在其中创建相应的表。Microsoft Access提供了一个可视化界面，我们可以通过该界面轻松创建数据库和表。当然，也可以通过代码来创建和操作数据库，例如：
Dim dbcat As Object
Dim db As Object
Dim tbl As Object
dbcat = CreateObject(“ADOX.Catalog”)
dbcat.Create(“Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\AccessDemo.accdb”)
db = CreateObject(“DAO.DBEngine.36”).OpenDatabase(“D:\AccessDemo.accdb”)
tbl = db.CreateTableDef(“demoTable”)
fld = tbl.CreateField(“ID”, DataTypeEnum.dbLong)
tbl.Fields.Append(fld)
fld = tbl.CreateField(“name”, DataTypeEnum.dbText)
fld.Size = 50
tbl.Fields.Append(fld)
db.TableDefs.Append(tbl)
db.Close()
二、操作MDB数据库
在准备就绪之后，我们就可以使用VB来操作MDB数据库了。具体操作方式如下：
1. 连接数据库
在VB中，我们可以使用ADODB.Connection对象来连接数据库。连接代码示例：
Dim conn As New ADODB.Connection
conn.ConnectionString = “Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\AccessDemo.accdb”
conn.Open()
2. 执行SQL语句
连接数据库之后，我们可以使用ADODB.Command对象来执行SQL语句。代码示例：
Dim cmd As New ADODB.Command
cmd.ActiveConnection = conn
cmd.CommandText = “SELECT * FROM demoTable”
Dim rs As ADODB.Recordset
Set rs = cmd.Execute
3. 处理数据
执行SQL语句后，我们可以通过ADODB.Recordset对象获取查询结果，进而对数据进行处理。代码示例：
Dim i As Integer
While Not rs.EOF
i = i + 1
Debug.Print rs(“ID”), rs(“name”)
rs.MoveNext
Wend
rs.Close
conn.Close
以上代码简单地演示了通过VB操作MDB数据库的基本步骤。对于更复杂的数据处理需求，可以结合各种控件和组件进行扩展。
三、快捷高效的数据处理方法
在实际应用中，我们往往需要对数据进行一系列特定的处理操作，例如数据筛选、排序、分组、汇总等。以下介绍几种在VB中快捷高效的数据处理方法。
1. 使用DataGrid控件显示数据
DataGrid是一种非常实用的控件，可以方便地显示数据并支持多种功能，如排序、筛选、分页等。以下是使用DataGrid控件显示数据的示例代码：
Dim conn As New ADODB.Connection
conn.ConnectionString = “Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\AccessDemo.accdb”
conn.Open
Dim cmd As New ADODB.Command
cmd.ActiveConnection = conn
cmd.CommandText = “SELECT * FROM demoTable”
Dim rs As ADODB.Recordset
Set rs = cmd.Execute
Dim dt As New DataTable
dt.Load rs
DataGrid1.DataSource = dt
rs.Close
conn.Close
2. 使用DataView控件对数据进行筛选和排序
DataView控件可以对DataTable中的数据进行筛选和排序，并支持多列排序和自定义筛选条件。以下是使用DataView控件对数据进行筛选和排序的示例代码：
Dim dt As New DataTable
dt.Load (rs)
Dim dv As New DataView(dt)
dv.Sort = “ID DESC, name ASC”
dv.RowFilter = “ID > 5”
DataGrid1.DataSource = dv
3. 使用ADO数据适配器进行数据处理
ADO数据适配器提供了一种快捷简便的数据处理方法，可以方便地执行SQL操作、加载数据到DataSet并支持数据更新操作。以下是使用ADO数据适配器进行数据处理的示例代码：
Dim conn As New ADODB.Connection
conn.ConnectionString = “Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\AccessDemo.accdb”
conn.Open
Dim adapter As New ADODB.Recordset
adapter.Open “SELECT * FROM demoTable”, conn
Dim ds As New DataSet
adapter.Fill ds, “demoTable”
Dim dv As New DataView(ds.Tables(“demoTable”))
dv.Sort = “name ASC”
DataGrid1.DataSource = dv
以上是VB操作MDB数据库的一些基本方法和快捷高效的数据处理方法。在实际应用中，我们需要灵活结合各种工具和技术，根据具体需求来选择相应的数据处理方式。
相关问题拓展阅读：
使用vb编程如何从mdb数据库中写入，读出图像？
1、从数据库中显示所需要的图片
首先，添加一个Data数据控件,设置它的DatabaseName和RecordSource属性哗散，
strPath = App.Path
If Right(strPath, 1) “\” Then
strPath = strPath & “\”
MyData.DatabaseName = strPath & “ExampleDB.mdb” ‘数据库存地址
MyData.RecordSource = “Info” ‘表名
第二步，添加Image控件用来显示图片，设置它的DataSource和DataField属性。例如本例中: Image1.DataSource=”MyData”和Image1.DataField=” MyPhoto” 。然后设置其它具有数据绑定功能的控件用来显示所要的其它内容，经过这两步的操作，运行程序就可以显示你要的数据了。
2、向数据库中添加需要存储的图片
首先，利用数据控件所具有的AddNew属性，添加一个按钮，双击后添加如下代码MyData.Recordset.AddNew
第二步，为Image控件图片指定图片路径Image1.Picture = LoadPicture(“图片路径”)，经过这两步的操作，就可以向数据库中添加图片了。
这种方法最简单快捷，要写的代码量很少。但是这种方法在运行速度和灵活性方面有一定的限制，适合于初学者和一些简单的应用尘芦兄，要想灵活多变的显示图像，下面介绍的方法或许更适应您的要求。
利用编写代码实现派袭图片的存储与显示
这种方法相对于方法一来说，代码量大，但是它操作灵活，能够满足多样形式下的操作，受到更多编程者的青睐。但是涉及到的知识面相对要多一些，不仅要掌握数据库的操作方法，还要二进制文件的读写作进一步的了解。关于数据库及二进制文件的基本操作很多参考书上都介绍的比较详细，需要时请查阅即可。在编程之前把本部分用到的变量说明如下：
Dim RS As New ADODB.Recordset
Dim Chunk() As Byte
Const ChunkSize As Integer = 2384
Dim DataFile As Integer, Chunks, Fragment As Integer
Dim MediaTemp As String
Dim lngOffset, lngTotalSize As Long
Dim i As Integer
1、从数据库中显示所需要的图片
之一步首先打开数据库，看有没有要查找的内容，有则继续执行，没有就退出
RS.Source = “select * from Info Where Name='” & sparaName &”‘;”
RS.ActiveConnection = “UID=;PWD=;DSN=TestDB;”
RS.Open
If RS.EOF Then RS.cCose : Exit Sub
第二步，读出长二进制数据即图片数据，把它转换成图片文件，操作过程如下
MediaTemp = strPath & “picturetemp.tmp”
DataFile = 1
Open MediaTemp For Binary Access Write As DataFile
lngTotalSize = RS!MyPhoto.ActualSize
Chunks = lngTotalSize \ ChunkSize
Fragment = lngTotalSize Mod ChunkSize
ReDim Chunk(Fragment)
Chunk() = RS!MyPhoto.GetChunk(Fragment)
Put DataFile, , Chunk()
For i = 1 To Chunks
ReDim Chunk(ChunkSize)
Chunk() = RS!MyPhoto.GetChunk(ChunkSize)
Put DataFile, , Chunk()
Next i
Close DataFile
第三步，关闭数据库，这样就可以显示所要的图片了。
RS.Close
If MediaTemp = “” Then Exit Sub
Picture1.Picture = LoadPicture(MediaTemp)
If Picture1.Picture = 0 Then Exit Subj
2、向数据库中添加需要存储的图片
向数据库添加存储的图片是显示图片逆过程，只要掌握了显示图片的操作，存储图片的操作也就迎刃而解了，下面将操作步骤介绍如下
之一步首先打开数据库，过程如下：
RS.Source = “select * from Info ;”
RS.CursorType = adOpenKeyset
RS.LockType = adLockOptimistic
RS.ActiveConnection = “UID=;PWD=;DSN=TestDB;”
RS.Open
第二步，把要存储的图片转换成二进制长文件存入数据库中，操作过程如下
RS.AddNew
DataFile = 1
Open strPathPicture For Binary Access Read As DataFile
FileLen = LOF(DataFile) ‘ 文件中数据长度
If FileLen = 0 Then : Close DataFile : RS.Close : Exit Sub
Chunks = FileLen \ ChunkSize
Fragment = FileLen Mod ChunkSize
ReDim Chunk(Fragment)
Get DataFile, , Chunk()
RS!MyPhoto.AppendChunk Chunk()
ReDim Chunk(ChunkSize)
For i = 1 To Chunks
Get DataFile, , Chunk()
RS!MyPhoto.AppendChunk Chunk()
Next i
Close DataFile
第三步，更新纪录后，关闭数据库，就完成了数据图片到数据库的存储。
RS.Update
RS.Close
Set RS = Nothing
两种方法在使用方面各有所长，读者可以针对自己的情况做出合理的选择。
VB如何连接ACCESS数据库
由于VB本身并不带有可以访问数据库的类,所以我们需要引用一个包含能访问数并慎据库的类来使盯派用数据库.这里我们采用ADODB,相比DAO和能访问数据库的API来说,它比DAO更灵活,更强大;而比起API,它更简单易用,更适合初学者.而Access数据库比起SQL,也相对简单了很多,且能够满足中小型应用程序的需要,所以我们在使用数据库时,选择了Access.
就像使用文本文件来存储数据一样,我们需要先设计好数据结构,只不过在设计Access数据库的结构时,我们需要用到其它的程序来进行详细的规划.建议采用的程序是office中的Access或VB自带的VISDATA.
当数据库设计好了以后,我们可以开始数据库编程了.
首先,我们需要引用ADO.具体的方法是,在工程 — 引用 中,找到Microsoft ActiveX Data Object *.* Library,这里的*.*是指的时ADO的版本号,一般来说,应用程序或ActiveX控件都具有向下兼容性,所以我们尽可能选择比较新的版本.以确保程序在能识别旧版本Access的同时,也能识别较新版本的Access.
然后我们需要在程序中创建一个对象.就好比我们在窗体上添加一个FileBox才能看到文件名一样,只有创建了ADO对象,我们才能够访问数据库.常用的对象有两个,Connection和Recordset.
创建这两个对象的具体方法是:
1.在引用后,使用New关键字,如
Private Conn As New ADODB.Connection
Private Reco As New ADODB.Recordset
2.在没引用时,用CreateObject创建对象:
Dim Conn,Reco
Set Conn = CreateObject(ADODB.Connection)
Set Reco = CreateObject(ADODB.Recordset)
创建了对象之后,下一步我们要做的就是打开数据库了.
先看下面的代码,可以成功的打开数据库.
Conn.open Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Main.mdb
这句代码打开了D盘中的Main.mdb这个数据库.
Connection.Open方法的之一个参数是连接代码,它将传递给系统的数据库引擎.前半部分Provider=Microsoft.Jet.OLEDB.4.0,它表示了数据库的类型.不同的数据库可能会不同.后半句Source=d:\main.mdb它表示了数据库所在的绝对路径.
打开数据库之后,还要打开表.假如数据库中有一个表,表名为Users,字段有两个,一个为用户名,一个为密码.那么看以下代码.
1.想返回Users中,为去年烟花的
Recordset.open Select 密码 From Users Where 用户名=’去年烟花’,Connection,1,1
之后我们就可以把用户输入的密码进行比较,看是否允许登录.
If Recordset.eof and Recordset.bof then
Msgbox 用户不存在!,16
Else
If PassWord =Recordset(密码).value then
msgbox 登录成功!,64
Else
msgbox 密码错误!,32
End If
End If
Recordset.Close
2.假设Admin已经成功登录系统,我们想把所有的用凯蔽贺户名和密码都显示出来
Recordset.open Select * From Users,Connection,1,1
这时,表已经被打开,我们就用以下代码把它显示出来.
Do whlie Not Recordset.eof
Print 用户名:
Recordset(用户名).value
密码:
Recordset(密码).value
Recordset.MoveNext
Loop
Recordset.Close
由以上代码示例可以看出,打开表时,可以只打开其中的一个字段,也可以打开所有.之一个参数是SQL语句.
Select From 表名
这里的条件可以省略.且字段名也可以用*来代替所有字段.
需要注意的是,如果你用(1)中的方法打开,那么(2)后面显示的代码就不能再用在(1)中.因为(1)里并没有打开字段,所以这一句Recordset(密码)就没有值存在,还有可能出错.
后面的条件,可以用=、、等运算符.比如 Where ID
32.(这里假设为数字型.)
这是打开的部分.第二个很重要的部分就是查询记录.
数据库它并不是把所有记录全部放到一个变量中备用的.而是以当前记录的形式来返回一个值.所以我们想从中找到有用的信息,就必须要对信息进行定位/筛选.
定位:
移动到下一条 Recordset.MoveNext
移动到上一条 Recordset.MovePrevious
移动到最后一条 Recordset.MoveLast
移动到之一条 Recordset.MoveFrist
移动到某一条 Recordset.Move Number
筛选:
Recordset.Find 条件
如:
Private Sub Command1_Click()
Recordset.Find 用户名=
text1.text
If Recordset.Eof
True Then
Msgbox 该用户的密码是:
Recordset(密码).value,64
Else
Msgbox 未找到该用户的资料!,16
End If
End Sub
MoveNext 只有当Eof不为True时,才可用,否则发生错误.而MovePrevious刚是Bof不为True时….
而只要Eof 和 Bof中有一个不为真时,也就是说只要有一条记录时,它就可以使用.
Find 方法中的条件和Open时的之一个参数中的条件表述方法是完全一致的.当在已打开的记录集中,找不到该记录时,Eof为True.找到则当前的值就是符合条件的记录.
第三个部分就是添加/修改记录.
修改记录很简单,先按以上的方法找到相关记录之后,给记录赋值就可以了.
比如:
Recordset(密码).value =
Recordset.Updata
需要注意的就是,在修改完成后,要调用Updata方法,这样修改才能生效.
而添加记录则可以用以下代码来实现:
Recordset.addnew
Recordset(用户名).value = Admin
Recordset(密码).value = Admin
Recordset.Updata
这里,先要调用Addnew方法,增加一条新记录,然后对这个新记录中的各字段赋值,最后再调用Updata方法.
到这里就差不多了,最后说一下上面提到的几个方法.
Recordset.Open SQL语句,数据源,游标类型,打开方法
SQL语句不用说了,就是Select那啥的,目的就是按要求从表中返回数据
数据源就是一个打开之后的Connection对象.
填1就可以了
打开方法对应了几个常数,具体哪几个可以从对象浏览器里看。
对应数值的意义:
1 只读 2 独占 3 可写 4 自已可写,别人可读。
Connection.open 连接代码,服务器用户名,密码。
关于vb 操作mdb数据库的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。
