ado连接 access 数据库

ASP与网络数据库学习报告学院:专业:姓名：学号：成绩：二0一 0 年十一月用ADO对象访问Access数据库的方法ADO称为“Active数据对象”，是基于组件的数据库编程接口。

ADO实际是一种提供访问各种数据类型的连接机制，是一个与编程语言无关的COM（Component Object Model）组件系统。

ADO设计为一种极简单的格式，可以方便地连接任何符合ODBC标准的数据库。

在数据库的应用中，使用ADO编写的应用程序可以存取Internet任何地方的数据。

而我们通常用ADO的Connection对象、Command对象、Recordset对象来创建数据库。

而Acesss 数据库是目前应用比较广泛的桌面型数据库，广泛应用于各种小型管理信息系统中。

现在我们就来创建一个“网上留言”数据库以详细理解用ADO对象访问Access数据库的方法。

一、创建背景随着internet在中国的迅速发展,人们日常生活中越来越多地使用新技术来为自己的工作和学习服务。

在众多Internet关联功能中，有一项新的业务正成为所有用户所津津乐道的交流方式，这就是网上留言。

根据调查现在网民使用现状，网上留言板的使用百分比居前列。

二、数据库设计：1.首先创建一个Access 2003数据库为onlineword.mdb，分别设计以下两个表:reply表：字段名意义字段类型reid 回复者信息主键数字reply 回复者留言内容文字retime 留言时间日期leave表：字段名意义字段类型Id 留言者信息主键数字name 留言者姓名文字sex 性别文字ip ip地址数字os 操作系统文字qq qq号数字mail 邮箱地址数字addtime 添加时间日期body 留言内容文字ie ie类型文字2.建一个文件conn.asp用于链接打开当前目录下的onlineword.mdb数据库。

代码如下：<% set conn=server.createobject(＂ADODB.Connection＂)Conn.open＂Provider=Mcorosoft.jet.oledb.4.0;Data Source=＂& server.MapPath(＂onlineword.mdb＂)%>3.用connection对象在数据库的reply表中添加一条记录(插入语句)，建一个文件：insert.asp代码如下：<!--include file＝＂conn.asp＂--><% sql1=＂insert into reply( reid,reply,retime) values(‘1’,’谢;谢’,’10/11/12’)＂conn.execute.sql1conn.closeset.conn=nothing%>4.用对象显示表中记录，在当前目录下，建一个show.asp文件，代码如下：<!--include file＝＂conn.asp＂--><% set rec=server.CreateObject("ADODB.RecordSet")Sql2="select * from reply where reid="& rs("id")' & " order by reid desc"rec.open sql2,conn,1,1%><table width=＂100%＂><% do while not rec.eof %><tr><td><%=rs(reid) %></td></tr><tr><td><%=rs(reply) %></td></tr><tr><td><%=rs(retime) %></td></tr><% rec.movenextwendrec.closeset rec=nothing%></table>三、其他操作打开管理员回复信息数据库，开始调用其中内容。

ADO对象操作Access数据库关键技术ADO对象操作Access数据库关键技术ADO（ActiveX Data Object）是目前Microsoft通用的数据访问技术。

ADO编程模型定义一组对象，用于访问和更新数据源，它提供了一系列方法完成以下任务：连接数据源、查询记录、添加记录、更新记录、删除记录、检查建立连接或执行命令时可能产生的错误。

一、ADO对象ADO是基于组件的数据库访问接口，可以来自多种数据提供者的数据进行读取和写入操作。

ADO的3个成员对象：（1）Connection对象（连接对象）:建立应用程序与数据源的连接。

（2）Command对象（操作命令对象）：在创建数据连接的基础上，利用Command 对象可以实现对数据源的查询、插入、删除、编辑修改及更新操作。

（3）Recordset对象（记录集对象）：执行数据访问或SQL命令得到动态记录集，它被缓存在内存中。

