ADO方法对Access数据库操作

合集下载

用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代码如下：<% sql1=＂insert into reply( reid,reply,retime) values(‘1’,’谢;谢’,’10/11/12’)＂conn.execute.sql1conn.closeset.conn=nothing%>4.用对象显示表中记录，在当前目录下，建一个show.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>三、其他操作打开管理员回复信息数据库，开始调用其中内容。

vc++中使用ado方式操作access数据库

vc++中使用ado方式操作access数据库ADO(ActiveX Data Object)是Microsoft数据库应用程序开发的新接口，是建立在OLE DB之上的高层数据库访问技术，即使你对OLE DB，COM不了解也能轻松对付ADO,因为它非常简单易用，甚至比你以往所接触的ODBC API、DAO、RDO都要容易使用，并不失灵活性。

本文详细地介绍在Visual C++开发环境下如何使用ADO来进行数据库应用程序开发，并给出示例代码。

为了使读者朋友都能测试本例提供的代码，我们采用Access数据库，您可以直接在我们提供的示例代码中找到这个test.mdb。

程序编译运行后的效果如图一所示图一、ADO操作ACESS数据库的界面效果图一、实现方法万事开头难，任何一种新技术对于初学者来说最重要的还是"入门"，掌握其要点。

让我们来看看ADO数据库开发的基本流程吧！它的基本步骤如下：（1）初始化COM库，引入ADO库定义文件（2）用Connection对象连接数据库（3）利用建立好的连接，通过Connection、Command对象执行SQL命令，或利用Recordset对象取得结果记录集进行查询、处理。

（4）使用完毕后关闭连接释放对象。

下面我们将详细介绍上述步骤并给出相关代码。

1、COM库的初始化我们可以使用AfxOleInit()来初始化COM库，这项工作通常在CWinApp::InitInstance()的重载函数中完成，请看如下代码:BOOL CADOTest1App::InitInstance(){AfxOleInit();......}2、用#import指令引入ADO类型库为了引入ADO类型库，需要在项目的stdafx.h文件中加入如下语句：#import "c:program filescommon filessystemadomsado15.dll"no_namespace rename("EOF","adoEOF")这一语句有何作用呢？其最终作用同我们已经十分熟悉的#include类似，编译的时候系统会为我们生成msado15.tlh,ado15.tli两个C++头文件来定义ADO库。

ADO对象操作Access数据库关键技术

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数据库关键技术

批量处理数据：将多个操作合并为一个事务，减少数据库操作的次数和时间
使用索引：为经常查询的字段建立索引，提高查询效率
优化数据库设计：合理设计数据库结构，减少数据冗余和复杂度
错误处理策略建议
捕获异常：使用Tr y...Catch语句捕获异常，确保程序正常运行错误日志记录：记录错误信息，方便后续排查和解决问题错误提示：提供友好的错误提示信息，帮助用户快速定位问题避免重复操作：在发生错误后，避免重复执行可能导致错误的操作
ADO对象操作 Access数据库关键技术
单击此处添加副标题
汇报人：
目录
添加目录项标题
ADO对象操作Access数据库
示例代码展示
ADO对象概述关键技术解析注意事项与最佳实践
01
添加章节标题
02
ADO对象概述
ADO对象定义
ADO（ActiveX Data Objects）：是一种用于访问数据库的对象模型 ADO是基于COM（组件对象模型）的，因此可以在各种编程语言中使用 ADO提供了与数据库交互的接口，可以执行SQL语句、读取数据等操作 ADO对象包括Connection、Recordset、Command等，用于与数据库进行交互
ADO对象模型
ADO对象模型
ADO对象的主要组件
ADO对象的主要方法
ADO对象的主要属性
ADO对象与数据库连接
ADO对象与数据库连接 ADO对象的主要组件 ADO对象的使用方法 ADO对象与数据库的交互过程
03
ADO对象操作 Access数据库
建立数据库连接
使用ADO对象操作Access数据库需要先建立数据库连接
获取结果集示例

VB利用ADO控件连接access数据库

VB利用ADO控件连接access数据库今天告诉大家VB利用ADO控件连接access数据库的两种方法:一种是在 adodc1的属性里设置数据库文件的路径,这种方法的优点是简单易操作,缺点是,当源文件换了地方后,要重新设置数据库的路径,否则连接不上数据库了。

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

如果没有建立好数据库的话,先建立一个数据库,然后建立一个表比如我们建的表名为message,然后把里面的字段名称和数据类型都按自己的需要设置好.然后保存就可以了.打开Microsoft Visual Basic6.0 我用的是VB6.0,在需要调用数据库的窗体上加入一个adodc控件,默认名称为:Adodc1。

