ADO中打开一个连接:
pConnection->ConnectionString = "这里的字符串有下面四种写法"; //对连接字符串赋值
pConnection->Open(ConnectionString,"","",adModeUnknown); //连接数据库
第二三个参数分别为用户的ID与密码,因为在连接字符串ConnectionCstring中已经设置好了,这里可以为空。
第四个参数可以取下面两个参数:adAsyncConnect,异步打开数据库,在ASP中直接用16。 adConnectUnspecified,同步打开数据库,在ASP中直接用-1。
ConnectionString根据不同的数据源,分别对应不同的写法(要记下来很困难,可以在VB中利用ADO控件先连接好,再将其拷贝在VC中,这样不容易出错)
1)访问Access 2000
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=databaseName;User ID=userName;Password=userPassWord"
2)访问ODBC数据
"Provider=MADASQL;DSN=dsnName;UID=userName;PWD=userPassword;"
3)访问Oracle数据库
“Provider=MSDAORA;Data Sourse=serverName;User ID=userName;Password=userPassword;"
4)访问MS SQL数据库
"Provider=SQLOLEDB,Data Source=serverName;Initial Catalog=databaseName;User ID=userName;Password=userPassword;"
使用ADO开发应用程序有两种方法,一种是直接在应用程序中使用ADO数据控件,该方法最简单,无需编写一行代码即可实现对数据库的访问,另一种方法是直接使用ADO对象实现对数据库的操作,该方法较复杂,但可以让程序员更深入的控制数据库。
一.使用ActiveX控件建立应用程序
该方法需要两个ActiveX控件:Microsoft ADO Data Control ,version 6.0(OLE DB)和Microsoft ADO DataGrid Control ,version 6.0(OLE DB)。下面我们就使用这两个控件,建立一个访问SQL Server 7.0数据库的应用程序,步骤如下:
1.启动VC6.0,使用MFC AppWizard建立一个单文档应用程序,命为AdoCtl,在Step1到Step 5中使用缺设置,直接按Next即可,在Step 6中,选择视图类的基类为CFormView,然后按Finish,按OK,生成应用程序框架;
2.在应用程序的ResourceView中,删除IDD_ADOCTL_FORM对话框中自动生成的静态文本,然后在该对话框的编辑窗口中击鼠标右键,在弹出的快捷菜单中选择Insert ActiveX Control...命令;
3.在接下来的Insert ActiveX Control对话框中选择Microsoft ADO Data Control ,version 6.0(OLE DB),按OK,就可以将该控件插入到对话框中。
4.重复步骤2、3,在对话框中插入Microsoft ADO DataGrid Control ,version 6.0(OLE DB)控件;
5.选中Data控件,击右键,设置该控件的属性;
6.选择Control页面,该属性页要连接的数据源,其中提供了3种连接数据源的方法:
a.使用数据连接文件(Use Data Link File);
b.使用ODBC数据源(Use ODBC Data Source Name);
c.使用连接字符串(Use Connection String).。
在本程序中,我们使用连接字符串,连接SQL Server7.0数据库。连接字符串中包含了程序与数据源的连接信息,其形式为Argument=Value,每个连接字符串可以包含多个Argument=Value表达式,不同的表达式之间以分号间隔,如访问SFJ55.MDB数据库的连接字符串可以写成如下形式:
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\\sfj55.mdb
ADO支持如下的四种连接字符串的属性设置:
选择Use Connection String选项,按Build...钮,在数据链接属性对话框中选择OLE DB Provider(OLE DB提供者),此处我们选择Microsoft OLE DB Provider for SQL Server,按下一步;
7.在连接属性页中输入服务器名称,笔者使用NT工作站,名称为BUILDER,SQL Server装在本机,故此处服务器名称为BUILDER,再选择使用Windows NT集成安全设置,在服务器上选择数据库,笔者选择DcProduct,这是一个存放生产明细的数据库。测试连接成功后按确定。也可以选择SQL Server 7.0自带的其他数据库和数据表。
8.选择Data控件属性的RecordSource属性页,其中Command Type 中有4个选项:
对于SQL语句和数据表名,使用过Access97的读者一定很熟悉,至于存储过程的有关信息请参考SQL Server的有关书籍。此处我们选择2-adCmdTable,表名选择[SFJ55-27-00-000MX](注意在表名两边加中括号),关闭属性对话框。Data控件属性设置完毕;
9.选择DataGrid控件,击右键,设置该控件的属性;
10.选择All属性页,设置DataSource属性,设置为Data控件的ID号,即IDC_ADODC1,关闭属性对话框;
11.编译并运行应用程序,即可在DataGrid控件中显示数据表SFJ55-27-00-000MX中的数据。
到此为止,我们在VC6.0中使用ADO技术建立的最简单的应用程序已经完成,整个过程中没有编写一行代码。只是该程序只能浏览和修改数据,不能对记录进行添加和删除。如果想增加充足添加和删除记录的功能,在DataGrid控件的All属性页中,设置AllowAddNew和AllowDelete属性为TRUE。
这中方法尽管简单,但是对数据库的访问效率较低,使用起来也不灵活,程序员对数据库的控制较少,不能最大限度的发挥ADO技术高速灵活的特点。下面通过一个实例来介绍在VC6.0中使用ADO对象访问SQL Server数据库。
二.使用ADO对象建立数据库应用程序
在VC中使用过DAO的读者对于CDaoWorkspace,CDaoDatabase,CDaoRecordset,CDaoTableDef等MFC类应该非常熟悉,然而,遗憾的是VC中并没有提供有关ADO对象的类,那么我们将怎样使用ADO对象呢?实际上,这可以通过在应用程序中使用预编译指令#import来引入相关类的指针。在使用ADO对象之前必须首先在程序中加入如下的代码:
#define INITGUID //定义有关的变量
#import "C:\program files\common files\system\ado\msado15.dll"rename_namespace("ADOCG")rename("EOF","EndOfFile") //引入动态链接库
using namespace ADOCG;
#include "icrsint.h" //包含头文件
以上代码在程序的运行过程中将产生名为msado15.tlh的头文件,该头文件中定义了一些有用的智能指针,以下是该文件关于智能指针定义的一段代码:
//
// Smart pointer typedef declarations
//
......
_COM_SMARTPTR_TYPEDEF(Properties, __uuidof(Properties));
_COM_SMARTPTR_TYPEDEF(Property, __uuidof(Property));
_COM_SMARTPTR_TYPEDEF(Error, __uuidof(Error));
_COM_SMARTPTR_TYPEDEF(Errors, __uuidof(Errors));
_COM_SMARTPTR_TYPEDEF(_Connection, __uuidof(_Connection));
_COM_SMARTPTR_TYPEDEF(_Recordset, __uuidof(_Recordset));
_COM_SMARTPTR_TYPEDEF(Fields, __uuidof(Fields));
_COM_SMARTPTR_TYPEDEF(Field, __uuidof(Field));
_COM_SMARTPTR_TYPEDEF(_Parameter, __uuidof(_Parameter));
_COM_SMARTPTR_TYPEDEF(Parameters, __uuidof(Parameters));
_COM_SMARTPTR_TYPEDEF(_Command, __uuidof(_Command));
......
这是基于ADO的支持类_com_ptr_t的一些指针的定义,其中宏_COM_SMARTPTR_TYPEDEF()在VC6.0头文件COMDEF.H中定义。
下面是我们经常使用的几个智能指针:
_ConnectionPtr 连接对象指针
_RecordsetPtr 记录集对象指针
_ParameterPtr 参数对象指针
_CommandPtr 命令对象指针
FieldPtr 域对象指针
PropertyPtr 属性对象指针
ErrorPtr 错误对象指针
下面在一个程序实例中说明这些指针的用法,程序访问的数据库为SQL Server 7.0中自带的NothWind,数据表名为Employees,这里只访问EmployeeID,LastName,FirstName,Title等4个字段:
步骤1.启动VC6.0,使用MFC AppWizard建立一个单文档应用程序,命为AdoCls,在Step1到Step 5中使用缺设置,直接按Next即可,在Step 6中,选择视图类的基类为CFormView,然后按Finish,按OK,生成应用程序框架,在应用程序的ResourceView中,删除IDD_ADOCLS_FORM对话框中自动生成的静态文本;
步骤2.新建一个文本文件,并在其中输入如下内容,然后将其保存为MyData.h,再将其添加到AdoCls工程中(菜单命令:Project\Add To Project\Files...),输入内容如下:
//MyData.h
#define INITGUID
#import "C:\program files\common files\system\ado\msado15.dll"rename_namespace("ADOCG")rename("EOF","EndOfFile")
using namespace ADOCG;
#include "icrsint.h"
#if _MSC_VER > 1000
#pragma once
#endif // _MSC_VER > 1000
class CMyRecord : public CADORecordBinding
{
BEGIN_ADO_BINDING(CMyRecord ) //开始数据捆绑
ADO_FIXED_LENGTH_ENTRY(1,adInteger,m_id,lid,TRUE);
ADO_VARIABLE_LENGTH_ENTRY2(2,adVarChar,m_lastname,sizeof(m_lastname),llastname,TRUE)
ADO_VARIABLE_LENGTH_ENTRY2(3,adVarChar,m_firstname,sizeof(m_firstname),lfirstname,TRUE)
ADO_VARIABLE_LENGTH_ENTRY2(4,adVarChar,m_title,sizeof(m_title),ltitle,TRUE)
END_ADO_BINDING() //结束数据捆绑
public:
long m_id;
ULONG lid;
char m_lastname[20];
ULONG llastname;
char m_firstname[10];
ULONG lfirstname;
char m_title[30];
ULONG ltitle;
};
在MyData.h头文件中定义了一个CMyRecord类,该类的基类必须是CADORecordBinding,且没有构造函数和析构函数,只有一组用于数据捆绑和映射的宏和一组变量。其中以“m_”开头的4个变量分别对应数据表Employees中EmployeeID,LastName,FirstName,Title等4个字段,它们将用于存取这4个字段的实际值,以“l”开头的4个ULONG类型的变量是对应字段的状态值,用于判断数据的捆绑是否成功,后面的程序代码中将看到其应用。用于数据捆绑和映射的宏在头文件icrsint.h中定义,数据的捆绑和映射主要用到如下的几个宏:
(1). BEGIN_ADO_BINDING ()和 END_ADO_BINDING()
BEGIN_ADO_BINDING()宏的参数是用户自定义的用于数据捆绑的记录集类,本例中为CMyRecord。END_ADO_BINDING()宏不带参数。
(2). ADO_FIXED_LENGTH_ENTRY()宏,该宏用于数据库中所有长度固定的字段,如Date/Time,BOOL,int,或定长的字符型字段。有两个版本:
(1)#define ADO_FIXED_LENGTH_ENTRY(Ordinal,DataType,Buffer,Status,Modify);
(2)#define ADO_FIXED_LENGTH_ENTRY2(Ordinal,DataType,Buffer,,Modify);
(3). ADO_NUMERIC_ENTRY(),用于数值型字段。也有两个版本:
(1)#define ADO_NUMERIC_ENTRY(Ordinal,DataType,Buffer,Precision,Scale,Status,Modify);
(2)#define ADO_NUMERIC_ENTRY(Ordinal,DataType,Buffer,Precision,Scale,Modify);
(4).ADO_VARIABLE_LENGTH_ENTRY(),有四个版本:
(1)#define ADO_VARIABLE_LENGTH_ENTRY(Ordinal,DataType,Buffer,Size,Status,Length,Modify);
(2)#define ADO_VARIABLE_LENGTH_ENTRY2(Ordinal,DataType,Buffer,Size,Status,Modify);
(3)#define ADO_VARIABLE_LENGTH_ENTRY3(Ordinal,DataType,Buffer,Size,Length,Modify);
(4)#define ADO_VARIABLE_LENGTH_ENTRY4(Ordinal,DataType,Buffer,Size,Modify);
Ordinal 被访问的记录集中的字段的序号,数据表Employees中EmployeeID,LastName,FirstName,Title等4个字段的序号分别为1、2、3、4;
DataType 字段数据类型,见头文件msado15.tlh(在程序的运行过程中将产生);
Buffer 字段中的值所要映射到的变量
Status 被映射字段的状态值
Modify 是否允许修改
Precision 字段值的精度(数值型)
Scale 字段值的数值范围(数值型)
Size 变长度字段值的长度(如:字符串)
步骤3.进入ResourceView,在IDD_ADOCLS_FORM对话框中添加如下图所示几个控件:
4个文本框控件对应的变量分别是m_id,m_firstname,m_lastname,m_title,这4个变量均属于CAdoClsView类。
步骤4.在CAdoClsDoc类头文件包含MyRecord.h,并在其中添加如下几个私有成员变量:
private:
CMyRecord m_rsRecSet;
_RecordsetPtr m_pRs;
IADORecordBinding * m_piAdoRecordBinding;
CString m_strCmdText;
CString m_strConnection;
HRESULT hr;
步骤5.在文档类构造函数中初始化COM环境和建立与数据库的连接,在析构函数中清除COM环境和释放有关变量。在CAdoClsDoc类构造函数中添加如下内容:
::CoInitialize(NULL);//初始化COM环境
m_piAdoRecordBinding=NULL;
m_strConnection=_T("Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Northwind;Data Source=BUILDER");
m_strCmdText=_T("select EmployeeID,LastName,FirstName,Title from Employees");
//创建对象实例
m_pRs.CreateInstance(__uuidof(Recordset));
//利用智能指针打开记录集
m_pRs->Open(LPCTSTR(m_strCmdText),LPCTSTR(m_strConnection),adOpenDynamic,adLockOptimistic,adCmdText);
hr=m_pRs->QueryInterface(__uuidof(IADORecordBinding),(LPVOID*)&m_piAdoRecordBinding);
hr=m_piAdoRecordBinding->BindToRecordset(&m_rsRecSet);//与CMyRecord记录类捆绑
//此处,变量hr仅仅是用来判函数的调用是否成功,如果成功则hr等于0,否则hr小于0。
在CAdoClsDoc类析构函数中添加如下内容:
//在析构函数中关闭与数据源的连接,释放有关变量
if(m_pRs)m_pRs->Close();
if(m_piAdoRecordBinding)m_piAdoRecordBinding->Release();
m_pRs=NULL;
CoUninitialize();//清除COM环境
注意:在ADO中,获得记录集的方法有大约3种:1.通过连接对象的Execute()方法;2.通过命令对象的Execute()方法(但是,该命令对象必须首先与连接对象建立关联pCmd->ActiveConnection=);3.直接建立并打开记录集对象(在这种方法里面,其Open()函数中的ActiveConnection参数既可以是连接对象指针,又可以是连接字符串)。因此,使用ADO技术访问数据库的数据是非常自由的,不象DAO,必须先建立Database对象,然后再建立Recordset对象。我们这里采用第3中方法,这种方法只适用与简单的应用中,如果在应用中需要访问多哥数据源,则必须采用1和2两种方法显式的建立连接,以加快访问速度。
步骤6.在文档类中添加记录集的Move类函数,MoveFirst()、MovePrevious()、MoveNext()、MoveLast()、AddNew()、CreateBlankRecord():
void CAdoClsDoc::MoveFirst()
{
if(m_pRs->Supports(adUpdate))
hr=m_piAdoRecordBinding->Update(&m_rsRecSet);
m_pRs->MoveFirst();
}
void CAdoClsDoc::MovePrevious()
{
if(!m_pRs->BOF)
{
hr=m_piAdoRecordBinding->Update(&m_rsRecSet);
m_pRs->MovePrevious();
}
}
void CAdoClsDoc::MoveNext()
{
if(!m_pRs->EndOfFile){
hr=m_piAdoRecordBinding->Update(&m_rsRecSet);
m_pRs->MoveNext();
}
}
void CAdoClsDoc::MoveLast()
{
hr=m_piAdoRecordBinding->Update(&m_rsRecSet);
m_pRs->MoveLast();
}
步骤7.在CAdoClsDoc类中添加GetMyRecord()函数:
CMyRecord * CAdoClsDoc::GetMyRecord()
{
return(&m_rsRecSet);
}
步骤8.在void CAdoClsView::OnInitialUpdate()函数中添加如下代码:
{.......
RefreshBoundData();}
步骤9.在CAdoClsView类中添加RefreshBoundData()函数及其实现代码:
void CAdoClsView::RefreshBoundData()
{
CMyRecord * pRs;
pRs=GetDocument()->GetMyRecord();
m_firstname=adFldOK==pRs->lfirstname?pRs->m_firstname:"";
m_lastname=adFldOK==pRs->llastname?pRs->m_lastname:"";
m_title=adFldOK==pRs->ltitle?pRs->m_title:"";
UpdateData(FALSE);
}
步骤10.在CAdoClsView类中添加UpdateBoundData()函数及其实现代码:
void CAdoClsView::UpdateBoundData()
{
CMyRecord * pRs;
pRs=GetDocument()->GetMyRecord();
UpdateData(TRUE);
if(pRs->m_id!=m_id)
pRs->m_id=m_id;
if(pRs->m_firstname!=m_firstname)
strcpy(pRs->m_firstname,LPCTSTR(m_firstname));
if(pRs->m_lastname != m_lastname)
strcpy(pRs->m_lastname,LPCTSTR(m_lastname));
if(pRs->m_title !=m_title)
strcpy(pRs->m_title ,LPCTSTR(m_title));
}
步骤10.在CAdoClsView类中添加IDD_ADOCLS_FORM对话框中四个按钮对应的消息映射函数:
void CAdoClsView::OnButtonFirst()
{ UpdateBoundData();
GetDocument()->MoveFirst ();
RefreshBoundData();
}
void CAdoClsView::OnButtonLast()
{ UpdateBoundData();
GetDocument()->MoveLast ();
RefreshBoundData();
}
void CAdoClsView::OnButtonNext()
{ UpdateBoundData();
GetDocument()->MoveNext ();
RefreshBoundData();
}
void CAdoClsView::OnButtonPrevious()
{ UpdateBoundData();
GetDocument()->MovePrevious ();
RefreshBoundData();
}
步骤11.编译运行该应用程序,即可实现对数据库的浏览。
使用ADO在VC6中建立数据库应用程序,至此结束,关于这一方法以及本程序例子,作以下几点说明:
1.运行上面的程序,试着改变数据库中的某个列的数值,读者将会发现,在数据记录的移动时,数据库并没有被更新。这是因为本程序所涉及到的四个字段中,其中有一个标识列,EmployeeID,标识列具有自动增长的特性,用户不能更新,否则将出错,这时,语句hr=m_piAdoRecordBinding->Update(&m_rsRecSet);将返回一个负值,即hr<0,读者可以SQL Server 7中的Enterprise Manager打开NothWind数据库,修改其中的数据表Employees,在该表的设计视图中将其EmployeeID所在行的Identify复选框取消,然后保存。这时用户即可实现对数据库的更新。在调试时注意一下语句hr=m_piAdoRecordBinding->Update(&m_rsRecSet),hr将等于0。
2.CMyRecord类的基类是CADORecordBinding,IADORecordBinding 是CADORecordBinding类的一个COM接口,它也是记录集类CADORecordBinding的一部分,用户可以通过该接口实现数据的捆绑、更新和添加,它对应3个(仅有3个)函数:BindToRecordset()、AddNew()和Update(),这三个函数可以参见头文件icrsint.h。其中BindToRecordset()和Update()我们已经使用过,AddNew()的用法与Update()很相似,首先,将MyRecord类中各个数值变量(以m_开头)赋初值,然后调用m_piAdoRecordBinding->AddNew(&m_rsRecSet)和m_pRs->MoveLast()(将记录指针移到新添加的空白记录处),即可实现记录的添加功能。
3.在宏ADO_VARIABLE_LENGTH_ENTRY2(Ordinal,DataType,Buffer,Size,Status,Modify);中,第一个参数Ordinal指的是在当前记录集中字段的位置,而不是原数据表中该字段的位置。如本程序中的LastName字段,在程序中所要访问的记录集中的位置是2,如果将记录集改为:“select LastName,FirstName,Title from Employees”,则LastName的位置将为1,Ordinal=1。
4.如果读者不喜欢数据捆绑的方式访问数据库,ADO提供了对记录集中单个域进行访问的方法,如以下代码可以更新当前记录中的FirstName字段:
_variant_t vFld,vValue;
vFld.SetString("FirstName");
vValue.SetString("Rose Tom");
m_pRs->Update(vFld,vValue);
以下代码可以取得FirstName字段值:
_variant_t vValue;
CString strValue;
vValue=m_pRs->GetCollect(_variant_t ("FirstName"));
vValue.ChangeType(VT_BSTR);
strValue=vValue.bstrVal;
这种直接访问字段值的方法很灵活,缺点是编程人员必须频繁的调用ChangeType函数进行数据类型的转换。