ADO的3个集合对象：（1）Errors集合对象。

它依赖于Connection对象的使用。

（2）Parameters集合对象。

它依赖于Command对象的使用。

（3）Fields集合对象。

它依赖于Recordset对象的使用。

1、Connection对象该对象用来实现应用程序与数据源的连接。

只有连接成功后，Command对象和Recordset对象才能访问某个数据库。

2、Command对象该对象主要作用是在VBA中用SQL语句访问、查询数据库中的数据，可以完成Recordset对象不能完成的操作，如创建表、修改表结构、删除表、将查询结果保存为新表等。

3、Recordset对象Recordset对象的功能最常用、最重要，它可以访问表和查询对象，返回的记录存储在Recordset对象中。

通过该对象可以浏览记录、修改记录、添加新记录或者删除特定记录。

二、在Access中引用ADO对象在Access的模块设计时要想使用ADO对象，首先应该增加一个对ADO库的引用。

直接通过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引用它既可。

ADO控件连接ACCESS数据库并进行修改添加
一、连接access及其工作列表
1、引用ADO控件和DataGRID显示控件
2、拖入两个控件和新建三个BT按钮，一个文本框数组（0-2）
因为在ACCESEE中，列的顺序是从0 开始。

第一个字段为0。

3、设置ADO控件：连接ACCESS。

难点!
选择4.0的这个驱动器后，选择相应的.xls的access数据库文件。

默认允许打开.mdb文件，选择全部类型文件就可以打开access文件啦。

Access的特殊性在于：设置扩展属性。

以上就将access连接好了，下面需要设置连接access 的那个工作表【Sheet1…….】，
4、连接工作列表注意[Sheet1$]
此时已经连接好access及其工作列表。

二、关联ADO控件和DataGrid显示控件
1、在DataGrid显示控件属性栏中，选择DateSource——Adodc1。

将数据和显示器连接。

2、显示access的字段和数据
3、为了能够进行数据库读写，需要设置显示控件的属性
三、关联显示控件和文本框代码如下：
Private Sub DataGrid1_Click()
For i = 0 To 2
Text1(i).Text = DataGrid1.Columns(i)
Next i
End Sub
四、设置命令按钮实现数据读写。

效果如下。

Visual C++环境下ADO控件访问数据库DBGrid数据表格控件以其短小精悍而深受大家的喜爱,但其如何在Visual C++中使用却很少有文章提及,本文将VC下使用DBGrid的具体步骤简要地介绍给大家。

一.前期准备为了实现DBGrid控件的自动捆绑,我们需要建立一个数据库和与之关联的数据源，本例中我们用Access建立数据库mydata.mdb，在数据库中新建一张表users,包含三个字段username,address,email,并输入多条记录。

在控制面板ODBC数据源中建立名称为test的系统DSN（注意是系统DNS非用户DNS），并将其指向mydata.mdb二.创建工程新建一个基于对话框的MFC AppWizard (exe)工程，取名为GridTest,并在AppWizard的第2步中确认已经提供ActiveX控件支持。

三.插入控件我们需要插入Microsoft RemoteData Control与DBGrid Control两个控件，方法如下：1)选择菜单->Project->Add to Project->Components and Controls Gallery2)在部件选择对话框中进入Registered ActiveX Controls3)选择Microsoft RemoteData Control ，单击Insert按钮，确认后对类进行配置(可以按默认），我们不做任何修改单击OK按钮，插入完成。

以同样的步骤，插入DBGrid Control控件。

4)回到VC工作区，我们在ResourceView中选择GridTest对话框模板(即ID号为IDD_GRIDTEST_DIALOG的对话框模板)此时我们发现在Controls工具条中已经新增了两个按钮，分别表示刚才插入的两个控件。