默认的情况下工具栏里是没有这个控件的,可以打开工程---部件(快捷键CTRL+T),去掉只显示选定项的勾,然后勾上Microsoft ADO Data Control(OLEDB),然后确定，工具栏就会多了一个adodc的控件。

第一种方法:设置adodc1的属以连接数据库.在adodc1控件上右键--Adodc属性--使用连接字符串--生成--Microsoft Jet 4.0 OLE DB Provider--下一步--选择或输入数据库名称---找到要连接的数据库后,确定.然后记录源设置属性. 如果要把内容提交到数据库一般使用adCmdTable. 表选择要连接的表。

设置完毕后就可以了.如果我们想把内容提交到数据库.举个例子..在窗体建立一个文本框,设置属性中的DataSource为adodc1 DataField为要连接的数据库的字段名。

如果数据库中有字段，会让你选择。

设置好后在窗体加一个添加记录和一个提交的按钮，设置代码:Private Sub Command1_Click() Adodc1.Recordset.Update '保存Adodc1.Refresh '刷新End Sub添加按钮代码:Private Sub Command2_Click() Adodc1.Recordset.AddNew '添加新纪录Adodc1.Recordset("姓名").Value = Text1.Text End Sub第二种方法:在窗体添加Adodc控件一个text控件一个添加记录按钮一个提交按钮在窗体设置代码:Private Sub Form_Load()Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\db1.mdb;Persist Security Info=False" '设置数据库路径mandType = adCmdText '设置记录源Adodc1.RecordSource = "select * from message" '连接数据库的message 表文件Set Text1.DataSource = Adodc1 text1.DataField = "姓名"End Sub添加记录按钮代码:Private Sub Command1_Click() Adodc1.Recordset.AddNew '添加新纪录End Sub提交代码:Private Sub Command2_Click() Adodc1.Recordset.Update '保存Adodc1.Refresh '刷新End Sub好了连接方法讲完了,我都在机子上测试过了,因该没有什么问题的。

ADO方法对Access数据库操作

新建一个Accesss数据库文件，然后文件--新建--空白桌面数据库，弹出下面的窗口。

点击那个小文件夹的图标，出现下面的窗口，保存类型选择2002—2003格式，文件名，然后确定，创建。

然后在设计视图中设计数据库成下面的样式。

再在数据库中增添一些信息如下：然后保存就可以了，记得注意一下把“表1”这个名字改过来啊。

二、在VC++中建立一个基于对话框的工程(在这里取名为sjtest)1、在FileView中的Header Files的头文件中导入文件。

(代码如下)#import "C:\Program Files\Common Files\System\ado\" no_namespace \ rename("EOF","adoEOF")rename("BOF","adoBOF")2、在主窗口类声明两个变量。

(在中)代码：（这两个是智能指针，百度一下哈）_ConnectionPtr m_pConnection;_RecordsetPtr m_pRecordset;3、在对话框中添加一个ListControl控件，并且将其属性中的Style设置如图4、为list control捆绑变量m_Grid（查看—建立类向导—Add Member variable name）5、在CSjtestApp应用程序类中的初始化函数InitInstance()中初始化COM环境在上面添加： ::CoInitialize(NULL);并在return之前释放：添加代码如下： ::CoUninitialize();6、建立ADO连接数据库函数在主窗口类(CSjktestDlg)库中添加函数OnInitADOConn()如图：并在函数体中写上下面的语句：try{db)};\uid=;pwd=;DBQ=;";//使用Open方法连接数据库m_pConnection->Open((_bstr_t)strConnect,"","",adModeUnknown);}catch(_com_error e){AfxMessageBox("连接数据失败，请检查数据库路径是否正确！");}这里，是你建立的Access数据库的名字。

ADO控件连接ACCESS数据库并进行修改添加

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
四、设置命令按钮实现数据读写。

效果如下。

用ADO访问加密的Access数据库

MyConn.Properties("Jet OLEDB:Database Password") = "MyPwd"
MyConn.Open
-或-
Dim MyConn As New ADODB.Connection
provider。
MyConn.Open ConnectionString:=strConn
-或-
Dim MyConn As New ADODB.Connection
Dim strConn As String
MyConn.Open ConnectionString:=strConn
如果你打开一个数据库使用了Jet安全保护，你需要使用以下方式：
Dim MyConn As New ADODB.Connection
MyConn.Provider = "Microsoft.Jet.OLEDB.3.51"
Dim strConn As String
strConn = "Provider=Microsoft.Jet.OLEDB.3.51;"
"Data SourDB;" & _
如果你希望打开一个有口令保护的Access数据库，你可以用以下三种语法的任一种：
Dim MyConn As New ADODB.Connection
MyConn.Provider = "Microsoft.Jet.OLEDB.3.51"
MyConn.Properties("Data Source") = "C:\...\JetPassword.MDB"

