分类导航
PHPJavaPythonC#C&C++RubyVBasp.NetGoPerlDjangoDelphiJspSpringLuaLaravelMybatisAspGroovyThinkPHP

VB通过DAO访问Access数据库

VB   发布时间：2022-04-03  发布网站：大佬教程  code.js-code.com
大佬教程收集整理的这篇文章主要介绍了VB通过DAO访问Access数据库，大佬教程大佬觉得挺不错的，现在分享给大家，也给大家做个参考。
VB通过DAO访问Access数据库 @H_673_4@ @H_673_4@
@H_673_4@ @H_944_8@
DAO就是Database Access Object，数据库访问对象的英文缩写。在VB中提供了两种与jet数据库引擎接口的方法：Data控件和数据访问对象（DAO）。Data控件只给出有限的不需编程而能访问现存数据库的功能，而DAO模型则是全面控制数据库的完整编程接口。Data控件将常用的DAO功能封装在其中，它与DAO控件的关系就好象内存与CACHE之间的关系一样，所以这两种方法并不是互斥的，实际上，它们常同时使用

引用DAO类型库
1、从“工程”菜单中选择“引用”菜单项；
2、在可引用列表框中选择“MIcrosoft DAO 3.6 Object Library”项
3、最后“确定”即可

设置DAO数据类型变量
DAO数据类型变量共分成两种：
1、Database变量
Public db As Database
对应于Access数据库，通常在模块中被定义为Public全程变量
2、RecordSet变量
Dim rs As RecordSet

设置DAO数据类型变量（二）
建立了数据库对象变量后，我们便可打开数据库了，在一般情况下都只是访问一个数据库，当打开数据库后再对数据库中的各个记录进行操作，这就要用到Recordset 对象建立记录集
例如：

打开数据库
Private Sub Command_OpenDatabase_Click() @H_673_4@
Dim db as Database Dim rs As Recordset @H_673_4@
Set db = OpenDatabase ( App.path & "\数据库名称.mdb" ) @H_673_4@
Set rs = db.openRecordset ( " SELEct * from 表名 " ) @H_673_4@
End Sub @H_673_4@
这样，数据库中的记录便放到Recordset中，可以进行后续操作了
Opendatabase 方法
Opendatabase 方法是打开数据库并返回此数据库的database对象，其语法如下：
Set database的对象变量＝opendatabase ([数据库名称及路径],[除外性],[只读])
除外性：由true和false值所构成，当值为true时代表仅允许唯一的使用者使用数据库。
只读：由true和false值所构成，为true代表数据库仅提供读取的服务

Opendatabase 方法（二）
OpenDatabase方法有两种给出路径的方法
Set db = OpenDatabase ( App.path & "\student.mdb" )
App.path对象返回目前运行程序所在的路径名称，使用相当路径避免了程序变换了路径的麻烦，但必须保证数据库和程序在同一文件夹下
Set db=OpenDatabase(“e:\student.mdb",
false,falsE)

Openrecordset 方法
Openrecordset方法用来创建一个新的recordset对象，语法为：
Set recordset 对象变量＝数据库变量.openrecordset(来源，种类)
Vb所提供的recordset对象有5种，分别为：表（table）、动态集（dynaset）、快照集（snapshot）、动态（dynamic）、正向（forWARD-only），其中经常用的时动态集（dynaset），它实际上是引用一个或多个表种数据记录的集合，是功能最强的数据记录集合类型

Openrecordset 方法
Set rs = db.openRecordset ( " SELEct * from 表名 " )
Set rs = db.openRecordset ( “ SELEct * from 表名 ”，dbopendynaset )

Fields集合
Fields集合包括结果集合全部 Field对象，这些 Field对象引用方法为： Rs.Fields(I)，其中 I是该 Field对象在中的位置序号，从 0开始计数,Rs.Fields(0)表示你的数据库的第一个字段，如：
Rs.Fields(I)＝”111”

使用数据库
当打开数据库，建立Recordset 记录集后，便可浏览、删除、添加、查找数据库中的内容
使text显示数据如下：
Text1.caption=rs.fields(0)
Text1(I).caption=rs.fields(I)
Recordcount 属性
Recordcount 属性用来记录目前数据记录的数量，如判断数据库是否为空：
If rs.recordcount > 0 then
End if

删除记录
Private Sub cmd_del_Click() @H_673_4@
On Error GoTo handle @H_673_4@
Dim msg as String msg = "是否要删除记录"& Chr$(10) msg = msg & label(0) ′把删除记录的代号加入msg中 @H_673_4@
If Msgbox(msg,17,"删除记录") <> 1 Then Exit sub rs.delete rs.Movenext @H_673_4@
If rs.EOF = True Then @H_673_4@
rs.MovePrevious @H_673_4@
End if 　　

删除记录（二）
for I = 0 to 11 label(I).caption = rs.Fields(I) & "" next Exit Sub
handle: MsgBox "该记录无法删除!!!" End Sub
On error goto 语法
目的是为了程序运行时，一旦发生错误，即可通过该程序代码，将程序运行流程切换到适当位置，进行适当处理，避免死机
On error goto 的程序代码编写位置，必须在发生错误的程序代码之前，因此，常常将它写在程序或某个程序功能模块的最前面
添加记录
向数据库中添加记录比较麻烦一点，大致分为三步：首先，用AddNew方法向数据库添加一个新的空白记录；其次，将要输入的数据分别赋到数据库的各个字段中；最后，用updata的方法，把记录写到数据库中去

添加记录
Private Sub cmd_new_Click() @H_673_4@
rs.AddNew @H_673_4@
For I = 0 to 11 @H_673_4@
rs.Fields(I) = TextBox(I).Text Next @H_673_4@
rs.updata @H_673_4@
End Sub 　　
查找记录
Private Sub Cmd_search_Click() @H_673_4@
Set rs = dbase.openRecordset("表名"，dbopenDynaset) @H_673_4@
rs.findfirst "字段名= ' " & Text.Text & " ' " ′ Text.Text是输入的关键字 @H_673_4@
if rs.Nomatch = True then @H_673_4@
@H_28_10@msgbox "对不起，没有该记录" @H_673_4@
else @H_673_4@
For I = 0 to 11 label(I).caption = rs.Fields(I) & "" @H_673_4@
Next @H_673_4@
End if @H_673_4@
rs.close @H_673_4@
End Sub 　　修改记录Rs.editRs.fields(I)=text1(I)Rs.updata @H_673_4@ @H_673_4@

大佬总结

以上是大佬教程为你收集整理的VB通过DAO访问Access数据库全部内容，希望文章能够帮你解决VB通过DAO访问Access数据库所遇到的程序开发问题。

如果觉得大佬教程网站内容还不错，欢迎将大佬教程推荐给程序员好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。
如您有任何意见或建议可联系处理。小编QQ：384754419，请注明来意。
标签：accessdaovb数据库访问通过
猜你在找的VB相关文章
其他相关热搜词更多
phpJavaPython程序员load中如何string使用参数jquery开发安装listlinuxiosandroid工具javascriptcap