5)现在我们在模板中画出这两个控件，如图所示：四.更改控件属性鼠标右键单击RemoteData Control控件,在右键菜单中选择Properties,弹出属性对话框，在Control选项卡中选择数据源test,在SQL中输入SQL语句例如：select * from users如下图所示：用同样的方法我们打开DBGrid控件的属性对话框。

VBAADO连接ACCESS数据库⼀、ACCESS数据库加密1、ACCESS 2013数据库加密⽅式（1）使⽤旧版加密（适⽤于反向兼容和多⽤户数据）（2）使⽤默认加密（安全性较⾼）ADO连接仅⽀持旧版加密，使⽤VBA代码动态创建带密码的Access 数据库⽂件，也是旧版加密。

2、数据库如果采⽤⼿⼯设置密码，则要设置为旧版加密⽅式：打开ACCESS 2013—Access选项—客户端设置—加密⽅法--使⽤旧版加密（适⽤于反向兼容和多⽤户数据）⼆、设置ADO连接ACCESS数据库⽅式⼀（1）引⽤ Microsoft ActiveX Data Objects 2.x Library（操作⽅式：Visual Basic-⼯具-引⽤，不同office版本不同）说明：当未引⽤，运⾏后会显⽰“⽤户定义类型未定义”（2）连接代码Sub 导⼊数据1()Dim cnn As ADODB.Connection '数据库连接Dim mydata As String '数据库的完整路径和名称Dim mytable As String '数据表名称Dim sql As String 'sql语句Dim rs As ADODB.Recordset '临时数据表纪录Dim i As Integer '循环数据变量（获取数据表字段）'1、连接数据库Set cnn = New ADODB.Connectionmydata = ThisWorkbook.Path & "\进销存数据库.accdb"With cnn.Provider = "Microsoft.ACE.OLEDB.12.0;Jet OLEDB:Database Password='123456'".Open mydataEnd With'2、建⽴与数据库的连接mytable = "采购数据3"sql = "select 采购数据3.ID,采购数据3.采购⽇期,采购数据3.供货类型,采购数据3.采购分类,采购数据3.供应商,采购数据3.名称,采购数据3.单位,采购数据3.单价,采购数据3.数量,采购数据3.⾦额,采购数据3.⼊账⽇期" & " from " & mytable & " order by 采购⽇期"Set rs = New ADODB.Recordsetrs.Open sql, cnn, adOpenKeyset, adLockOptimistic'3、复制数据库数据' (1)清除原数据ActiveSheet.Cells.ClearContents'（2）复制字段名For i = 1 To rs.Fields.CountCells(1, i) = rs.Fields(i - 1).NameNext i'（3）复制全部数据Range("A2").CopyFromRecordset rsrs.Closecnn.CloseSet rs = NothingSet cnn = NothingEnd Sub三、设置ADO连接ACCESS数据库⽅式⼆⽆需引⽤，直接创建连接Sub 导⼊数据2()Dim cnn As Object '数据库连接Dim strcnn As String 'ACCESS连接语句Dim mydata As String '数据库的完整路径和名称Dim mytable As String '数据表名称Dim sql As String 'sql查询语句Dim rs As Object '临时数据表纪录Dim i As Integer '循环数据变量（获取数据表字段）'1、连接数据库Set cnn = CreateObject("ADODB.Connection")mydata = ThisWorkbook.Path & "\进销存数据库.accdb"Select Case Application.Version * 1 '设置连接字符串,根据版本创建连接Case Is <= 11strcnn = "Provider=Microsoft.Jet.Oledb.4.0;Jet OLEDB:Database Password='123456';Data Source=" & mydataCase Is >= 12strcnn = "Provider=Microsoft.ACE.OLEDB.12.0;Jet OLEDB:Database Password='123456';Data Source=" & mydataEnd Selectcnn.Open strcnn '打开数据库链接'2、设置sql查询语句mytable = "采购数据3"Set rs = CreateObject("ADODB.Recordset")sql = "select 采购数据3.ID,采购数据3.采购⽇期,采购数据3.供货类型,采购数据3.采购分类,采购数据3.供应商,采购数据3.名称,采购数据3.单位,采购数据3.单价,采购数据3.数量,采购数据3.⾦额,采购数据3.⼊账⽇期" & " from " & mytable & " order by 采购⽇期"Set rs = cnn.Execute(sql) '执⾏查询，并将结果输出到记录集对象'3、复制数据库数据With ActiveSheet.Cells.ClearContentsFor i = 0 To rs.Fields.Count - 1 '填写标题.Cells(1, i + 1) = rs.Fields(i).NameNext i.Range("A2").CopyFromRecordset rs'.Cells.EntireColumn.AutoFit '⾃动调整列宽'.Cells.EntireColumn.AutoFit '⾃动调整列宽End Withrs.Closecnn.CloseSet rs = NothingSet cnn = NothingEnd Sub。