VBAADO连接ACCESS数据库

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数据库验证——在窗体上利用文本框显示浏览数据、添加数据、保存数据、删除数据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数据库

使用ADO操作Access数据库ADO对象1、Access内嵌的VBA是用ADO技术开发数据库应用的主要工具，ADO是目前Microsoft通用的数据访问技术；2、ADO对象模型包括：Connection、Recordset、Record、Command、Parameter、Field、Property、Stream、Error九个对象；3、主要的ADO对象介绍：1）Connection对象：ADO对象模型中的最高级对象，用来实现应用程序与数据源的连接；2）Command对象：主要在VBA中使用SQL语句访问、查询和修改数据库中的数据，实现Recordset对象无法实现的操作（数据表级别的操作），可以使用DoCmd代替；3）Recordset对象：ADO最为常用的、重要的对象，可以访问表和查询对象，返回的记录储存在Recorderset对象中，主要执行的操作：①查询数据表中的数据；②在数据表中添加数据；③更新数据表中的数据；④删除数据表中的特定数据；在Access中引用ADO对象1、Access引用ADO的步骤：①声明、初始化Connection对象；②创建Recordset对象，编程完成各种操作；③关闭ADO对象；2、声明、初始化Connection对象'声明Connection对象：一般使用cn做为变量的命名前缀；Dim coName As ADODB.Connection'初始化Connection对象，连接当前数据库；Set cnName = CurrentProject.Connection3、声明和打开Recordset对象1）声明、初始化Recordset对象Dim rsName As ADODB.Recoresetset rsName = new ADODB.Recordset2）打开一个Recordset对象使用Recordset的Open方法可以打开数据表、查询对象、或直接引用SQL查询语句4、关闭Recordset和Connection对象rsName.ClosecnName.CloseSet rsName = NothingSet cnName = Nothing通过Recordset对象引用记录字段1、引用字段的方法有2种：直接在记录集对象中引用字段名称；使用记录集对象的Fields（n）属性引用；Code = rsName！字段名'引用该字段的第一条记录Code = rsName.Field(n)'引用该字段的第n条记录，n从0开始，可以用循环输出需要量的记录2、如果记录集字段包含空格、或者是一个保留字，则引用时必须将该字段用 [ ] 括起来；通过Recordset对象浏览记录1.Recordset记录集对象提供了4种方法浏览记录2、BOF、EOF属性分别记录指针是否在文件开始、文件末尾；如果记录集指针指向某记录时，BOF和EOF都为false；'添加一个窗体部件的按钮事件:浏览下一条记录Priavte Sub ComomndNext_Click()rsDemo.MoveNextIf rsDemo。

VC++中使用ADO方式操作ACCESS数据库

VC++中使用ADO方式操作ACCESS数据库ADO(ActiveX Data Object)是Microsoft数据库应用程序开发的新接口，是建立在OLE DB之上的高层数据库访问技术，即使你对OLE DB，COM不了解也能轻松对付ADO,因为它非常简单易用，甚至比你以往所接触的ODBC API、DAO、RDO都要容易使用，并不失灵活性。

本文详细地介绍在Visual C++开发环境下如何使用ADO来进行数据库应用程序开发，并给出示例代码。

为了使读者朋友都能测试本例提供的代码，我们采用Access数据库，您可以直接在我们提供的示例代码中找到这个test.mdb。

程序编译运行后的效果如图一所示：图一、ADO操作ACESS数据库的界面效果图一、实现方法万事开头难，任何一种新技术对于初学者来说最重要的还是"入门"，掌握其要点。

让我们来看看ADO 数据库开发的基本流程吧！它的基本步骤如下：（1）初始化COM库，引入ADO库定义文件（2）用Connection对象连接数据库（3）利用建立好的连接，通过Connection、Command对象执行SQL命令，或利用Recordset对象取得结果记录集进行查询、处理。

（4）使用完毕后关闭连接释放对象。

下面我们将详细介绍上述步骤并给出相关代码。

0003 C#使用ADO直接访问Access数据库中表

