VB通过DAO访问ACCESS数据库
直接通过DAO操作ACCESS数据库
直接通过ADO操作Access数据库作者：徐景周下载示例源码上次经过<直接通过ODBC读、写Excel表格文件>和<直接通过DAO读、写Access文件>两篇文章，给大家介绍了ODBC和DAO两种数据库访问技术的基本使用方法，这次要给大家介绍的是ADO数据库访问技术的使用方法。
ADO(Active Data Object，活动数据对象)实际上是一种基于COM(组件对象模型)中的自动化接口(IDispatch)技术，并以OLE DB(对象连接和镶入的数据库)为基础，经过OLE DB精心包装后的数据库访问技术，利用它可以快速的创建数据库应用程序。
ADO提供了一组非常简单，将一般通用的数据访问细节进行封装的对象。
由于ODBC 数据源也提供了一般的OLE DB Privider，所以ADO不仅可以应用自身的OLE DB Privider，而且还可以应用所有的ODBC驱动程序。
关于OLE DB和ADO的其它详细情况，读者可以自行查阅相关书籍或MSDN，这里就不一一说明了。
让我们直接步入主题，如何掌握ADO 这种数据库访问技术。
ADO的操作方法和前面讲过的DAO的操作在很多方面存在相似之处，在这里，笔者为了更有效的说明它的使用方法，用VC6.0做了一个示例程序(AdoRWAccess)，这个示例程序可以直接通过ADO来操作Access数据库，示例程序的运行效果如下图所示：在示例程序中我们仍采用原库结构，数据库名Demo.mdb，库内表名DemoTable，表内字段名为Name(姓名)和Age(年龄)的两个字段，来构造示例程序操作所需的Access数据库，这也和上两篇文章的示例源码中的库结构相兼容。
下面让我们看看ADO数据库访问技术使用的基本步骤及方法：首先，要用#import语句来引用支持ADO的组件类型库(*.tlb)，其中类型库可以作为可执行程序(DLL、EXE等)的一部分被定位在其自身程序中的附属资源里，如：被定位在msado15.dll的附属资源中，只需要直接用#import引用它既可。
VB通过DAO访问Access数据库
VB通过DAO访问Access数据库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() Dim db as Database Dim rs As Recordset Set db = OpenDatabase ( App.path & "\数据库名称.mdb" ) Set rs = db.OpenRecordset ( " select * from 表名" ) End Sub 这样，数据库中的记录便放到Recordset中，可以进行后续操作了Opendatabase 方法Opendatabase 方法是打开数据库并返回此数据库的database对象，其语法如下：Set database的对象变量＝opendatabase ([数据库名称及路径],[除外性],[只读]) 除外性：由true和false值所构成，当值为true时代表仅允许唯一的使用者使用数据库。
VBA操作Access数据库的综合案例
VBA操作Access数据库的综合案例在本篇文章中，我将介绍一个基于VBA的综合案例，该案例涉及使用VBA操作Access数据库。
我们将通过一个具体的示例来展示如何利用VBA编写代码，以实现对Access数据库的读取、写入和更新等操作。
这个案例将帮助读者了解和学习如何使用VBA来操作Access数据库，并在实际应用中发挥作用。
首先，我们需要明确本案例的目标。
我们将创建一个学生信息管理系统，该系统可以用于记录学生的个人信息及其成绩。
我们将使用Access数据库来存储学生信息，然后通过VBA编写代码来实现对数据库的操作。
在开始编写代码之前，我们需要先创建一个Access数据库，并在其中创建一个名为"Student"的表格，该表格包含以下字段：学生ID、学生姓名、性别、年龄、班级、数学成绩、英语成绩、总分。
接下来，我们将通过VBA来实现对这个表格的各种操作。
我们首先需要在VBA中引用Microsoft Access Object库，这样才能使用Access的相关功能。
在VBA编辑器中选择"工具"->"引用"，然后勾选上"Microsoft Access 16.0 Object Library"。
这样我们就可以使用Access的对象、方法和属性了。
接下来，我们可以开始编写代码。
我们将以以下功能为例进行说明：1. 添加新学生信息：我们可以通过以下代码向数据库中添加新的学生信息。
```vbaSub AddNewStudent()Dim db As DAO.DatabaseDim rs As DAO.Recordset'read student informationDim studentID As LongDim studentName As StringDim gender As StringDim age As IntegerDim className As String'connect to the databaseSet db = CurrentDb()Set rs = db.OpenRecordset("Student", dbOpenDynaset) 'input student informationstudentID = InputBox("Enter Student ID:")studentName = InputBox("Enter Student Name:")gender = InputBox("Enter Gender:")age = InputBox("Enter Age:")className = InputBox("Enter Class Name:")'add new record to the tableWith rs.AddNew!StudentID = studentID!StudentName = studentName!Gender = gender!Age = age!ClassName = className.UpdateEnd With'close the recordset and the databasers.Closedb.CloseSet rs = NothingSet db = NothingMsgBox "New student added successfully!"End Sub```上述代码首先连接到数据库，然后通过InputBox函数获取用户输入的学生信息，在表格中添加新的记录，最后关闭数据库。
在VBA中操作Access数据库的方法和技巧
在VBA中操作Access数据库的方法和技巧VBA（Visual Basic for Applications）是一种用于Microsoft Office应用程序的编程语言。
在许多办公环境中，Microsoft Access 是常用的数据库管理系统。
通过使用VBA，您可以利用Access数据库中的数据和功能来编写自定义的应用程序。
本文将介绍在VBA中操作Access数据库的一些方法和技巧，帮助您更有效地处理数据。
首先，让我们了解一些基本概念。
在操作Access数据库之前，您需要了解表、字段以及如何连接数据库。
在Access中，表是数据的集合，字段是表中的列。
通过连接数据库，您可以将VBA与Access数据库建立起联系。
以下是一些常用的方法和技巧来操作Access数据库。
1. 连接到Access数据库在VBA代码中，您可以使用ADODB（ActiveX Data Objects DataBase）对象连接到Access数据库。
首先，需要声明变量来表示数据库连接。
然后，使用`OpenDatabase`方法打开连接。
以下是连接到Access数据库的示例代码：```vbaDim db As DatabaseSet db = OpenDatabase("C:\Path\to\your\database.accdb")```2. 创建查询在VBA中，您可以使用SQL语句执行查询。
查询是用来检索、过滤和排序数据库中的数据。
以下是一个简单的查询示例：```vbaDim strSQL As StringstrSQL = "SELECT * FROM TableName WHERE FieldName='Value'"```在上面的示例中，`TableName`是要查询的表的名称，`FieldName`是要过滤的字段，`Value`是过滤条件的值。
3. 执行查询在连接并创建查询之后，您可以使用`Execute`方法执行查询语句。
VB访问数据库的方法及接口的比较
VB访问数据库的方法及接口的比较【摘要】本文将对VB访问数据库的方法及接口进行比较分析。
首先介绍了ADO连接方式、ODBC连接方式和DAO连接方式，然后分析了它们各自的优缺点和适用场景。
通过比较各种连接方式，读者可以了解到在不同情况下应该如何选择合适的数据库连接方式。
结论部分提出了选择合适的数据库连接方式和灵活运用不同的接口是提高数据库操作效率和代码质量的关键。
本文旨在帮助读者更好地了解VB访问数据库的方法，提高数据操作的效率和精度。
【关键词】VB, 数据库访问方法, 接口, 比较, ADO, ODBC, DAO, 优缺点, 适用场景, 选择, 灵活运用.1. 引言1.1 VB访问数据库的方法及接口的比较Visual Basic（VB）是一种广泛使用的编程语言，用于开发Windows应用程序。
在开发应用程序的过程中，访问数据库是非常常见的需求。
VB提供了多种访问数据库的方法和接口，如ADO （ActiveX Data Objects）、ODBC（Open Database Connectivity）和DAO（Data Access Objects）。
这些方法和接口各有优缺点，适用于不同的场景。
ADO连接方式是最常用的数据库连接方式之一，它提供了一种简单且高效的方法来连接和操作各种数据库。
通过ADO，开发者可以使用SQL语句来查询和更新数据库中的数据，同时还可以使用数据绑定功能来将数据显示在用户界面上。
ODBC连接方式是一种通用的数据库连接方式，它基于标准化的API接口，可以连接各种类型的数据库。
ODBC提供了一种开放的标准，使得开发者可以轻松地切换和连接不同类型的数据库。
DAO连接方式是一种轻量级的数据库连接方式，专门用于连接Microsoft Access数据库。
它提供了一种简单而直接的方法来操作Access数据库中的数据，适用于一些小型应用程序的开发。
比较各种连接方式的优缺点可以帮助开发者根据实际需求选择合适的方式。
在VB中用DAO实现数据库编程
DAO使用之前必须先引用。方法为打开VB6.0 , 从VB的"工程"菜单中，选择"引用"项，当"引用"对话框出现后，从库的列表中，选择"Microsoft DAO 3.51 Object Library",单击"确定"。现在便可以使用DAO对象库提供的所有对象进行编程了。
一、 创建Leabharlann 据库： 在DAO中用CreatDataBase方法可以根据用户需求动态的创建数据库。这一点在程序中是非常有用的。用户可以根据要求实时建立数据库。建立过程如下：
Private Sub Com_creat_Click()
On Error GoTo Err100
CreatDataBase "数据库名称.mdb" ，dbLangGeneral
Msgbox "数据库建立完毕"
Exit Sub
Err100:
MsgBox "不能建立数据库! " & vbCrLf & vbCrLf & Err.Description, vbInformation
End Sub
这样，数据库便在当前默认的路径下建立了。
二、 创建表与字段：
建立数据库后，则需要在该数据库中建立表，这要用到TableDef 对象。先定义一个TableDef类型的对象，然后用TableDef集合中Append方法将之追加到数据库当中去。并且同时定义一个Field对象，用CreatFiele的方法创建一个Field对象，向表中添加字段。例如:
Private Sub Com_table_Click()
DAO(Data Access Object)全称为数据访问对象，它是数据库编程的重要方法之一。DAO的一种面向对象的界面接口,特色为它不是可视化的对象，使用它全部都要靠编码来完成，DAO是设计关系型数据库系统结构的对象类的集合。它提供了完成管理这样一个系统所需的全部操作的属性和方法，包括创建数据库，定义表、字段和索引，建立表间的关系，定位和查询数据库等工具。由于ADO(ActiveX Data Object ActiveX 数据对象)的出现，DAO的使用已大大减少，但它无须使用ODBC(开放数据库连接)便可连接各个数据源，因而我们仍经常用经典的DAO。下面我向大家详细介绍如何使用DAO编程。
VB连接Access数据库的两种方法
VB连接Access数据库的两种方法首先有一点要注意,数据库的使用与我们以往所使用的文本文件不同.例如我们使用文本文件,来记录各种有用的数据.那么大致有以下几步: 读取文件-- 格式化数据-- 关闭文件-- 使用数据如果数据量较大,需要进行筛选,且存放数据的源文件可能不定时变更,那么我们可以用一个临时文件来存放有用的数据,这样可大大提高程序的效率.要[格式化数据]时,我们首先要进行筛选,然后还得进行分类,这样文件中的字符串才能被转换成有用的信息来供程序使用.这样一来,不用说,处理速度将大大减慢,而且就算你设计的数据格式比较科学,当数据量非常大时,文件的容量也会变的让普通计算机无法承受.相对文本文件来说数据库的使用也大致分为以下几步:打开数据库-- 查找数据-- 使用数据-- 关闭数据库从中可以看出,里面少了一步格式化数据,因为数据库本身在存储数据时,它就是按照一定的格式来进行存储的.其次是,数据库与文本文件返回数据的方法不同.如果把文本文件比作一个Textbox 的话,那么数据库更像是一个ListBox.使用文本文件时我们需要从整个Textbox中取出有用的信息,并进行处理,而Listbox则可以根据需要返回特定的某一项.由于VB本身并不带有可以访问数据库的类,所以我们需要引用一个包含能访问数据库的类来使用数据库.这里我们采用ADODB,相比DAO和能访问数据库的API来说,它比DAO更灵活,更强大;而比起API,它更简单易用,更适合初学者.而Access数据库比起SQL,也相对简单了很多,且能够满足中小型应用程序的需要,所以我们在使用数据库时,选择了Access.就像使用文本文件来存储数据一样,我们需要先设计好数据结构,只不过在设计Access数据库的结构时,我们需要用到其它的程序来进行详细的规划.建议采用的程序是office中的Access或V B自带的VISDATA.当数据库设计好了以后,我们可以开始"数据库编程"了.首先,我们需要引用ADO.具体的方法是,在"工程" -- "引用" 中,找到"Microsoft ActiveX Da ta Object *.* Library",这里的"*.*"是指的时ADO的版本号,一般来说,应用程序或ActiveX 控件都具有向下兼容性,所以我们尽可能选择比较新的版本.以确保程序在能识别旧版本Access 的同时,也能识别较新版本的Access.然后我们需要在程序中创建一个对象.就好比我们在窗体上添加一个FileBox才能看到文件名一样,只有创建了ADO对象,我们才能够访问数据库.常用的对象有两个,Connection和Records et.创建这两个对象的具体方法是:1.在引用后,使用New关键字,如Private Conn As New ADODB.ConnectionPrivate Reco As New ADODB.Recordset2.在没引用时,用CreateObject创建对象:Dim Conn,RecoSet 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 thenMsgbox "用户不存在!",16ElseIf PassWord =Recordset("密码").value thenmsgbox "登录成功!",64Elsemsgbox "密码错误!",32End IfEnd IfRecordset.Close2.假设Admin已经成功登录系统,我们想把所有的用户名和密码都显示出来Recordset.open "Select * From Users",Connection,1,1这时,表已经被打开,我们就用以下代码把它显示出来.Do whlie Not Recordset.eofPrint "用户名: " & Recordset("用户名").value & "密码: " & Recordset("密码").valueRecordset.MoveNextLoopRecordset.Close由以上代码示例可以看出,打开表时,可以只打开其中的一个字段,也可以打开所有.第一个参数是SQL语句.Select [字段名] From表名[Where 条件]这里的条件可以省略.且字段名也可以用"*"来代替所有字段.需要注意的是,如果你用(1)中的方法打开,那么(2)后面显示的代码就不能再用在(1)中.因为(1)里并没有打开[用户名]字段,所以这一句Recordset("密码")就没有值存在,还有可能出错.后面的条件,可以用"="、">"、"<"等运算符.比如"Where ID >32".(这里假设[ID]为数字型.)这是打开的部分.第二个很重要的部分就是查询记录.数据库它并不是把所有记录全部放到一个变量中备用的.而是以"当前记录"的形式来返回一个值.所以我们想从中找到有用的信息,就必须要对信息进行定位/筛选.定位:移动到下一条Recordset.MoveNext移动到上一条Recordset.MovePrevious移动到最后一条Recordset.MoveLast移动到第一条Recordset.MoveFrist移动到某一条Recordset.Move Number筛选:Recordset.Find "条件"如:[用方法(2)打开表之后]Private Sub Command1_Click()Recordset.Find "用户名=" & "text1.text"If Recordset.Eof <> True ThenMsgbox "该用户的密码是:" & Recordset("密码").value,64ElseMsgbox "未找到该用户的资料!",16End IfEnd SubMoveNext 只有当Eof不为True时,才可用,否则发生错误.而MovePrevious刚是Bof不为T rue时....而只要Eof 和Bof中有一个不为真时,也就是说只要有一条记录时,它就可以使用.Find 方法中的条件和Open时的第一个参数中的条件表述方法是完全一致的.当在已打开的记录集中,找不到该记录时,Eof为True.找到则当前的值就是符合条件的记录.第三个部分就是添加/修改记录.修改记录很简单,先按以上的方法找到相关记录之后,给记录赋值就可以了.比如:[(修改密码)按方法(1)打开表之后]Recordset("密码").value = "123456"Recordset.Updata需要注意的就是,在修改完成后,要调用Updata方法,这样修改才能生效.而添加记录则可以用以下代码来实现:Recordset.addnewRecordset("用户名").value ="Admin"Recordset("密码").value = "Admin"Recordset.Updata这里,先要调用Addnew方法,增加一条新记录,然后对这个新记录中的各字段赋值,最后再调用Updata方法.到这里就差不多了,最后说一下上面提到的几个方法.Recordset.Open SQL语句,数据源,游标类型,打开方法SQL语句不用说了,就是Select那啥的,目的就是按要求从表中返回数据数据源就是一个打开之后的Connection对象.去他妈的游标类型,填1就可以了[偷笑ing]打开方法对应了几个常数,具体哪几个可以从对象浏览器里看.对应数值的意义:1 只读2 独占3 可写4 自已可写,别人可读Connection.open 连接代码,服务器用户名,密码这里的连接代码就不在多说了,服务器用户名,密码只有在连接远程数据库时才用到.VB如何连接access数据库2009年07月25日星期六下午 07:07VB如何连接access数据库？最近在学习VB，正在研究当中！今天告诉大家VB连接数据库的方法，我知道的有两种：一种是在adodc1的属性里设置数据库文件的路径,这种方法的优点是简单易操作,缺点是,当源文件换了地方后,要重新设置数据库的路径,否则连接不上数据库了。
VBA中操作Access数据库的常用方法
VBA中操作Access数据库的常用方法VBA (Visual Basic for Applications) 是一种用于自动化各种应用程序的编程语言，它可以与Microsoft Office中的各种应用程序进行交互，包括Access数据库。
在本文中，我们将讨论在VBA中操作Access数据库时常用的方法，希望可以帮助您更好地利用这些方法来处理和管理数据库。
1. 连接到Access数据库连接到Access数据库是进行任何数据库操作的第一步。
我们可以使用ADO (ActiveX Data Objects) 对象来建立与数据库的连接。
下面是一个连接到Access数据库的例子：```vbaDim conn As ADODB.ConnectionSet conn = New ADODB.Connectionconn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\database.accdb;"conn.Open```这段代码创建了一个ADODB.Connection对象，并设置其ConnectionString属性来指定数据库连接字符串，然后通过Open方法打开数据库连接。
2. 执行SQL查询执行SQL查询是从Access数据库中获取数据的常用方法。
可以使用ADODB.Recordset对象来执行查询并获取结果。
以下是一个例子：```vbaDim rs As New ADODB.RecordsetDim strSQL As StringstrSQL = "SELECT * FROM TableName"rs.Open strSQL, conn' 遍历结果Do Until rs.EOF' 处理每一行数据rs.MoveNextLooprs.Close```在这个例子中，我们创建了一个ADODB.Recordset对象，并使用Open方法执行了一个SELECT语句，并将返回的结果集存储在Recordset对象中。
VB用ADO和DAO连接数据库的几种方法
VB用ADO和DAO连接数据库的几种方法－、用DAO控件连接数据库1.与Access2000数据库连接Private Sub Command1_Click()'也可直接在控件属性中设置以下各项但在控件属性中不能写入密码'只有在数据数没有密码的情况下可以省略Data1.RefreshData1.Connect="Access2000;"Data1.DatabaseName=App.Path+"\chncmadb.mdb"'数据库没有密码此句可省Data1.Connect=";pwd=123456"'Data1.RecordSource="耕地资源管理单元属性数据表2004"Data1.RecordSource="select*from耕地资源管理单元属性数据表2004" Data1.Refresh’move后才能正确显示记录个数End Sub2.与没有密码的DBF文件数据库连接Private Sub Command2_Click()Data1.Connect="dBASE III;"Data1.DatabaseName=App.Path'Data1.RecordSource="DBF"Data1.RecordSource="select*from dbf"Data1.Refresh’move后才能正确显示记录个数End Sub3.与没有密码的Excel文件数据库连接Private Sub Command3_Click()Data1.Connect="Excel8.0;"Data1.DatabaseName=App.Path&"\EXcel.xls"Data1.RecordSource="select*from[EXcel.xls]"Data1.Refresh’move后才能正确显示记录个End Sub二、用DAO代码连接数据库'在使用DAO对象前应选定Visual Basic菜单下的[工程]中的引用了菜单中的[Microsoft DAO3.6Object Library]选项，或其它版本1.DAO代码与Access数据库连接Private Sub Command1_Click()Dim Db As DatabaseDim Rs As Recordset'以共享、读写方式打开'如果无密码最后一个参数可以不要SetDb=OpenDatabase(App.Path&"\chncmadb.mdb",False,False, ";pwd=123456")'不需要move来更新记录个数'Set Rs=Db.OpenRecordset("耕地资源管理单元属性数据表2004")'需要move来更新记录个数Set Rs=Db.OpenRecordset("select*from[耕地资源管理单元属性数据表2004]")If Rs.RecordCount>0ThenRs.MoveLastRs.MoveFirstEnd IfEnd Sub2.DAO代码与没有密码的DBF文件数据库连接Private Sub Command2_Click()Dim Db As DatabaseDim Rs As Recordset'以共享、读写方式打开Set Db=OpenDatabase(App.Path,False,False,"dbase III;")'不需要move来更新记录个数'Set Rs=Db.OpenRecordset("DBF")’需要move来更新记录个数Set Rs=Db.OpenRecordset("select*from[DBF]")If Rs.RecordCount>0ThenRs.MoveLastRs.MoveFirstEnd IfEnd sub3.'DAO代码与没有密码的Excel文件数据库连接Private Sub Command3_Click()Dim Db As DatabaseDim Rs As Recordset'以共享、读写方式打开'如果无密码最后一个参数可以不要SetDb=OpenDatabase(App.Path&"\EXcel.xls",False,False,"Excel 8.0;") '不需要move来更新记录个数'Set Rs=Db.OpenRecordset("EXcel.xls")'表格中的工作目录sheet'需要move来更新记录个数Set Rs=Db.OpenRecordset("select*from[EXcel.xls]")'表格中的工作目录sheet'If Rs.RecordCount>0ThenRs.MoveLastRs.MoveFirstEnd IfEnd Sub三、用ADO控件连接数据库'也可直接在控件属性中设置以下各项1.ADO控件与Access2000数据库连接Private Sub Command1_Click()'连接有密码的Access数据库'Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&App.Path&"\chncmadb1.mdb;Jet OLEDB:DataBase PASSWORD=123456"'连接没有密码的Access数据库Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4 .0;Data Source="&App.Path&"\chncmadb.mdb;Persist Security Info=False"'Adodc1.RecordSource="[耕地资源管理单元属性数据表2004]"Adodc1.RecordSource="select*from[耕地资源管理单元属性数据表2004]"Adodc1.RefreshSet DataGrid1.DataSource=Adodc1DataGrid1.RefreshEnd Sub2.'ADO控件与DBF表连接Private Sub Command2_Click()'Adodc1.ConnectionString="Provider=MSDASQL.1;Persist Security Info=False;Data Source=dBASE Files;DBQ="&App.Path&";SourceType=DBF;"'Adodc1.ConnectionString="Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=DSN=Visual FoxPro Tables;UID=;SourceDB=”&app.path&”;SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Colla te=Machine;N ull=Yes;Deleted=Yes;"'Adodc1.ConnectionString="Provider=MSDASQL.1;PersistSecurity Info=False;Extended Properties=DSN=dBASE Files;DBQ=”&app.path&”;;DefaultDir=”&app.path&”;DriverId=533;MaxBufferSize=2048;PageTimeout=5;"'能使表名长度不受限制Adodc1.ConnectionString="Provider=MSDASQL.1;Driver=M icrosoft Visual Foxpro Driver;SourceDB="&App.Path&";SourceType=DBF;Locale Identifier=2052"'Adodc1.RecordSource="[DBF1]"Adodc1.RecordSource="select*from DBF1"Adodc1.RefreshSet DataGrid1.DataSource=Adodc1DataGrid1.RefreshEnd Sub3.'ADO控件与Excel表连接Private Sub Command3_Click()'下面一句测试未能通过'Adodc1.ConnectionString="DataProvider=MSDASQL.1;driver=Microsoft Excel Driver*.xls);DBQ="& App.Path&"\EXcel.xls"'Adodc1.ConnectionString="Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=DSN=Excel Files;DBQ="&App.Path& "\EXcel.xls;DefaultDir=”&app.path &”;DriverId=790;MaxBufferSize=2048;PageTimeout=5;"Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source="&App.Path&"\EXcel.xls;Extended Properties='Excel 8.0;HDR=Yes'"'Adodc1.RecordSource="[EXcel.xls]"Adodc1.RecordSource="select*from[EXcel.xls]"Adodc1.RefreshSet DataGrid1.DataSource=Adodc1DataGrid1.RefreshEnd Sub4.'ADO控件与Oracle数据库连接Private Sub Command4_Click()'Adodc1.ConnectionString="Provider=MSDAORA.1;Password=chncmadb;UserID=chncmadb;Data Source=towebserver;Persist Security Info=True"Adodc1.ConnectionString="Provider=OraOLEDB.Oracle.1;Pa ssword=chncmadb; Persist Security Info=True;User ID=chncmadb;Data Source=towebserver"'Adodc1.RecordSource="T320481TR012004"'表名不能加方括号Adodc1.RecordSource="select*from T320481TR012004"Adodc1.RefreshSet DataGrid1.DataSource=Adodc1DataGrid1.RefreshEnd Sub5.'ADO控件与SQLserver数据库连接'未测试Private Sub Command5_Click()Adodc1.ConnectionString="Provider=SQLOLEDB.1;Password=111;Persist Security Info=True;User ID=111;Initial Catalog=111;Data Source=111"'Adodc1.RecordSource="T320481TR012004"Adodc1.RecordSource="select*from T320481TR012004"Adodc1.RefreshSet DataGrid1.DataSource=Adodc1DataGrid1.RefreshEnd Sub四、用ADO代码连接数据库'在使用ADO对象前应选定Visual Basic菜单下的[工程]中的引用了菜单中的[Microsoft.ActiveX Data Object2.5Library]选项，或其它版本1.'ADO代码与Access2000数据库连接Private Sub Command1_Click()Dim AdoCnn As ADODB.ConnectionDim AdoRs As ADODB.RecordsetSet AdoCnn=New ADODB.ConnectionSet AdoRs=New ADODB.RecordsetAdoCnn.CursorLocation=adUseClient'.open后面的字符串可以参考ADO控件连接.ConnectionString 后面的的字符串AdoCnn.Open"Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& App.Path&"\chncmadb1.mdb;Jet OLEDB:DataBase PASSWORD=123456"AdoRs.Open"select*from[耕地资源管理单元属性数据表2004]",AdoCnn, adOpenDynamic,adLockPessimistic,adCmdText Set DataGrid1.DataSource=AdoRsSet AdoRs=NothingSet AdoCnn=NothingEnd Sub2.'ADO代码与DBF表连接Private Sub Command2_Click()Dim AdoCnn As ADODB.ConnectionDim AdoRs As ADODB.RecordsetSet AdoCnn=New ADODB.ConnectionSet AdoRs=New ADODB.RecordsetAdoCnn.CursorLocation=adUseClient'.open后面的字符串可以参考ADO控件连接.ConnectionString 后面的的字符串AdoCnn.Open"Provider=MSDASQL.1;Driver=Microsoft Visual Foxpro Driver;SourceDB="&App.Path&";SourceType=DBF;Locale Identifier=2052"AdoRs.Open"select*from[DBF1]",AdoCnn,adOpenDynamic, adLockPessimistic,adCmdTextSet DataGrid1.DataSource=AdoRsSet AdoRs=NothingSet AdoCnn=NothingEnd Sub3.'ADO代码与Excel表连接Private Sub Command3_Click()Dim AdoCnn As ADODB.ConnectionDim AdoRs As ADODB.RecordsetSet AdoCnn=New ADODB.ConnectionSet AdoRs=New ADODB.RecordsetAdoCnn.CursorLocation=adUseClient'.open后面的字符串可以参考ADO控件连接.ConnectionString 后面的的字符串AdoCnn.Open"Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source="&App.Path&"\EXcel.xls;ExtendedProperties='Excel8.0;HDR=Yes'"AdoRs.Open"select*from[EXcel.xls]",AdoCnn,adOpenDynam ic, adLockPessimistic,adCmdTextSet DataGrid1.DataSource=AdoRsSet AdoRs=NothingSet AdoCnn=NothingEnd Sub4.'ADO代码与Oracle数据库连接Private Sub Command4_Click()Dim AdoCnn As ADODB.ConnectionDim AdoRs As ADODB.RecordsetSet AdoCnn=New ADODB.ConnectionSet AdoRs=New ADODB.RecordsetAdoCnn.CursorLocation=adUseClient'.open后面的字符串可以参考ADO控件连接.ConnectionString 后面的的字符串AdoCnn.Open"Provider=OraOLEDB.Oracle.1;Password=chnc madb;Persist Security Info=True;User ID=chncmadb;Data Source=towebserver"AdoRs.Open"select*fromT320481TR012004",AdoCnn,adOpenDynamic, adLockPessimistic,adCmdTextSet DataGrid1.DataSource=AdoRsSet AdoRs=NothingSet AdoCnn=NothingEnd Sub5.'ADO代码与SQLserver数据库连接'未测试Private Sub Command5_Click()Dim AdoCnn As ADODB.ConnectionDim AdoRs As ADODB.RecordsetSet AdoCnn=New ADODB.ConnectionSet AdoRs=New ADODB.RecordsetAdoCnn.CursorLocation=adUseClient'.open后面的字符串可以参考ADO控件连接.ConnectionString 后面的的字符串AdoCnn.Open"Provider=SQLOLEDB.1;Password=111;Persist SecurityInfo=True;User ID=111;Initial Catalog=111;Data Source=111"AdoRs.Open"select*fromT320481TR012004",AdoCnn,adOpenDynamic, adLockPessimistic,adCmdTextSet DataGrid1.DataSource=AdoRsSet AdoRs=NothingSet AdoCnn=NothingEnd Sub。
用VBA访问ACCESS数据库new
总结词
要点二
详细描述
在查询结果中可能会遇到NULL值，需要正确处理这些值以 避免程序出错。
当访问Recordset对象中的字段值时，如果该字段的值为 NULL，不能直接访问，否则会导致程序出错。因此，需要 使用IsNull函数来检查字段值是否为NULL，并相应地处理 。如果字段值为NULL，可以使用相应的空值处理方式，如 使用空字符串或特殊标记来表示。
VBA具有强大的编程能力，可以用于创建复杂的逻辑和算法，以及与Office应用 程序的对象模型进行交互。
Access数据库简介
Access是Microsoft Office套件中的一个关系数据库管理系 统（RDBMS），它使用表、查询、窗体、报表和其他数据库 对象来存储、检索、显示和管理数据。
Access支持多种数据类型，包括文本、数字、日期/时间、货 币等，并提供了丰富的查询、报表和窗体功能。
04
CATALOGUE
获取查询结果
获取单个记录的结果
总结词
使用VBA访问Access数据库时，可以通过 执行SQL查询来获取单个记录的结果。
详细描述
首先，使用ADO对象模型打开数据库连接 ，然后执行SQL查询语句。通过遍历记录集
来获取单个记录的结果，可以使用 Recordset对象的Fields属性来访问记录集
使用ADO建立连接
总结词
ADO（ActiveX Data Objects）是一种用于访问数据库的对象模型，它提供了一种简单的方法来连接和操作数据 库。
详细描述
在VBA中，可以通过创建ADO对象并设置其ConnectionString属性来建立与Access数据库的连接。 ConnectionString通常包括数据库文件的路径、数据库名称以及其他可选参数。一旦连接建立，可以使用ADO 对象执行SQL查询、读取和写入数据等操作。
vb中运用dao方法连接数据库
if rs.
End if
for i = 0 to 11
label(i).caption = rs.Fields(i) & ""
next
End Sub
在字段赋值的末尾加上""可以避免许多不必要的错误，在数据库中，当一个字段为空的时候，它的值为Null ，Null表示什么也没有。因此无法赋值，赋给变量时会出错。但我们加上""空格符时，便有效的避免了赋值错误，这个技巧非常的有用。
If Msgbox(msg , 17 , "删除记录") <> 1 Then Exit sub
rs.delete
rs.Movenext
If rs.EOF = True Then
rs.MovePrevious
End if
for i = 0 to 11
label(i).caption = rs.Fields(i) & ""
Private Sub Command_OpenDatabase_Click()
Dim dbase as Database
Dim rs As Recordset
Set dbase = OpenDatabase ( App.path & "\数据库名称.mdb" )
Set rs = dbase.OpenRecordset ( " select * from 表名 " )
DefDatabase.TableDefs.Append NewTable ′表追加
Msgbox " 表建立完毕 "
使用VB数据控件访问数据库
使用VB数据控件访问数据库Visual Basic是一种功能强大的编程语言，它允许程序员使用数据控件访问数据库。
在本文中，我们将介绍如何使用VB数据控件来连接和操作数据库。
首先，我们需要使用VB的数据控件来建立与数据库的连接。
VB提供了多种数据控件，包括ADO控件（ActiveX Data Objects，ActiveX数据对象）、DAO控件（Data Access Objects，数据访问对象）和ODBC控件（Open Database Connectivity，开放数据库连接）等。
在这里，我们将使用ADO控件。
要使用ADO控件，我们首先需要将其添加到项目中。
打开VB的开发环境，选择"工具"->"选项"->"控件"选项卡。
在这里，我们可以看到可用的控件列表。
找到ADO控件并勾选它，然后点击"应用"和"确定"。
在VB的表单上添加一个数据控件（如ADODC控件），这个控件将用于建立与数据库的连接。
在属性窗口中，我们可以设置连接字符串，选择需要连接的数据库，以及指定用户名和密码等。
可以使用连接字符串来指定连接的数据库类型和位置，如"Provider=Microsoft.Jet.OLEDB.4.0;DataSource=C:\mydatabase.mdb;User Id=admin;Password=;"一旦连接到数据库，我们就可以使用数据控件来执行各种数据库操作，如查询、插入、更新和删除等。
数据控件提供了一些方法和属性，可以轻松地执行这些操作。
此外，我们还可以使用数据控件的AddNew方法和Update方法来插入和更新数据库记录。
例如，我们可以使用Recordset.AddNew方法添加一条新的记录，然后使用Recordset.Update方法将更改保存到数据库中。
当我们完成对数据库的操作后，我们需要关闭数据库连接。
VBA操作Access数据库的实用技巧
VBA操作Access数据库的实用技巧VBA（Visual Basic for Applications）是一种强大的编程语言，可以与Microsoft Office套件中的许多应用程序一起使用。
其中，与Access数据库的操作结合，可以大大提升工作效率和数据处理能力。
本文将介绍一些VBA 操作Access数据库的实用技巧，帮助您更好地利用VBA来简化和自动化数据库操作。
1. 连接Access数据库VBA可以通过ADO（ActiveX Data Objects）库来连接Access数据库。
首先，需要添加对Microsoft ADO库的引用。
然后，可以使用Connection对象来连接数据库，并指定数据库文件的路径。
下面是一个简单的连接数据库的例子：```vbaDim conn As ObjectSet conn = CreateObject("ADODB.Connection")conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\路径\数据库文件名.accdb;"```2. 创建查询通过VBA可以轻松创建查询并执行。
首先，需要声明一个Recordset对象，然后使用SQL语句来定义查询。
接下来，使用OpenRecordset方法执行查询，并将结果存储在Recordset中。
下面是一个创建查询并执行的例子：```vbaDim rs As ObjectSet rs = CreateObject("ADODB.Recordset")Dim strSQL As StringstrSQL = "SELECT * FROM 表名"rs.Open strSQL, conn```3. 插入数据VBA可以通过Execute方法执行SQL语句，从而向Access数据库中插入数据。
VB怎么能连接访问Access数据库
VB怎么能连接访问Access数据库有时候我们需要用到VB来连接Access数据库，但是却无从下手，那么VB怎么连接访问Access数据库呢?其实不难，先理清好步骤就行，不懂的朋友请看以下内容。
方法/步骤：1、Access，建立数据库，数据库命名为Database1.mdb。
(注意：这里的后缀是mdb，如果Access是2007版本的，保存的时候要另存为2003版本的才行，因为，VB不直接支持07版的accdb后缀格式!)2、数据库建立后就进入了数据表界面，可以输入数据了，输完以后Ctrl+S保存，输入表名，这里表名为test，OK，准备工作搞定。
2、打开VB，然后新建标准EXE。
3、菜单中找到工程→部件→勾选Microsoft ADO Data Control 6.0及其Microsoft Hierarchical Flexgrid Control 6.0，勾选后左侧工具栏里就多了两个控件即ADODC控件和MSHFlexGrid控件。
4、选择ADODC控件和MSHFlexGrid控件，放在窗体的合适位置5、设置ADODC控件的属性：右键窗体内ADODC1控件。
(1)ADODC属性页→通用→选择使用连接字符串→点击生成→选择Microsoft Jet 4.0 OLE DB Provider 点击下一步→选择之前准备好的数据库→点击测试连接，显示测试成功则OK，确定。
(2)ADODC属性页→记录源→命令类型选择2-adcmdtable，表或存储过程名称选择之前建立的数据表test，点击确定，ADODC属性设置完成。
6、设置MSHFlexGrid控件的属性：VB右侧属性表里，找到datasource，选择adodc1。
7、测试效果：(1)菜单→运行→启动(F5)，发现显示的数据排列不是我们想要的行数和列数。
修改方法：(1)MSHFlexGrid属性→通用→设置行和列，固定行和固定列(2)MSHFlexGrid属性→带区→把列标题的√取消掉补充：MySQL 数据库常用命令create database name; 创建数据库use databasename; 进入数据库drop database name 直接删除数据库，不提醒show tables; 显示表describe tablename; 查看表的结构select 中加上distinct去除重复字段mysqladmin drop databasename 删除数据库前，有提示。
VBA操作Access数据库的应用技巧与实践
VBA操作Access数据库的应用技巧与实践在今天的技术驱动的世界中，数据库管理成为了各种组织和企业的重要工作。
Microsoft Access作为一种流行的数据库管理系统，为用户提供了许多强大且灵活的功能。
然而，仅凭手动操作可能无法满足复杂的需求，这就需要利用VBA（Visual Basic for Applications）来进行自动化操作。
VBA是Microsoft Office套件中的一种编程语言，它允许用户通过编写宏来自动化执行重复的任务，以提高工作效率。
在Access中，VBA可以轻松的与数据库进行交互，使得我们能够更好地管理和处理数据。
下面将介绍一些VBA操作Access数据库的应用技巧与实践。
1. 连接到数据库：使用VBA连接到Access数据库是最基本的操作之一。
通过创建一个数据库对象，我们可以方便地访问数据库的各种功能。
以下是一个简单的示例：```Dim db As DAO.DatabaseSet db = CurrentDb2. 执行SQL查询：VBA允许我们使用SQL语句来查询数据库中的数据。
通过编写SQL查询语句并将其传递给数据库对象的`Execute`方法，我们可以获取所需的数据。
以下是一个示例：```Dim rs As DAO.RecordsetSet rs = db.OpenRecordset("SELECT * FROM TableName")```3. 添加新记录：通过VBA，我们可以很方便地向数据库中添加新的记录。
通过创建一个记录集对象并使用其`AddNew`和`Update`方法，我们可以插入新的数据。
以下是一个示例：```Dim rs As DAO.RecordsetSet rs = db.OpenRecordset("TableName", dbOpenDynaset)rs.AddNewrs("Field1") = Value1rs("Field2") = Value2rs.Update4. 编辑和删除数据：VBA还允许我们编辑和删除数据库中的数据。
DAO访问ACCESS数据库
这是我前段时间学数据库时做的⼀个⼩程序，采⽤DAO访问ACCESS数据库，程序的主界⾯如下，控制相对来说很是简单，实现了数据库的基本操作。
⼏点说明： 在程序中使⽤了CButtonStyle这个免费类库，它可以实现带位图的按位，这⾥是以加载图标的⽅式操作的，在InitButtonSytle()中，为了使代码更短⼩，⽤循环实现了图标按钮。
// ⽤循环实现必须⼿动改动Resource.h中的定义for ( int nIco = IDI_JUMP, nBtn = IDC_JUMP; nBtn >= IDC_LISTITEM; nIco--, nBtn-- ){ CButtonStyle *Button = ButtonList.RemoveTail(); Button->SubclassDlgItem( nBtn, this ); Button->SetIcon( nIco ); Button->SetInactiveBgColor(); Button->SetInactiveFgColor(); Button->SetActiveBgColor();} 在处理异常时，采⽤了如下⽅式：try{}catch( CDaoException *exception ){ // 否则指针会指向出现异常的纪录 m_pSet->MoveNext(); m_pSet->MovePrev(); return;} 在异常后，m_pSet向下移动⼀次，⼜向前移动⼀次，这样看起来不是很漂亮，要不然，m_pSet总是指向出现异常的纪录。
最下端⼏个图标的说明 POS1：这个图标⽤于跳转到上次你退出程序时所浏览的那个单词，可以说就当作是书签。
POS2：⽤于动态跳转到某⼀个单词。
当然该单词必须存在，要不然会现"告⽰"的。
POS2：后⾯紧跟着的四个按钮⽤于跳转到数据库中第⼀个单词；⽤于跳转到数据库中最第⼀个单词；显⽰上⼀个单词信息；显⽰下⼀个单词信息； 关于列举功能，说简单点，我们学单词时，经常有单词含有相同的后缀或相同的部分，看下图，也就不⽤多说了吧，不过，当你只输⼊⼀个字母时，区分⼤⼩写是没有作⽤的，这样将会显⽰出所有以这个字母开头的单词，具体看代码吧，很简单的。
VB+DAO数据库访问技术
所有的源代码和ACCESS数据都在附件中，我用的是DAO连接数据库，DAO数据对象模型并不是VB本身所携带的，它被集成在ACCESS中，在VB项目中加入DAO的办法是新建一个工程(EXE),然后在菜单[项目/添加引用]或是[project/component reference]点击，在跳出选择对话框中添加"Microsoft DAO3.6".以后的的代码在源文件里都有，相信你能看懂。
简单的函数说明1.按下OK键以后调用，读取界面中两个文本编辑框中的内容，然后调函数verify确认是不是数据库中的用户和密码。
Private Sub OK_Click()'检查用户身份LoginSuccessed = verify(txtUserName, txtPassWord) '标准用户身份If (LoginSuccessed = True) ThenEnd If'End IfEnd Sub2.verify函数，根据传入的用户和密码信息，在数据库里查找，如果存在，则跳出"登录成功对话框",失败也给出相应说明。
我在name.mdb中只加了一个纪录，用户005,密码zou,你可以修改成你需要的用户和密码。
Function verify(userID As String, txtPWD As String) As BooleanDim courseDB As Database, idinfo As Recordset '记录集Dim sqlstr As Stringsqlstr = "select 学号,密码 from 密码 where 学号 = '" & userID & "'" Set courseDB = OpenDatabase("name.mdb")Set idinfo = courseDB.OpenRecordSet(sqlstr, dbOpenSnapshot, dbReadOnly)'到数据库中提取用户名和密码的纪录If (idinfo.RecordCount = 0) ThenMsgBox "无此学号", , "登陆"verify = FalseElseIf (idinfo.Fields("密码").Value = txtPWD) Thenverify = TrueMsgBox "你好, " & userID & " 成功登陆", , "登陆"ElseMsgBox "无效的密码,请重试", , "登陆"verify = FalseEnd IfEnd Ifidinfo.CloseEnd FunctionDAO(Data Access Object)全称为数据访问对象，它是数据库编程的重要方法之一。
基于DAO 接口的Access 数据库的访问_数据库技术与应用——Access 2010_[共9页]
![基于DAO 接口的Access 数据库的访问_数据库技术与应用——Access 2010_[共9页]](https://img.taocdn.com/s3/m/edd196d7bed5b9f3f80f1ca7.png)
211Debug.Print "This is a definition of The MyClass."Debug.Print "There is a StudentName attribute in The MyClass."Debug.Print "The value of StudentName is: " & StudentNameEnd Sub**对象类MyClass 定义结束2．对象的创建对象的创建就是将这个对象类实例化为一个对象。
Access VBA 有两种方法实例化对象。
（1）方法1：Dim 对象实例名 As New 类名例如：语句Dim appAccess As New Access.Application 就是将Access.Application 类实例化为一个实实在在的appAccess 对象。
（2）方法2：Set 对象实例名=CreateObject("类名")Set 语句是用来指定一个对象给已声明成对象的变量。
"Set"是不可以省略的。
用户需要特别注意的是：在用Set 对象实例名=CreateObject("类名")之前，必须先用下面命令将对象实例名声明为一个object 类型的变量：Dim 对象实例名As object 。
【说明】在Access VBA 中，对象采用了类似常规变量的处理方式：系统扩充的变量类型包括了所谓的对象类型；先类型定义再实例赋值，使用数据变量定义语句DIM 来定义对象变量，使用实例赋值语句SET 来创建对象的实例；对象实例继承了对象类所定义的属性和方法；对象的层次关系决定了对象实例的创建顺序。
【例8-17】创建对象类MyClass 的一个实例，并通过消息完成几个简单操作。
Sub TheInstanceOfMyClass()Dim mystr As StringDim myobject As New MyClassLet mystr = InputBox("请输入学生名", "输入窗口","我的名字是姜笑枫。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
例如：
打开数据库
Private Sub Command_OpenDatabase_Click() Dim db as Database Dim rs As Recordset Set db = OpenDatabase ( App.path & &uot;\数据库名称.mdb&uot; ) Set rs = db.OpenRecordset ( &uot; select * from 表名 &uot; ) End Sub 这样，数据库中的记录便放到Recordset中，可以进行后续操作了
1、从“工程”菜单中选择“引用”菜单项；
2、在可引用列表框中选择“Microsoft DAO 3.6 Object Library”项
3、最后“确定”即可
设置DAO数据类型变量
DAO数据类型变量共分成两种：
1、Database变量
Public db As Database
只读：由true和false值所构成，为true代表数据库仅提供读取的服务
Opendatabase 方法（二
Opendatabase 方法
Opendatabase 方法是打开数据库并返回此数据库的database对象，其语法如下： Set database的对象变量＝opendatabase ([数据库名称及路径],[除外性],[只读]) 除外性：由true和false值所构成，当值为true时代表仅允许唯一的使用者使用数据库。
对应于Access数据库，通常在模块中被定义为Public全程变量
2、RecordSet变量
Dim rs As RecordSet
设置DAO数据类型变量（二）
建立了数据库对象变量后，我们便可打开数据库了，在一般情况下都只是访问一个数据库，当打开数据库后再对数据库中的各个记录进行操作，这就要用到Recordset 对象建立记录集
对象（DAO）。Data控件只给出有限的不需编程而能访问现存数据库的功能，而DAO模型则是全面控制数据库的完整编程接口。Data控件将常用的DAO功能封装在其中，它与DAO控件的关系就好象内存与CACHE之间的关系一样，所以这两种方法并不是互斥的，实际上，它们常同时使用
引用DAO类型库