Vb利用ADO控件连接Access数据库验证——在窗体上利用文本框显示浏览数据、添加数据、保存数据、删除数据Vb利用ADO控件连接Access数据库有两种方法：方法一：是在adodc1的属性里设置数据库文件的路径，这种方法的优点是简单容易操作，确定是，当源文件换了路径后，要重新设置数据库的路径，否则就连接不上数据库了。

方法二：是用代码设置数据库的路径，这种方法的优点是只要源文件和数据库在同一个文件夹下，无论移动到哪里都能连接上。

Test2例子：要求在窗体上利用文本框浏览显示数据表中的数据、添加数据、保存数据。

首先建立数据库文件和表；打开vb，创建一工程和一个窗体，在需要调用数据库的窗体上加入一个adodc控件，默认名称为：adodc1；默认的情况下，工具栏里是没有这个控件的，可以打开工程——部件，勾上Microsoft ADO Data Control(OLEDB)，然后确定，工具栏就会多了一个adodc控件。

第一种方法：略第二种方法：一、添加保存功能，运行效果如下图1、设计窗体如上，在窗体上添加标签、文本框、按钮、adodc控件2、分别设置窗体的load、按钮的click事件代码3、将其余的数据表中的数据也显示出来，并实现添加保存功能。

提示：只需要在窗体上添加若干标签、按钮控件，并设置文本框的datasource和datafield 属性值即可。

二、浏览记录1、在窗体上添加如下四个按钮，对应名称分别为：Command3、Command4、Command5、Command62、分别为上述四个按钮添加相应给你的代码(Command4_Click内的BOF修改为EOF)三、数据表中记录的删除删除按钮Command7的代码为：。

ADO连接Access的例子1、在APP文件中添加：（AfxEnableControlContainer();）之前：自定义一个变量_ConnectionPtr m_pConnection1;////////////////////////////////////////////////////////////////////////// AfxOleInit();m_pConnection1.CreateInstance(__uuidof(Connection));try{// 打开本地Access库Demo.mdbm_pConnection1->Open("Provider=Microsoft.Jet.OLEDB.4.0;DataSource=Demo.mdb","","",adModeUnknown);}catch(_com_error e){AfxMessageBox("数据库连接失败，确认数据库Demo.mdb是否在当前路径下!");return FALSE;}//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// //名称：ExitInstance//功能：退出时清除工作///////////////////////////////////////////////////////////////////////////// int CLinkaccessApp::ExitInstance(){// TODO: Add your specialized code here and/or call the base class// 关闭ADO连接状态if(m_pConnection1->State)m_pConnection1->Close();m_pConnection1= NULL;return CWinApp::ExitInstance();}以下为在dlg中添加的代码由于需要在Dlg中调用App中的变量m_pConnection1，需要在dlg中添加：extern CLinkaccessApp theApp;BOOL CLinkaccessDlg::OnInitDialog(){CDialog::OnInitDialog();// 将\“关于...\”菜单项添加到系统菜单中。