1.C#使用ADO直接访问Access数据库中表数据库连接字符串为：OleDbConnection _oleDbConnection = newOleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + m_databaseName);程序示例：///<summary>///根据名称选择Oracle数据库中的表对象，并向Geodatabase同名表对象中添加数据，方便进度条功能的实现///</summary>///<param name="tableName">表名称</param>public void LoadTable2Geodatabase(string tableName){ClassDatabaseConfig _databaseConfig = new ClassDatabaseConfig();_databaseConfig.XMLFileName = m_xmlFileName;_databaseConfig.ReadDatabaseConfig();ClassTablespace _tablespace = _databaseConfig.ConnectedTablespace;ClassTable _table = _tablespace.GetTableByName(tableName);OleDbConnection _oleDbConnection = newOleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + m_databaseName);OracleConnection _connection = new OracleConnection(m_connectionString);try{_oleDbConnection.Open();_connection.Open();}catch (Exception ex){DevComponents.DotNetBar.MessageBoxEx.Show(ex.Message,"错误",MessageBoxButtons.OK,MessageBoxIcon.Error);}int _rowCount = 0;string _selectSQL = "Select * from hsuser." + tableName;OracleCommand _selectCommand = new OracleCommand(_selectSQL, _connection);OracleDataReader _dataReader = _selectCommand.ExecuteReader();string _insertValue = "";while (_dataReader.Read() == true){for (int i = 0; i < _table.Columns.Count; i++){string _value = _dataReader.GetOracleValue(i).ToString();_insertValue = _insertValue + "'" + _value + "',";}_insertValue = _insertValue.Substring(0, _insertValue.Length - 1);string _insertSQL = "Insert into " + tableName + " values(" + _insertValue + ")";OleDbCommand_insertCommand = new OleDbCommand(_insertSQL, _oleDbConnection);try{_insertCommand.ExecuteNonQuery();_rowCount++;_insertValue = "";}catch (Exception ex){DevComponents.DotNetBar.MessageBoxEx.Show(ex.Message,"错误",MessageBoxButtons.OK,MessageBoxIcon.Error);//MessageBox.Show(ex.Message);}}_oleDbConnection.Close();_connection.Close();m_lableProgress = "成功向表 " + tableName + " 中添加记录 " + _rowCount.ToString() + " 条";}2、使用ArcEngine里面的ITable向表格中添加行的时候，需要注意，当表没有OID(唯一标识符)字段时，会出现错误问题描述：在File Geodatabase中新建了一个表格，现在要往里面写数据。

VC++中使用ADO方式操作ACCESS数据库

VC++中使用ADO方式操作ACCESS数据库用SQL创建数据库首先说说怎么用SQL语句创建数据库，创建数据库的语句有如下几种：1. CREATE TABLE（创建新表）2. CREATE INDEX（增加索引）3. DROP INDEX（删除索引）4. CONSTRAINT（约束语句）5. ALTER TABLE（修改表）6. DROP TABLE（删除表）CREATE TABLE语句：在数据库中生成新表，表中字段的类型可以为：INTEGER（整型）、LONG（长整型）、SINGLE （单精度浮点数）、DOUBLE（双精度浮点数）、DA TETIME（日期型，也可以写成DA TE）、BIT（布尔型）、TEXT（字符串型，最大255个字节）、MEMO（字符串型，最大可达1.2G 字节）、COUNTER（自动递增长整型，可确定记录的唯一性）、CURRENCY（货币型，精确到小数点左边15位，右边4位）、BINARY（字节型，最大255个）、LONGBINARY（用于OLE 对象）、GUID（全局唯一标识符）。

生成表NewTable，该表有文本字段Field1和整型字段Field2，表名和字段名可以随便你取，不区分大小写，但是，有些保留字不能用作表名字段名，比如NumberCREATE TABLE NewTable (Field1 INTEGER ,Field2 TEXT);CREATE [ UNIQUE ] INDEX indexON table (field [ASC|DESC][, field [ASC|DESC], ...])[WITH { PRIMARY | DISALLOW NULL | IGNORE NULL }]CREATE INDEX 语句说明：index：要创建的索引的名称。

table：将包含索引的现有表的名称。

field ：要进行索引的字段的名称。

若要创建单字段索引，请在表名后的括号中列出字段名。

VC之ADO访问ACCESS数据库

1.引入ADO类#import "c:\program files\common files\system\ado\msado15.dll" \no_namespace \rename ("EOF", "adoEOF")2.在资源视图里面添加按钮(如图，并设置相应的ID)及其他资源:方法:打开Dialog对话框IDD_XPDLG_DIALOG 并加入一个Button,双击这个Button，生成该按钮单击处理函数。

3.编辑CMyAccessApp类:A.在CMyAccessApp类里面初始化COMAfxOleInit();m_pConnection.CreateInstance(__uuidof(Connection));在ADO操作中建议语句中要常用try...catch()来捕获错误信息try{// 打开本地Access库db1.mdbm_pConnection->ConnectionTimeout =5;m_pConnection->Open("Provider=Microsoft.Jet.OLEDB.4.0;DataSource=db1.mdb","","",adModeUnknown);}catch(_com_error e){AfxMessageBox(TEXT("数据库连接失败，确认数据库db1.mdb是否在当前路径下!"));////VS2005编译器只能写成AfxMessageBox(_T("test"));才能使用return FALSE;}(其中我的数据库的表名是dbtable,数据库是db1)附：常用的数据库连接方法：(1)通过JET数据库引擎对ACCESS2000数据库的连接m_pConnection->Open("Provider=Microsoft.Jet.OLEDB.4.0;DataSource=C:\\test.mdb","","",adModeUnknown);(2)通过DSN数据源对任何支持ODBC的数据库进行连接:m_pConnection->Open("Data Source=adotest;UID=sa;PWD=;","","",adModeUnknown);(3)不通过DSN对SQL SERVER数据库进行连接：m_pConnection->Open("driver={SQLServer};Server=127.0.0.1;DATABASE=vckbase;UID=sa;PWD=139","","",adModeUnknown);其中其中Server是SQL服务器的名称，DATABASE是库的名称B.使用vc2005自带的重写函数ExitInstance(){// 关闭ADO连接状态if(m_pConnection->State)m_pConnection->Close();m_pConnection= NULL;}4.在CMyAccessDlg类里面编辑()：A.#import 包含后就可以用3个智能指针了:_ConnectionPtr、_RecordsetPtr和_CommandPtr 定义ADO连接、命令、记录集变量指针_ConnectionPtr m_pConnection;_CommandPtr m_pCommand;_RecordsetPtr m_pRecordset;添加用于相应相应资源的变量：CListBox m_AccessList;CString m_Name;CString m_Age;在DoDataExchange中添加代码处理消息：DDX_Control(pDX, IDOK, m_OK);DDX_Control(pDX, IDC_WRITEACCESS, m_Write);DDX_Control(pDX, IDC_READACCESS, m_Read);DDX_Control(pDX, IDC_MODIFY, m_Modify);DDX_Control(pDX, IDC_DELETE, m_Delete);DDX_Control(pDX, IDC_ABOUT, m_About);DDX_Control(pDX, IDC_LISTACCESS, m_AccessList);DDX_Text(pDX, IDC_NAME, m_Name);//bian ji kuang Name de ID wei IDC_NAMEDDV_MaxChars(pDX, m_Name, 10);//Name de ge shiDDX_Text(pDX, IDC_AGE, m_Age);bian ji kuang Age de ID wei IDC_AGEDDV_MaxChars(pDX, m_Age, 3);//Age de ge shi在BEGIN_MESSAGE_MAP(CMyAccessDlg, CDialog)下面添加列表框处理函数ON_LBN_SELCHANGE(IDC_LISTACCESS, OnSelchangeListaccess)(以下为数据库的操作——---——)(1).打开一个记录集：首先创建一个_RecordsetPtr实例,然后调用Open()得到一条SQL语句的执行结果//使用ADO创建数据库记录集m_pRecordset.CreateInstance(__uuidof(Recordset));// 在ADO操作中建议语句中要常用try...catch()来捕获错误信息，try{m_pRecordset->Open("SELECT * FROM dbtable", // 查询DemoTable表中所有字段theApp.m_pConnection.GetInterfacePtr(), // 获取库接库的IDispatch指针adOpenDynamic,adLockOptimistic,adCmdText);}catch(_com_error *e){AfxMessageBox(e->ErrorMessage());}(2).编辑Read按钮对应的函数{_variant_t var;CString strName,strAge;// 清空列表框m_AccessList.ResetContent();strName=strAge="";// 在ADO操作中建议语句中要常用try...catch()来捕获错误信息，try{if(!m_pRecordset->BOF)m_pRecordset->MoveFirst();else{AfxMessageBox(TEXT("表内数据为空"));return;}// 读入库中各字段并加入列表框中while(!m_pRecordset->adoEOF){var = m_pRecordset->GetCollect("Name");if(var.vt != VT_NULL)strName = (LPCSTR)_bstr_t(var);var = m_pRecordset->GetCollect("Age");if(var.vt != VT_NULL)strAge = (LPCSTR)_bstr_t(var);m_AccessList.AddString( strName + " --> "+strAge );m_pRecordset->MoveNext();}// 默认列表指向第一项，同时移动记录指针并显示m_AccessList.SetCurSel(0); OnSelchangeListaccess();//列表框处理函数}catch(_com_error *e){AfxMessageBox(e->ErrorMessage());}(3).插入按钮对应函数编辑：{UpdateData();if(m_Name == "" || m_Age == ""){AfxMessageBox(_T("姓名和年龄信息不能为空!")); return;}try{// 写入各字段值m_pRecordset->AddNew();m_pRecordset->PutCollect("Name", _variant_t(m_Name)); USES_CONVERSION;m_pRecordset->PutCollect("Age", atol(T2A(m_Age)));m_pRecordset->Update();AfxMessageBox(TEXT("插入成功!"));// 更新显示其库内容int nCurSel = m_AccessList.GetCurSel(); OnBnClickedReadaccess();m_AccessList.SetCurSel(nCurSel);// 移动记录指针到新的位置OnSelchangeListaccess();}catch(_com_error *e){AfxMessageBox(e->ErrorMessage());}}(4).删除按钮对应函数编辑：{if(m_AccessList.GetCount() == 0)return;else if(m_AccessList.GetCurSel() < 0 || m_AccessList.GetCurSel() >m_AccessList.GetCount())m_AccessList.SetCurSel(0);try{// 删除当前行记录m_pRecordset->Delete(adAffectCurrent);m_pRecordset->Update();// 删除列表中当前值int nCurSel = m_AccessList.GetCurSel();m_AccessList.DeleteString(nCurSel);if(nCurSel == 0 && (m_AccessList.GetCount() != 0))m_AccessList.SetCurSel(nCurSel);else if(m_AccessList.GetCount() != 0)m_AccessList.SetCurSel(nCurSel-1);// 移动记录指针到新的位置OnSelchangeListaccess();}catch(_com_error *e){AfxMessageBox(e->ErrorMessage());}}(5).修改按钮对应函数编辑{UpdateData(); // 更新对话框数据if(m_AccessList.GetCount() == 0 || m_Name == "" || m_Age == "") {AfxMessageBox(_T("表中记录数为空或姓名和年龄信息没有设置!"));return;}else if(m_AccessList.GetCurSel() < 0 || m_AccessList.GetCurSel() >m_AccessList.GetCount())m_AccessList.SetCurSel(0);// 修改当前记录的字段值try{m_pRecordset->PutCollect("Name", _variant_t(m_Name));//cannot convert parameter 1 from 'CString' to 'const char *'//程序运行在Unicode模式下,解决CString convert to const char* 方法USES_CONVERSION;m_pRecordset->PutCollect("Age", atol(T2A(m_Age)));//m_pRecordset->PutCollect("Age", atol(m_Age));m_pRecordset->Update();// 重新读入库记录更新显示int nCurSel = m_AccessList.GetCurSel();OnBnClickedReadaccess();m_AccessList.SetCurSel(nCurSel);// 移动记录指针到新的位置OnSelchangeListaccess();}catch(_com_error *e){AfxMessageBox(e->ErrorMessage());}}(6).当每次选择新的记录时，都会移动指针到新的记录位置并将值显示出来用到OnSelchangeListaccess()函数，要自己建的{int curSel = m_AccessList.GetCurSel();_variant_t var,varIndex;if(curSel < 0) return;try{// 先将指针移向第一条记录，然后就可以相对第一条记录来随意移动记录指针m_pRecordset->MoveFirst();m_pRecordset->Move(long(curSel));var = m_pRecordset->GetCollect("Name");if(var.vt != VT_NULL)m_Name = (LPCSTR)_bstr_t(var);var = m_pRecordset->GetCollect("Age");if(var.vt != VT_NULL)m_Age = (LPCSTR)_bstr_t(var);UpdateData(false);}catch(_com_error *e){AfxMessageBox(e->ErrorMessage());}}(7).如果要实现XP风格按钮可以看一下这个网页：/?action-viewnews-itemid-6260925.好了，编译运行一下喔，就可以看到效果了。

mfc使用ado连接access数据库

1.设置数据源打开控制面板--->系统和安全--->管理工具--->ODBC Data Sources(32 bit)这里需要注意的是，vc6.0是32位的，因此这里的数据源也必须是32位的，否则是连接不上的，这里我使用的是ACCESS数据库，数据源的配置如下：2.创建包含数据库的MFC对话框（其它也可以）工程，新建ADOConn类在工程中我们需要新建一个普通类ADOConn然后在ADOConn类头文件中加入以下导入声明和变量、函数声明：ADOConn.h---------------------------------------------------------------------------------#import "c:\Program Files\Common Files\System\ado\msado15.dll"no_namespace rename("EOF","adoEOF")//引入ADO库文件public:_ConnectionPtr m_pConnection;//连接对象指针_RecordsetPtr m_pRecordset;//记录集对象指针_CommandPtr m_pCommand;//命令对象指针ADOConn();virtual ~ADOConn();BOOL OnInitADOConn(CString Connstr);//初始化连接数据库BOOL ExecuteSQL(CString strSQL);//执行SQL语句BOOL ExecuteProc(CString ProcName);//执行存储过程BOOL GetCollect(CString FieldName,CString & strDest);//获得某个字段的值 BOOL GetRecordSet(CString strSQL);//获得记录集int GetRecordCount();//获得记录数//判断表TableName中是否存在字段KeyName的值为KeyValue的记录 BOOL RecordExist(CString TableName,CString KeyName,CString KeyValue); BOOL MoveFirst();//移动到第一条记录BOOL MoveNext();//移动到下一条记录BOOL Close();//关闭记录集BOOL CloseADOConnection();//关闭连接void dump_com_error(_com_error &e);//错误详细信息ADOConn.h---------------------------------------------------------------------------------然后在ADOConn类源文件中加入函数实现：ADOConn.cpp---------------------------------------------------------------------------------ADOConn::ADOConn()//构造函数{}ADOConn::~ADOConn()//析构函数{}BOOL ADOConn::OnInitADOConn(CString ConnStr)//初始化连接数据库{try{m_pRecordset.CreateInstance("ADODB.Recordest");m_pCommand.CreateInstance("mand");m_pConnection.CreateInstance("ADODB.Connection");_bstr_t strConnect=(_bstr_t)ConnStr;m_pConnection->Open((_bstr_t)strConnect,"","",adModeUnknown);AfxMessageBox("数据库连接成功");return true;}catch(_com_error e){AfxMessageBox("数据库连接失败");return false;}}BOOL ADOConn::ExecuteSQL(CString strSQL)//执行SQL语句{try{m_pConnection->BeginTrans();m_pConnection->Execute(_bstr_t(strSQL),NULL,adCmdText);m_pConnection->CommitTrans();return true;}catch(_com_error e){m_pConnection->RollbackTrans();AfxMessageBox("执行SQL语句失败");return false;}}BOOL ADOConn::ExecuteProc(CString ProcName)//执行存储过程{m_pCommand->ActiveConnection=m_pConnection;m_pCommand->CommandText=_bstr_t(ProcName);m_pCommand->Execute(NULL,NULL,adCmdStoredProc);return true;}catch(_com_error e){AfxMessageBox("执行存储过程失败");return false;}}BOOL ADOConn::GetCollect(CString FieldName,CString & strDest)//获得某个字段的值{VARIANT vt;try{vt=m_pRecordset->GetCollect(_variant_t(FieldName));switch(vt.vt){case VT_BSTR:strDest=(LPCSTR)_bstr_t(vt);break;case VT_DECIMAL:strDest.Format("%d",vt.intVal);break;case VT_DATE:{DATE dt=vt.date;COleDateTime da=COleDateTime(dt);strDest.Format("%d-%d-%d %d: %d: %d",da.GetYear(),da.GetMonth(),da. GetDay(),da.GetHour(),da.GetMinute(),da.GetSecond());break;}case VT_NULL:strDest="";break;}return true;}catch(_com_error e){AfxMessageBox(e.ErrorMessage());return false;}return true;}BOOL ADOConn::GetRecordSet(CString strSQL)//获得记录集{m_pCommand->CommandText=(_bstr_t)strSQL;m_pCommand->ActiveConnection=m_pConnection;m_pCommand->CommandType=adCmdText;m_pRecordset=m_pCommand->Execute(NULL,NULL,adCmdText);return true;}catch(_com_error e){AfxMessageBox("执行select语句失败");return false;}}int ADOConn::GetRecordCount()//获得记录数{DWORD nRows = 0;nRows=m_pRecordset->GetRecordCount();if(nRows==-1){nRows=0;if(m_pRecordset->adoEOF!=VARIANT_TRUE) m_pRecordset->MoveFirst();while(m_pRecordset->adoEOF!=VARIANT_TRUE){nRows++;m_pRecordset->MoveNext();}if(nRows>0)m_pRecordset->MoveFirst();}return nRows;}//判断表TableName中是否存在字段KeyName的值为KeyValue的记录BOOL ADOConn::RecordExist(CString TableName,CString KeyName,CString KeyValue) {CString countstr;countstr="select * from "+TableName+"where"+KeyName+"=\'"+KeyValue+"\'"; BOOL ret =GetRecordSet(countstr);if(ret){int ret2=GetRecordCount();if(ret2) return true;else return false;}else return false;}BOOL ADOConn::MoveFirst()//移动到第一条记录{try{m_pRecordset->MoveFirst();return true;}catch(_com_error e){AfxMessageBox("结果集移到第一个失败");return false;}}BOOL ADOConn::MoveNext()//移动到下一条记录{try{m_pRecordset->MoveNext();return true;}catch(_com_error e){AfxMessageBox("结果集移到下一个失败");return false;}}BOOL ADOConn::Close()//关闭记录集{try{m_pRecordset->Close();return true;}catch(_com_error e){AfxMessageBox("关系结果集失败");return false;}}BOOL ADOConn::CloseADOConnection()//关闭连接{try{if(m_pConnection->State){m_pConnection->Close();m_pConnection=NULL;return true;}else{AfxMessageBox("关闭数据库失败");return false;}}catch(_com_error e){AfxMessageBox("关闭数据库失败");return false;}}void ADOConn::dump_com_error(_com_error &e) //错误详细信息{CString ErrorStr;_bstr_t bstrSource(e.Source());_bstr_t bstrDescription(e.Description());ErrorStr.Format( "/n/tADO Error/n/tCode = %08lx/n/tCode meaning= %s/n/tSource = %s/n/tDescription = %s/n/n",e.Error(), e.ErrorMessage(), (LPCTSTR)bstrSource,(LPCTSTR)bstrDescription );//在调试窗口中打印错误信息,在Release版中可用DBGView查看错误信息::OutputDebugString((LPCTSTR)ErrorStr);#ifdef _DEBUGAfxMessageBox(ErrorStr, MB_OK | MB_ICONERROR);#endif}ADOConn.cpp---------------------------------------------------------------------------------3.编写代码连接数据库（这里我用的是ACCESS数据库）这里我们可以在任意.CPP（源文件）中声明ADOConn ado;然后在其他.CPP中使用的时候，只需要在头部加上extern ADOConn ado;当然，在定义的类中同样可以使用，举例如下：然后进行连接数据库的代码如下：//进行数据库连接if(!AfxOleInit()){AfxMessageBox("OLE initialzation failed");return FALSE;}CString str="DSN=rapidquery";//这个字符串中的rapidquery就是我们之前设置的数据源的名称ado.OnInitADOConn(str);//调用dao对象去连接数据库，连接成功会提示，连接失败也会提示。

直接通过ADO操作Access数据库

直接通过ADO操作Access数据库作者/徐景周下载源代码我在《VC知识库在线杂志》第十四期和第十五期上曾发表了两篇文章——“直接通过OD BC读、写Exc el表格文件”和“直接通过DAO读、写Ac c ess文件”，先后给大家介绍了ODBC和DAO两种数据库访问技术的基本使用方法，这次要给大家介绍的是ADO数据库访问技术的使用方法。

ADO(Activ e Data Object，活动数据对象)实际上是一种基于COM(组件对象模型)的自动化接口(ID ispatch)技术，并以OLE DB(对象连接和镶入的数据库)为基础，经过OLE DB精心包装后的数据库访问技术，利用它可以快速的创建数据库应用程序。

ADO提供了一组非常简单，将一般通用的数据访问细节进行封装的对象。

由于ODBC数据源也提供了一般的OLE DB Priv id er，所以ADO不仅可以应用自身的OLE DB Pr iv ider，而且还可以应用所有的ODBC驱动程序。

关于OLE DB和ADO的其它详细情况，读者可以自行查阅相关书籍或MSDN，这里就不一一说明了。

让我们直接步入主题：如何掌握ADO这种数据库访问技术。

ADO的操作方法和前面讲过的DAO的操作在很多方面存在相似之处，在这里，笔者为了更有效的说明它的使用方法，用VC6.0做了一个示例程序——AdoRW Access，这个示例程序可以直接通过ADO 来操作Access数据库，示例程序的运行效果如下图所示：在示例程序中我们仍采用原库结构，数据库名Demo.mdb，库内表名DemoTable，表内字段名为Name(姓名)和Age(年龄)的两个字段，来构造示例程序操作所需的Access数据库，这也和上两篇文章的示例源码中的库结构相兼容。

下面让我们看看ADO数据库访问技术使用的基本步骤及方法：首先，要用#import语句来引用支持ADO的组件类型库(*.tlb)，其中类型库可以作为可执行程序(DLL、EXE等)的一部分被定位在其自身程序中的附属资源里，如：被定位在msado15.dll的附属资源中，只需要直接用#import引用它既可。