C++博客-时间的痕迹-文章分类-ADO编程技术

_variant_t 中VT_DECIMAL 问题

爱饭盒 — Wed, 20 Dec 2006 03:24:00 GMT

_variant_t 数据类型与其他数据类型的转换比较麻烦，以前用的是从网上找来的一段代码，存在一些问题，后果很严重，害我以为出现灵异事件了。
原方法如下：

case VT_DECIMAL:
             {
                  double val = var.decVal.Lo32;

                    val *= (var.decVal.sign == 128)? -1 : 1;
                    val /= pow(10, var.decVal.scale);
                    CString strFormat;
                    strFormat.Format("%d", var.decVal.scale);
                    strFormat = "%."+strFormat+"f";
                                         strValue.Format(strFormat, val);

                                 break;
             }

转过多次没出什么事就认为这段代码可以用。结果问题就出在这段代码。

///问题所在
double val = var.decVal.Lo32;

//应改为
double val=var.decVal.Lo64;

当数据较大时数据被截断，灵异事件就出现了。

爱饭盒 2006-12-20 11:24 发表评论

调用存储过程

爱饭盒 — Mon, 10 Jul 2006 11:34:00 GMT

ptrCmd->CommandText = "P_KS_ADDUSER";
ptrCmd->CommandType = adCmdStoredProc;
ptrCmd->Execute(NULL,NULL,adCmdStoredProc);

爱饭盒 2006-07-10 19:34 发表评论

Visual C++ ADO数据库编程入门（下）

爱饭盒 — Fri, 30 Dec 2005 10:32:00 GMT

10、邦定数据

　　定义一个绑定类，将其成员变量绑定到一个指定的记录集，以方便于访问记录集的字段值。

　　(1). 从CADORecordBinding派生出一个类：

class CCustomRs : public CADORecordBinding
{
BEGIN_ADO_BINDING(CCustomRs)
ADO_VARIABLE_LENGTH_ENTRY2(3, adVarChar, m_szau_fname,
sizeof(m_szau_fname), lau_fnameStatus, false)
ADO_VARIABLE_LENGTH_ENTRY2(2, adVarChar, m_szau_lname,
sizeof(m_szau_lname), lau_lnameStatus, false)
ADO_VARIABLE_LENGTH_ENTRY2(4, adVarChar, m_szphone,
sizeof(m_szphone), lphoneStatus, true)
END_ADO_BINDING()

public:
CHAR m_szau_fname[22];
ULONG lau_fnameStatus;
CHAR m_szau_lname[42];
ULONG lau_lnameStatus;
CHAR m_szphone[14];
ULONG lphoneStatus;
};

　　其中将要绑定的字段与变量名用BEGIN_ADO_BINDING宏关联起来。每个字段对应于两个变量，一个存放字段的值，另一个存放字段的状态。字段用从1开始的序号表示，如1，2，3等等。

　　特别要注意的是：如果要绑定的字段是字符串类型，则对应的字符数组的元素个数一定要比字段长度大2（比如m_szau_fname[22]，其绑定的字段au_fname的长度实际是20），不这样绑定就会失败。我分析多出的2可能是为了存放字符串结尾的空字符null和BSTR字符串开头的一个字（表示BSTR的长度）。这个问题对于初学者来说可能是一个意想不到的问题。

　　CADORecordBinding类的定义在icrsint.h文件里，内容是：

class CADORecordBinding
{
public:
STDMETHOD_(const ADO_BINDING_ENTRY*, GetADOBindingEntries) (VOID) PURE;
};

BEGIN_ADO_BINDING宏的定义也在icrsint.h文件里，内容是：
#define BEGIN_ADO_BINDING(cls) public: \
typedef cls ADORowClass; \
const ADO_BINDING_ENTRY* STDMETHODCALLTYPE GetADOBindingEntries() { \
static const ADO_BINDING_ENTRY rgADOBindingEntries[] = {

ADO_VARIABLE_LENGTH_ENTRY2宏的定义也在icrsint.h文件里：
#define ADO_VARIABLE_LENGTH_ENTRY2(Ordinal, DataType, Buffer, Size, Status, Modify)\
{Ordinal, \
DataType, \
0, \
0, \
Size, \
offsetof(ADORowClass, Buffer), \
offsetof(ADORowClass, Status), \
0, \
classoffset(CADORecordBinding, ADORowClass), \
Modify},

#define END_ADO_BINDING宏的定义也在icrsint.h文件里：
#define END_ADO_BINDING() {0, adEmpty, 0, 0, 0, 0, 0, 0, 0, FALSE}};\
return rgADOBindingEntries;}

　　　(2). 绑定

_RecordsetPtr Rs1;
IADORecordBinding *picRs=NULL;
CCustomRs rs;
......
Rs1->QueryInterface(__uuidof(IADORecordBinding),
(LPVOID*)&picRs));
picRs->BindToRecordset(&rs);

　　派生出的类必须通过IADORecordBinding接口才能绑定，调用它的BindToRecordset方法就行了。

　　(3). rs中的变量即是当前记录字段的值

//Set sort and filter condition:
// Step 4: Manipulate the data
Rs1->Fields->GetItem("au_lname")->Properties->GetItem("Optimize")->Value = true;
Rs1->Sort = "au_lname ASC";
Rs1->Filter = "phone LIKE '415 5*'";

Rs1->MoveFirst();
while (VARIANT_FALSE == Rs1->EndOfFile)
{
printf("Name: %s\t %s\tPhone: %s\n",
(rs.lau_fnameStatus == adFldOK ? rs.m_szau_fname : ""),
(rs.lau_lnameStatus == adFldOK ? rs.m_szau_lname : ""),
(rs.lphoneStatus == adFldOK ? rs.m_szphone : ""));
if (rs.lphoneStatus == adFldOK)
strcpy(rs.m_szphone, "777");
TESTHR(picRs->Update(&rs)); // Add change to the batch
Rs1->MoveNext();
}
Rs1->Filter = (long) adFilterNone;
......
if (picRs) picRs->Release();
Rs1->Close();
pConn->Close();

　　只要字段的状态是adFldOK，就可以访问。如果修改了字段，不要忘了先调用picRs的Update（注意不是Recordset的Update），然后才关闭，也不要忘了释放picRs（即picRs->Release();）。

　　(4). 此时还可以用IADORecordBinding接口添加新纪录

if(FAILED(picRs->AddNew(&rs)))
......

　　11. 访问长数据

　　在Microsoft SQL中的长数据包括text、image等这样长类型的数据，作为二进制字节来对待。

　　可以用Field对象的GetChunk和AppendChunk方法来访问。每次可以读出或写入全部数据的一部分，它会记住上次访问的位置。但是如果中间访问了别的字段后，就又得从头来了。

　　请看下面的例子：

//写入一张照片到数据库：
VARIANT varChunk;
SAFEARRAY *psa;
SAFEARRAYBOUND rgsabound[1];

//VT_ARRAY │ VT_UI1
CFile f("h:\\aaa.jpg",Cfile::modeRead);
BYTE bVal[ChunkSize+1];
UINT uIsRead=0;
//Create a safe array to store the array of BYTES
while(1)
{
uIsRead=f.Read(bVal,ChunkSize);
if(uIsRead==0)break;
rgsabound[0].cElements =uIsRead;
rgsabound[0].lLbound = 0;
psa = SafeArrayCreate(VT_UI1,1,rgsabound);
for(long index=0;index{
if(FAILED(SafeArrayPutElement(psa,&index,&bVal[index])))
::MessageBox(NULL,"啊，又出毛病了。","提示",MB_OK │ MB_ICONWARNING);
}
varChunk.vt = VT_ARRAY│VT_UI1;
varChunk.parray = psa;
try{
m_pRecordset->Fields->GetItem("photo")->AppendChunk(varChunk);
}
catch (_com_error &e)
{
CString str=(char*)e.Description();
::MessageBox(NULL,str+"\n又出毛病了。","提示",MB_OK │ MB_ICONWARNING);
}
::VariantClear(&varChunk);
::SafeArrayDestroyData( psa);
if(uIsRead}//while(1)
f.Close();

//从数据库读一张照片：
CFile f;
f.Open("h:\\bbb.jpg",Cfile::modeWrite│Cfile::modeCreate);
long lPhotoSize = m_pRecordset->Fields->Item["photo"]->ActualSize;
long lIsRead=0;

_variant_t varChunk;
BYTE buf[ChunkSize];
while(lPhotoSize>0)
{
lIsRead=lPhotoSize>=ChunkSize? ChunkSize:lPhotoSize;
varChunk = m_pRecordset->Fields->
Item["photo"]->GetChunk(lIsRead);
for(long index=0;index{
::SafeArrayGetElement(varChunk.parray,&index,buf+index);
}
f.Write(buf,lIsRead);
lPhotoSize-=lIsRead;
}//while()
f.Close();

　　12. 使用SafeArray问题

　　学会使用SafeArray也是很重要的，因为在ADO编程中经常要用。它的主要目的是用于automation中的数组型参数的传递。因为在网络环境中，数组是不能直接传递的，而必须将其包装成SafeArray。实质上SafeArray就是将通常的数组增加一个描述符，说明其维数、长度、边界、元素类型等信息。SafeArray也并不单独使用，而是将其再包装到VARIANT类型的变量中，然后才作为参数传送出去。在VARIANT的vt成员的值如果包含VT_ARRAY│...,那么它所封装的就是一个SafeArray，它的parray成员即是指向SafeArray的指针。SafeArray中元素的类型可以是VARIANT能封装的任何类型，包括VARIANT类型本身。

　　使用SafeArray的具体步骤：

　　方法一：

　　包装一个SafeArray：

　　(1). 定义变量，如：

VARIANT varChunk;
SAFEARRAY *psa;
SAFEARRAYBOUND rgsabound[1];

　　(2). 创建SafeArray描述符：

uIsRead=f.Read(bVal,ChunkSize);//read array from a file.
if(uIsRead==0)break;
rgsabound[0].cElements =uIsRead;
rgsabound[0].lLbound = 0;
psa = SafeArrayCreate(VT_UI1,1,rgsabound);

　　(3). 放置数据元素到SafeArray：

for(long index=0;index{
if(FAILED(SafeArrayPutElement(psa,&index,&bVal[index])))
::MessageBox(NULL,"出毛病了。","提示",MB_OK │ MB_ICONWARNING);
}

　　一个一个地放，挺麻烦的。

　　(4). 封装到VARIANT内：

varChunk.vt = VT_ARRAY│VT_UI1;
varChunk.parray = psa;

　　这样就可以将varChunk作为参数传送出去了。

　　读取SafeArray中的数据的步骤：

　　(1). 用SafeArrayGetElement一个一个地读

BYTE buf[lIsRead];
for(long index=0;index{
::SafeArrayGetElement(varChunk.parray,&index,buf+index);
}

　　就读到缓冲区buf里了。

　　方法二：

　　使用SafeArrayAccessData直接读写SafeArray的缓冲区：

　　(1). 读缓冲区：

BYTE *buf;
SafeArrayAccessData(varChunk.parray, (void **)&buf);
f.Write(buf,lIsRead);
SafeArrayUnaccessData(varChunk.parray);

　　(2). 写缓冲区：

BYTE *buf;
::SafeArrayAccessData(psa, (void **)&buf);
for(long index=0;index{
buf[index]=bVal[index];
}
::SafeArrayUnaccessData(psa);

varChunk.vt = VT_ARRAY│VT_UI1;
varChunk.parray = psa;

// Check for whether bookmark set for a record
if (VarBookmark.vt == VT_EMPTY)
printf("No Bookmark set!\n");
else
rst->Bookmark = VarBookmark;

　　设置完后，当前记录即会移动到该书签指向的记录。

　　14、设置过滤条件

　　Recordset对象的Filter属性表示了当前的过滤条件。它的值可以是以AND或OR连接起来的条件表达式（不含WHERE关键字）、由书签组成的数组或ADO提供的FilterGroupEnum枚举值。为Filter属性设置新值后Recordset的当前记录指针会自动移动到满足过滤条件的第一个记录。例如：

rst->Filter = _bstr_t ("姓名='赵薇' AND 性别=’女’");

　　在使用条件表达式时应注意下列问题：

　　（1）、可以用圆括号组成复杂的表达式

　　例如：

rst->Filter = _bstr_t ("(姓名='赵薇' AND 性别=’女’) OR AGE<25");

　　但是微软不允许在括号内用OR，然后在括号外用AND，例如：

rst->Filter = _bstr_t ("(姓名='赵薇' OR 性别=’女’) AND AGE<25");

　　必须修改为：

rst->Filter = _bstr_t ("(姓名='赵薇' AND AGE<25) OR (性别=’女’ AND AGE<25)");

　　（2）、表达式中的比较运算符可以是LIKE

　　LIKE后被比较的是一个含有通配符*的字符串，星号表示若干个任意的字符。

　　字符串的首部和尾部可以同时带星号*

rst->Filter = _bstr_t ("姓名 LIKE '*赵*' ");

　　也可以只是尾部带星号：

rst->Filter = _bstr_t ("姓名 LIKE '赵*' ");

　　Filter属性值的类型是Variant，如果过滤条件是由书签组成的数组，则需将该数组转换为SafeArray，然后再封装到一个VARIANT或_variant_t型的变量中，再赋给Filter属性。

　　15、索引与排序

　　（1）、建立索引

　　当以某个字段为关键字用Find方法查找时，为了加快速度可以以该字段为关键字在记录集内部临时建立索引。只要将该字段的Optimize属性设置为true即可，例如：

pRst->Fields->GetItem("姓名")->Properties->
GetItem("Optimize")->PutValue("True");
pRst->Find("姓名 = '赵薇'",1,adSearchForward);
......
pRst->Fields->GetItem("姓名")->Properties->
GetItem("Optimize")->PutValue("False");
pRst->Close();

　　说明：Optimize属性是由Provider提供的属性（在ADO中称为动态属性），ADO本身没有此属性。

　　（2）、排序

　　要排序也很简单，只要把要排序的关键字列表设置到Recordset对象的Sort属性里即可，例如：

pRstAuthors->CursorLocation = adUseClient;
pRstAuthors->Open("SELECT * FROM mytable",
_variant_t((IDispatch *) pConnection),
adOpenStatic, adLockReadOnly, adCmdText);
......
pRst->Sort = "姓名 DESC, 年龄 ASC";

　　关键字（即字段名）之间用逗号隔开，如果要以某关键字降序排序，则应在该关键字后加一空格，再加DESC（如上例）。升序时ASC加不加无所谓。本操作是利用索引进行的，并未进行物理排序，所以效率较高。
但要注意，在打开记录集之前必须将记录集的CursorLocation属性设置为adUseClient，如上例所示。Sort属性值在需要时随时可以修改。

　　16、事务处理

　　ADO中的事务处理也很简单，只需分别在适当的位置调用Connection对象的三个方法即可，这三个方法是：

　　（1）、在事务开始时调用

pCnn->BeginTrans();

　　（2）、在事务结束并成功时调用

pCnn->CommitTrans ();

　　（3）、在事务结束并失败时调用

pCnn->RollbackTrans ();

　　在使用事务处理时，应尽量减小事务的范围，即减小从事务开始到结束（提交或回滚）之间的时间间隔，以便提高系统效率。需要时也可在调用BeginTrans()方法之前，先设置Connection对象的IsolationLevel属性值，详细内容参见MSDN中有关ADO的技术资料。

　　三、使用ADO编程常见问题解答

　　以下均是针对MS SQL 7.0编程时所遇问题进行讨论。

　　1、连接失败可能原因

　　Enterprise Managemer内，打开将服务器的属性对话框，在Security选项卡中，有一个选项Authentication。

　　如果该选项是Windows NT only，则你的程序所用的连接字符串就一定要包含Trusted_Connection参数，并且其值必须为yes，如：

"Provider=SQLOLEDB;Server=888;Trusted_Connection=yes"
";Database=master;uid=lad;";

　　如果不按上述操作，程序运行时连接必然失败。

　　如果Authentication选项是SQL Server and Windows NT，则你的程序所用的连接字符串可以不包含Trusted_Connection参数，如：

"Provider=SQLOLEDB;Server=888;Database=master;uid=lad;pwd=111;";

　　因为ADO给该参数取的默认值就是no，所以可以省略。我认为还是取默认值比较安全一些。

　　2、改变当前数据库的方法

　　使用Tansct-SQL中的USE语句即可。

　　3、如何判断一个数据库是否存在

　　(1)、可打开master数据库中一个叫做SCHEMATA的视图，其内容列出了该服务器上所有的数据库名称。

　　(2) 、更简便的方法是使用USE语句，成功了就存在；不成功，就不存在。例如：

try{
m_pConnect->Execute ( _bstr_t("USE INSURANCE_2002"),NULL,
adCmdText│adExecuteNoRecords );
}
catch (_com_error &e)
{
blSuccess=FALSE;
CString str="数据库INSURANCE_2002不存在！\n";
str+=e.Description();
::MessageBox(NULL,str,"警告",MB_OK │ MB_ICONWARNING);
}

　　4、判断一个表是否存在

　　（1）、同样判断一个表是否存在，也可以用是否成功地打开它来判断，十分方便，例如：

try{
m_pRecordset->Open(_variant_t("mytable"),
_variant_t((IDispatch *)m_pConnection,true), adOpenKeyset,
adLockOptimistic, adCmdTable);
}
catch (_com_error &e)
{
::MessageBox(NULL,"该表不存在。","提示",MB_OK │ MB_ICONWARNING);
}

SAFEARRAY *psa;
......
//When the data are no longer to be used:
::SafeArrayDestroyData( psa);

　　我分析在定义psa指针时，一个SAFEARRAY的实例（也就是SAFEARRAY描述符）也同时被自动建立了。但是只要一调用::SafeArrayDestroyDescriptor，描述符就被销毁了。

　　所以我认为::SafeArrayDestroyDescriptor可以根本就不调用，即使调用也必须在最后调用。

　　9、重复使用命令对象问题

　　一个命令对象如果要重复使用多次（尤其是带参数的命令），则在第一次执行之前，应将它的Prepared属性设置为TRUE。这样会使第一次执行减慢，但却可以使以后的执行全部加快。

　　10、绑定字符串型字段问题

　　如果要绑定的字段是字符串类型，则对应的字符数组的元素个数一定要比字段长度大2（比如m_szau_fname[22]，其绑定的字段au_fname的长度实际是20），不这样绑定就会失败。

　　11、使用AppendChunk的问题

　　当用AddNew方法刚刚向记录集内添加一个新记录之后，不能首先向一个长数据字段（image类型）写入数据，必须先向其他字段写入过数据之后，才能调用AppendChunk写该字段，否则出错。也就是说，AppendChunk不能紧接在AddNew之后。另外，写入其他字段后还必须紧接着调用AppendChunk，而不能调用记录集的Update方法后，才调用AppendChunk，否则调用AppendChunk时也会出错。换句话说，就是必须AppendChunk在前，Update在后。因而这个时候就不能使用带参数的AddNew了，因为带参数的AddNew会自动调用记录集的Update，所以AppendChunk就跑到Update的后面了，就只有出错了！因此，这时应该用不带参数的AddNew。

　　我推测这可能是MS SQL 7.0的问题，在MS SQL 2000中则不存在这些问题，但是AppendChunk仍然不能在Update之后。

　　四、小结

　　一般情况下，Connection和Command的Execute用于执行不产生记录集的命令，而Recordset的Open用于产生一个记录集，当然也不是绝对的。特别Command主要是用于执行参数化的命令，可以直接由Command对象执行，也可以将Command对象传递给Recordset的Open。

爱饭盒 2005-12-30 18:32 发表评论

Visual C++ ADO数据库编程入门（上）

爱饭盒 — Fri, 30 Dec 2005 10:31:00 GMT

#import "C:\Program Files\Common Files\System\ADO\msado15.dll" \
no_namespace rename("EOF", "EndOfFile")

　　但要注意不能放在stdAfx.h文件的开头，而应该放在所有include指令的后面。否则在编译时会出错。
程序在编译过程中，VC++会读出msado15.dll中的类型库信息，自动产生两个该类型库的头文件和实现文件msado15.tlh和msado15.tli（在您的Debug或Release目录下）。在这两个文件里定义了ADO的所有对象和方法，以及一些枚举型的常量等。我们的程序只要直接调用这些方法就行了，与使用MFC中的COleDispatchDriver类调用Automation对象十分类似。

　　2、使用MFC中的CIDispatchDriver

　　就是通过读取msado15.dll中的类型库信息，建立一个COleDispatchDriver类的派生类，然后通过它调用ADO对象。

　　3、直接用COM提供的API

　　如使用如下代码：

CLSID clsid;
HRESULT hr = ::CLSIDFromProgID(L"ADODB.Connection", &clsid);
if(FAILED(hr))
{...}
::CoCreateInstance(clsid, NULL, CLSCTX_SERVER, IID_IDispatch, (void **)
&pDispatch);
if(FAILED(hr))
{...}

　　以上三种方法，第一和第二种类似，可能第一种好用一些，第三种编程可能最麻烦。但可能第三种方法也是效率最高的，程序的尺寸也最小，并且对ADO的控制能力也最强。

　　据微软资料介绍，第一种方法不支持方法调用中的默认参数，当然第二种方法也是这样，但第三种就不是这样了。采用第三种方法的水平也最高。当你需要绕过ADO而直接调用OLE DB底层的方法时，就一定要使用第三种方法了。

　　ADO编程的关键，就是熟练地运用ADO提供的各种对象(object)、方法(method)、属性(property)和容器（collection）。另外，如果是在MS SQL或Oracle等大型数据库上编程，还要能熟练使用SQL语言。

　　二、使用#import方法的编程步骤

　　这里建议您使用#import的方法，因为它易学、易用，代码也比较简洁。

　　1、添加#import指令

　　打开stdafx.h文件，将下列内容添加到所有的include指令之后：

#include //Include support for VC++ Extensions
#import "C:\Program Files\Common Files\System\ADO\msado15.dll" \
no_namespace rename("EOF", "adoEOF")

　　其中icrsint.h文件包含了VC++扩展的一些预处理指令、宏等的定义，用于COM编程时使用。

　　2、定义_ConnectionPtr型变量，并建立数据库连接

　　建立了与数据库服务器的连接后，才能进行其他有关数据库的访问和操作。ADO使用Connection对象来建立与数据库服务器的连接，所以它相当于MFC中的CDatabase类。和CDatabase类一样，调用Connection对象的Open方法即可建立与服务器的连接。

　　数据类型 _ConnectionPtr实际上就是由类模板_com_ptr_t而得到的一个具体的实例类，其定义可以到msado15.tlh、comdef.h 和comip.h这三个文件中找到。在msado15.tlh中有：

_COM_SMARTPTR_TYPEDEF(_Collection, __uuidof(_Collection));

　　经宏扩展后就得到了_ConnectionPtr类。_ConnectionPtr类封装了Connection对象的Idispatch接口指针，及一些必要的操作。我们就是通过这个指针来操纵Connection对象。类似地，后面用到的_CommandPtr和_RecordsetPtr类型也是这样得到的，它们分别表示命令对象指针和记录集对象的指针。

　　（1）、连接到MS SQL Server

　　注意连接字符串的格式，提供正确的连接字符串是成功连接到数据库服务器的第一步，有关连接字符串的详细信息参见微软MSDN Library光盘。

　　本例连接字符串中的server_name，database_name，user_name和password在编程时都应该替换成实际的内容。

_ConnectionPtr pMyConnect=NULL;
HRESULT hr=pMyConnect.CreateInstance(__uuidof(Connection)));
if(FAILED(hr))return;

_bstr_t strConnect="Provider=SQLOLEDB; Server=server_name;"
"Database=database_name; uid=user_name; pwd=password;";
//connecting to the database server now:
try{pMyConnect->Open(strConnect,"","",NULL);}
catch (_com_error &e)
{
::MessageBox(NULL,e.Description(),"警告",MB_OK │ MB_ICONWARNING);
}

　　注意Connection对象的Open方法中的连接字符串参数必须是BSTR或_bstr_t类型。另外，本例是直接通过OLE DB Provider建立连接，所以无需建立数据源。

　　（2）、通过ODBC Driver连接到Database Server连接字符串格式与直接用ODBC编程时的差不多：

_bstr_t strConnect="DSN=datasource_name; Database=database_name; uid=user_name; pwd=password;";

　　此时与ODBC编程一样，必须先建立数据源。

　　3、定义_RecordsetPtr型变量，并打开数据集

　　定义_RecordsetPtr型变量，然后通过它调用Recordset对象的Open方法，即可打开一个数据集。所以Recordset对象与MFC中的CRecordset类类似，它也有当前记录、当前记录指针的概念。如：

_RecordsetPtr m_pRecordset;
if(!FAILED(m_pRecordset.CreateInstance( __uuidof( Recordset )))
{
m_pDoc->m_initialized=FALSE;
return;
}

try{
m_pRecordset->Open(_variant_t("mytable"),
_variant_t((IDispatch *)pMyConnect,true), adOpenKeyset,
adLockOptimistic, adCmdTable);
}
catch (_com_error &e)
{
::MessageBox(NULL,"无法打开mytable表。","提示",
MB_OK │ MB_ICONWARNING);
}

　　Recordset对象的Open方法非常重要，它的第一个参数可以是一个SQL语句、一个表的名字或一个命令对象等等；第二个参数就是前面建立的连接对象的指针。此外，用Connection和Command对象的Execute方法也能得到记录集，但是只读的。

　　4、读取当前记录的数据

　　我认为读取数据的最方便的方法如下：

try{
m_pRecordset->MoveFirst();
while(m_pRecordset->adoEOF==VARIANT_FALSE)
{
//Retrieve column's value:
CString sName=(char*)(_bstr_t)(m_pRecordset->Fields->GetItem
(_variant_t("name"))->Value);
short cAge=(short)(m_pRecordset->Fields->GetItem
(_variant_t("age"))->Value);
//Do something what you want to do:
......
m_pRecordset->MoveNext();
}
}//try
catch (_com_error &e)
{
CString str=(char*)e.Description();
::MessageBox(NULL,str+"\n又出毛病了。","提示",
MB_OK │ MB_ICONWARNING);
}

CString sName=(char*)(_bstr_t)(m_pRecordset->Fields->GetItem
(_variant_t("name"))->GetValue());

　　从此例还可以看到，判断是否到达记录集的末尾，使用记录集的adoEOF属性，其值若为真即到了结尾，反之则未到。判断是否到达记录集开头，则可用BOF属性。

　　另外，读取数据还有一个方法，就是定义一个绑定的类，然后通过绑定的变量得到字段值（详见后面的介绍）。

　　5、修改数据

　　方法一：

try{
m_pRecordset->MoveFirst();
while(m_pRecordset->adoEOF==VARIANT_FALSE)
{
m_pRecordset->Fields->GetItem
(_variant_t("姓名"))->Value=_bstr_t("赵薇");
......
m_pRecordset->Update();

m_pRecordset->MoveNext();
}
}//try

　　改变了Value属性的值，即改变了字段的值。

　　方法二：

m_pRecordset->Fields->GetItem
(_variant_t("姓名"))->PutValue(_bstr_t("赵薇"));

　　方法三：就是用定义绑定类的方法（详见后面的介绍）。

　　6、添加记录

　　新记录添加成功后，即自动成为当前记录。AddNew方法有两种形式，一个含有参数，而另一个则不带参数。

　　方法一（不带参数）：

// Add new record into this table:
try{
if(!m_pRecordset->Supports(adAddNew)) return;

m_pRecordset->AddNew();
m_pRecordset->Fields->GetItem
(_variant_t("姓名"))->Value=_bstr_t("赵薇");
m_pRecordset->Fields->GetItem
(_variant_t("性别"))->Value=_bstr_t("女");
m_pRecordset->Fields->GetItem
(_variant_t("age"))->Value=_variant_t((short)20);
m_pRecordset->Fields->GetItem
(_variant_t("marry"))->Value=_bstr_t("未婚");
m_pRecordset->Update();
}//try
catch (_com_error &e)
{
::MessageBox(NULL, "又出毛病了。","提示",MB_OK │ MB_ICONWARNING);
}

　　这种方法弄完了还要调用Update()。

　　方法二（带参数）：

_variant_t varName[4],narValue[4];
varName[0] = L"姓名";
varName[1] = L"性别";
varName[2] = L"age";
varName[3] = L"marry";
narValue[0]=_bstr_t("赵薇");
narValue[1]=_bstr_t("女");
narValue[2]=_variant_t((short)20);
narValue[3]=_bstr_t("未婚");

const int nCrit = sizeof varName / sizeof varName[0];
// Create SafeArray Bounds and initialize the array
SAFEARRAYBOUND rgsaName[1],rgsaValue[1];
rgsaName[0].lLbound = 0;
rgsaName[0].cElements = nCrit;
SAFEARRAY *psaName = SafeArrayCreate( VT_VARIANT, 1, rgsaName );
rgsaValue[0].lLbound = 0;
rgsaValue[0].cElements = nCrit;
SAFEARRAY *psaValue = SafeArrayCreate( VT_VARIANT, 1, rgsaValue );
// Set the values for each element of the array
HRESULT hr1=S_OK.hr2=S_OK;
for( long i = 0 ; i < nCrit && SUCCEEDED( hr1 ) && SUCCEEDED( hr2 );i++)
{
hr1=SafeArrayPutElement(psaName, &i,&varName[i]);
hr2=SafeArrayPutElement(psaValue, &i,&narValue[i]); }

// Initialize and fill the SafeArray
VARIANT vsaName,vsaValue;
vsaName.vt = VT_VARIANT │ VT_ARRAY;
vsaValue.vt = VT_VARIANT │ VT_ARRAY;
V_ARRAY(&vsaName) = psaName;//&vsaName->parray=psaName;
//see definition in oleauto.h file.
V_ARRAY(&vsaValue) = psaValue;

// Add a new record:
m_pRecordset->AddNew(vsaName,vsaValue);

　　这种方法不需要调用Update，因为添加后，ADO会自动调用它。此方法主要是使用SafeArray挺麻烦。

　　方法三：就是用定义绑定类的方法（详见后面的介绍）。

　7、删除记录

　　调用Recordset的Delete方法就行了，删除的是当前记录。要了解Delete的其它用法请查阅参考文献。

try{
m_pRecordset->MoveFirst();
while(m_pRecordset->adoEOF==VARIANT_FALSE)
{
CString sName=(char*)(_bstr_t)(m_pRecordset->Fields->GetItem
(_variant_t("姓名"))->Value);
if(::MessageBox(NULL,"姓名="+sName+"\n删除她吗？",
"提示",MB_YESNO │ MB_ICONWARNING)==IDYES)
{
m_pRecordset->Delete(adAffectCurrent);
m_pRecordset->Update();
}
m_pRecordset->MoveNext();
}
}//try
catch (_com_error &e)
{
::MessageBox(NULL,"又出毛病了。","提示",MB_OK │ MB_ICONWARNING);
}

　　8、使用带参数的命令

　　Command对象所代表的就是一个Provider能够理解的命令，如SQL语句等。使用Command对象的关键就是把表示命令的语句设置到CommandText属性中，然后调用Command对象的Execute方法就行了。一般情况下在命令中无需使用参数，但有时使用参数，可以增加其灵活性和效率。

　　(1). 建立连接、命令对象和记录集对象

　　本例中表示命令的语句就是一个SQL语句（SELECT语句）。SELECT语句中的问号?就代表参数，如果要多个参数，就多放几个问号，每个问号代表一个参数。

_ConnectionPtr Conn1;
_CommandPtr Cmd1;
ParametersPtr *Params1 = NULL; // Not an instance of a smart pointer.
_ParameterPtr Param1;
_RecordsetPtr Rs1;

try
{
// Create Connection Object (1.5 Version)
Conn1.CreateInstance( __uuidof( Connection ) );
Conn1->ConnectionString = bstrConnect;
Conn1->Open( bstrEmpty, bstrEmpty, bstrEmpty, -1 );
// Create Command Object
Cmd1.CreateInstance( __uuidof( Command ) );
Cmd1->ActiveConnection = Conn1;
Cmd1->CommandText = _bstr_t("SELECT * FROM mytable WHERE age< ?");
}//try

　　要注意命令对象必须与连接对象关联起来才能起作用，本例中将命令对象的ActiveConnection属性设置为连接对象的指针，即为此目的：

Cmd1->ActiveConnection = Conn1;

　　(2). 创建参数对象，并给参数赋值

// Create Parameter Object
Param1 = Cmd1->CreateParameter( _bstr_t(bstrEmpty),
adInteger,
adParamInput,
-1,
_variant_t( (long) 5) );
Param1->Value = _variant_t( (long) 5 );
Cmd1->Parameters->Append( Param1 );

　　用命令对象的方法来创建一个参数对象，其中的长度参数（第三个）如果是固定长度的类型，就填-1，如果是字符串等可变长度的就填其实际长度。Parameters是命令对象的一个容器，它的Append方法就是把创建的参数对象追加到该容器里。Append进去的参数按先后顺序与SQL语句中的问号从左至右一一对应。

　　(3). 执行命令打开记录集

// Open Recordset Object
Rs1 = Cmd1->Execute( &vtEmpty, &vtEmpty2, adCmdText );

　　但要注意，用Command和Connection对象的Execute方法得到的Recordset是只读的。因为在打开Recordset之前，我们无法设置它的LockType属性（其默认值为只读）。而在打开之后设置LockType不起作用。

　　我发现用上述方法得到记录集Rs1后，不但Rs1中的记录无法修改，即使直接用SQL语句修改同一表中任何记录都不行。

　　要想能修改数据，还是要用Recordset自己的Open方法才行，如：

try{
m_pRecordset->Open((IDispatch *) Cmd1, vtMissing,
adOpenStatic, adLockOptimistic, adCmdUnspecified);
}
catch (_com_error &e)
{
::MessageBox(NULL,"mytable表不存在。","提示",MB_OK │ MB_ICONWARNING);
}

　　Recordset对象的Open方法真是太好了，其第一个参数可以是SQL语句、表名字、命令对象指针等等。

　　9、响应ADO的通知事件

　　通知事件就是当某个特定事件发生时，由Provider通知客户程序，换句话说，就是由Provider调用客户程序中的一个特定的方法（即事件的处理函数）。所以为了响应一个事件，最关键的就是要实现事件的处理函数。

　　(1). 从ConnectionEventsVt接口派生出一个类

　　为了响应_Connection的通知事件，应该从ConnectionEventsVt接口派生出一个类：

class CConnEvent : public ConnectionEventsVt
{
private:
ULONG m_cRef;
public:
CConnEvent() { m_cRef = 0; };
~CConnEvent() {};

STDMETHODIMP QueryInterface(REFIID riid, void ** ppv);
STDMETHODIMP_(ULONG) AddRef(void);
STDMETHODIMP_(ULONG) Release(void);
STDMETHODIMP raw_InfoMessage(
struct Error *pError,
EventStatusEnum *adStatus,
struct _Connection *pConnection);
STDMETHODIMP raw_BeginTransComplete(
LONG TransactionLevel,
struct Error *pError,
EventStatusEnum *adStatus,
struct _Connection *pConnection);
......
};

　　　(2). 实现每一个事件的处理函数(凡是带raw_前缀的方法都把它实现了)：

STDMETHODIMP CConnEvent::raw_InfoMessage(
struct Error *pError,
EventStatusEnum *adStatus,
struct _Connection *pConnection)
{
*adStatus = adStatusUnwantedEvent;
return S_OK;
};

　　有些方法虽然你并不需要，但也必须实现它，只需简单地返回一个S_OK即可。但如果要避免经常被调用，还应在其中将adStatus参数设置为adStatusUnwantedEvent，则在本次调用后，以后就不会被调用了。
另外还必须实现QueryInterface, AddRef, 和Release三个方法:

STDMETHODIMP CConnEvent::QueryInterface(REFIID riid, void ** ppv)
{
*ppv = NULL;
if (riid == __uuidof(IUnknown) ││
riid == __uuidof(ConnectionEventsVt)) *ppv = this;
if (*ppv == NULL)
return ResultFromScode(E_NOINTERFACE);
AddRef();
return NOERROR;
}
STDMETHODIMP_(ULONG) CConnEvent::AddRef() { return ++m_cRef; };
STDMETHODIMP_(ULONG) CConnEvent::Release()
{
if (0 != --m_cRef) return m_cRef;
delete this;
return 0;
}

　　(3). 开始响应通知事件

// Start using the Connection events
IConnectionPointContainer *pCPC = NULL;
IConnectionPoint *pCP = NULL;

hr = pConn.CreateInstance(__uuidof(Connection));
if (FAILED(hr)) return;

hr = pConn->QueryInterface(__uuidof(IConnectionPointContainer),
(void **)&pCPC);
if (FAILED(hr)) return;
hr = pCPC->FindConnectionPoint(__uuidof(ConnectionEvents), &pCP);
pCPC->Release();
if (FAILED(hr)) return;

pConnEvent = new CConnEvent();
hr = pConnEvent->QueryInterface(__uuidof(IUnknown), (void **) &pUnk);
if (FAILED(hr)) return rc;
hr = pCP->Advise(pUnk, &dwConnEvt);
pCP->Release();
if (FAILED(hr)) return;

pConn->Open("dsn=Pubs;", "sa", "", adConnectUnspecified);

　　也就是说在连接(Open)之前就做这些事。

　　(4). 停止响应通知事件

pConn->Close();
// Stop using the Connection events
hr = pConn->QueryInterface(__uuidof(IConnectionPointContainer),
(void **) &pCPC);
if (FAILED(hr)) return;
hr = pCPC->FindConnectionPoint(__uuidof(ConnectionEvents), &pCP);
pCPC->Release();
if (FAILED(hr)) return rc;
hr = pCP->Unadvise( dwConnEvt );
pCP->Release();
if (FAILED(hr)) return;

　　在连接关闭之后做这件事。

爱饭盒 2005-12-30 18:31 发表评论

_variant_t 到　CString 转换

爱饭盒 — Fri, 30 Dec 2005 08:45:00 GMT

数据类型转换函数

CString CZjyDlg::VariantToString(VARIANT var)

{

CString strValue;

_variant_t var_t;

_bstr_t bstr_t;

time_t cur_time;

CTime time_value;

COleCurrency var_currency;

switch(var.vt)

{

case VT_EMPTY:

case VT_NULL:strValue=_T("");break;

case VT_UI1:strValue.Format("%d",var.bVal);break;

case VT_I2:strValue.Format("%d",var.iVal);break;

case VT_I4:strValue.Format("%d",var.lVal);break;

case VT_R4:strValue.Format("%f",var.fltVal);break;

case VT_R8:strValue.Format("%f",var.dblVal);break;

case VT_CY:

var_currency=var;

strValue=var_currency.Format(0);break;

case VT_BSTR:

var_t =var;

bstr_t=var_t;

strValue.Format("%s",(const char *)bstr_t);break;

case VT_DATE:

cur_time=var.date;

time_value=cur_time;

strValue.Format("%A,%B,%d,%Y");break;

case VT_BOOL:strValue.Format("%d",var.boolVal);break;

default:strValue=_T("");break;

}

return strValue;

}

爱饭盒 2005-12-30 16:45 发表评论

ado 出错处理

爱饭盒 — Mon, 26 Dec 2005 12:13:00 GMT

//出错处理：
3127——没有找到目标表
3092——目标表已经存在
例如：
catch(const _com_error e)
{
     AfxMessageBox(e.Description());
     long errorCode=e.WCode();
     if(3127==errorCode) AfxMessageBox("表不存在");
     if(3092==errorCode) AfxMessageBox("表已经存在");
     return FALSE;
}

爱饭盒 2005-12-26 20:13 发表评论

用ADO操作数据库的方法步骤

爱饭盒 — Mon, 26 Dec 2005 11:37:00 GMT

用ADO操作数据库的方法步骤

/***********************ADO接口简介 ***********************************/
ADO库包含三个基本接口:_ConnectionPtr接口、_CommandPtr接口和_RecordsetPtr接口。

_ConnectionPtr接口返回一个记录集或一个空指针。
通常使用它来创建一个数据连接或执行一条不返回任何结果的SQL语句，如一个存储过程。
使用_ConnectionPtr接口返回一个记录集不是一个好的使用方法。
通常同Cdatabase一样，使用它创建一个数据连接，然后使用其它对象执行数据输入输出操作。

_CommandPtr接口返回一个记录集。
它提供了一种简单的方法来执行返回记录集的存储过程和SQL语句。
在使用_CommandPtr接口时，你可以利用全局_ConnectionPtr接口，也可以在_CommandPtr接口里直接使用连接串。
如果你只执行一次或几次数据访问操作，后者是比较好的选择。
但如果你要频繁访问数据库，并要返回很多记录集，那么，你应该使用全局_ConnectionPtr接口创建一个数据连接，
然后使用_CommandPtr接口执行存储过程和SQL语句。

_RecordsetPtr是一个记录集对象。
与以上两种对象相比，它对记录集提供了更多的控制功能，如记录锁定，游标控制等
。同_CommandPtr接口一样，它不一定要使用一个已经创建的数据连接，
可以用一个连接串代替连接指针赋给_RecordsetPtr的connection成员变量，让它自己创建数据连接。
如果你要使用多个记录集，最好的方法是同Command对象一样使用已经创建了数据连接的全局_ConnectionPtr接口
，然后使用_RecordsetPtr执行存储过程和SQL语句。

/***********************基本流程***********************************/
(1)初始化COM库，引入ADO库定义文件
(2)用Connection对象连接数据库
(3)利用建立好的连接，通过Connection、Command对象执行SQL命令，或利用Recordset对象取得结果记
   录集进行查询、处理。
(4)使用完毕后关闭连接释放对象。

/***********************【1】COM库的初始化***********************************/
我们可以使用AfxOleInit()来初始化COM库，这项工作通常在CWinApp::InitInstance()的重载函数中完
成，请看如下代码:

BOOL CADOTest1App::InitInstance()
{
  AfxOleInit();
  ......
}

/*****************【2】用#import指令引入ADO类型库**********************/
我们在stdafx.h中加入如下语句：
#import "c:\program files\common files\system\ado\msado15.dll" no_namespace rename("EOF","adoEOF")
其最终作用同我们熟悉的#include类似,编译的时候系统会为我们生成msado15.tlh,ado15.tli两个C++头文件来定义ADO库。

/***************【3】创建Connection对象并连接数据库********************/

首先我们需要添加一个指向Connection对象的指针:

_ConnectionPtr m_pConnection;

BOOL CADOTest1Dlg::OnInitDialog()
{
CDialog::OnInitDialog();
try
{
  HRESULT hr = m_pConnection.CreateInstance("ADODB.Connection");//创建Connection对象
  if(SUCCEEDED(hr))
  {
   hr = m_pConnection->Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=test.mdb","","",adModeUnknown);//连接数据库
   //上面一句中连接字串中的Provider是针对ACCESS2000环境的，对于ACCESS97,需要改为:Provider=Microsoft.Jet.OLEDB.3.51;  }
  }
}
catch (_com_error e) //COM错误取得,当执行COM功能的时候，如果出错，可以捕捉到_com_error的异常
{
  CString strComError;
  strComError.Format("错误编号: %08lx\n错误信息: %s\n错误源: %s\n错误描述: %s",
       e.Error(),                  // 错误编号
       e.ErrorMessage(),           // 错误信息
       (LPCSTR) e.Source(),        // 错误源
       (LPCSTR) e.Description());  // 错误描述

  ::MessageBox(NULL,strComError,"错误",MB_ICONEXCLAMATION);
}
}
也可以使用UDL文件进行连接。
try
{
m_pConnection.CreateInstance(__uuidof(Connection));
m_pConnection->ConnectionString ="File Name=e.udl";
m_pConnection->Open("","","",NULL);
}
catch(_com_error e)
{....}

◆在这段代码中我们是通过Connection对象的Open方法来进行连接数据库的，下面是该方法的原型

HRESULT Connection15::Open (_bstr_t ConnectionString, _bstr_t UserID, _bstr_t Password, long Options )

ConnectionString 为连接字串,
UserID    是用户名,
Password   是登陆密码,
Options    是连接选项,用于指定Connection对象对数据的更新许可权,
     Options可以是如下几个常量:

  adModeUnknown:   缺省。当前的许可权未设置
  adModeRead:    只读
  adModeWrite:   只写
  adModeReadWrite:  可以读写
  adModeShareDenyRead: 阻止其它Connection对象以读权限打开连接
  adModeShareDenyWrite: 阻止其它Connection对象以写权限打开连接
  adModeShareExclusive: 阻止其它Connection对象打开连接
  adModeShareDenyNone: 允许其它程序或对象以任何权限建立连接

◆常用的数据库连接方法：

(1)通过JET数据库引擎对ACCESS2000数据库的连接
m_pConnection->Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\\test.mdb","","",adModeUnknown);

(2)通过DSN数据源对任何支持ODBC的数据库进行连接:
m_pConnection->Open("Data Source=adotest;UID=sa;PWD=;","","",adModeUnknown);
//m_pConnection->Open("DSN=test;","","",0);   //连接叫作test的ODBC数据源

(3)不通过DSN对SQL SERVER数据库进行连接：
m_pConnection->Open("driver={SQL Server};Server=127.0.0.1;DATABASE=vckbase;UID=sa;PWD=139","","",adModeUnknown);
其中Server是SQL服务器的名称，DATABASE是库的名称

◆先介绍Connection对象中两个有用的属性ConnectionTimeOut与State
ConnectionTimeOut用来设置连接的超时时间，需要在Open之前调用，例如:
  m_pConnection->ConnectionTimeout = 5; //设置超时时间为5秒
  m_pConnection->Open("Data Source=adotest;","","",adModeUnknown);

State属性指明当前Connection对象的状态，0表示关闭，1表示已经打开，我们可以通过
读取这个属性来作相应的处理，例如:
if(m_pConnection->State)
  m_pConnection->Close(); //如果已经打开了连接则关闭它

4】/*****************执行SQL命令并取得结果记录集****************/

为了取得结果记录集，我们定义一个指向Recordset对象的指针:
        _RecordsetPtr m_pRecordset;
并为其创建Recordset对象的实例:
        m_pRecordset.CreateInstance("ADODB.Recordset");

SQL命令的执行可以采用多种形式，下面我们一进行阐述。

◆(1)利用Connection对象的Execute方法执行SQL命令
Execute方法的原型如下所示:

_RecordsetPtr Connection15::Execute (_bstr_t CommandText, VARIANT * RecordsAffected, long Options )
其中
  CommandText   是命令字串，通常是SQL命令。
  RecordsAffected  是操作完成后所影响的行数,
  Options    表示CommandText中内容的类型，Options可以取如下值之一：
       adCmdText:  表明CommandText是文本命令
       adCmdTable:  表明CommandText是一个表名
       adCmdProc:  表明CommandText是一个存储过程
       adCmdUnknown: 未知

Execute执行完后返回一个指向记录集的指针，下面我们给出具体代码并作说明。
try
{
_variant_t ra;

m_pConnection->Execute("CREATE TABLE 学生信息(学号 INTEGER,姓名 TEXT,年龄 INTEGER,生日 DATETIME)",&ra,adCmdText);
m_pConnection->Execute("INSERT INTO 学生信息(学号,姓名,年龄,生日) VALUES (112105, '程红秀',22,'1982-08-16')",&ra,adCmdText);//往表格里面添加记录
m_pRecordset = m_pConnection->Execute("SELECT COUNT(*) FROM 学生信息",&ra,adCmdText);   //执行SQL统计命令得到包含记录条数的记录集

_variant_t vCount = m_pRecordset->GetCollect((_variant_t)(long)(0)); //取得第一个字段的值放入vCount变量

m_pRecordset->Close();
CString message;
message.Format("共有%d条记录",vCount.lVal);
AfxMessageBox(message);
}

catch (_com_error e)
{ ...}

◆(2)利用 Command对象来执行SQL命令
try
{
  _CommandPtr m_pCommand;
  m_pCommand.CreateInstance("ADODB.Command");

  m_pCommand->ActiveConnection = m_pConnection; //关键的一句，将建立的连接赋值给它

  m_pCommand->CommandText="INSERT INTO 学生信息(学号,姓名,年龄,生日) VALUES (112105, '程红秀',22,'1982-08-16')";
  m_pCommand->Execute(NULL,NULL,adCmdText);

  m_pCommand->CommandText="SELECT COUNT(*) FROM 学生信息";
  m_pRecordset=m_pCommand->Execute(NULL,NULL,adCmdText);

  _variant_t vCount = m_pRecordset->GetCollect((_variant_t)(long)0); //取得第一个字段的值

  CString str;
  str.Format("共有%d条记录",vCount.lVal);
  AfxMessageBox(str);

  m_pRecordset->Close();

}
catch (_com_error e) {...}

在这段代码中我们只是用Command对象来执行了SELECT查询语句，
Command对象在进行存储过程的调用中能真正体现它的作用。下次我们将详细介绍。

◆(3)直接用Recordset对象进行查询取得记录集
例如
  m_pRecordset->Open("SELECT * FROM 学生信息",_variant_t((IDispatch *)m_pConnection,true),adOpenStatic,adLockOptimistic,adCmdText);

Open方法的原型是这样的:
HRESULT Recordset15::Open ( const _variant_t & Source, const _variant_t & ActiveConnection, enum CursorTypeEnum CursorType, enum LockTypeEnum LockType, long Options )
其中：
①Source是数据查询字符串
②ActiveConnection是已经建立好的连接（我们需要用Connection对象指针来构造一个_variant_t对象)
③CursorType光标类型，它可以是以下值之一,请看这个枚举结构:
   enum CursorTypeEnum
   {
    adOpenUnspecified = -1, //不作特别指定
    adOpenForwardOnly = 0, //前滚静态光标。这种光标只能向前浏览记录集，比如用MoveNext向前滚动,这种方式可以提高浏览速度。但诸如BookMark,RecordCount,AbsolutePosition,AbsolutePage都不能使用
    adOpenKeyset = 1,  //采用这种光标的记录集看不到其它用户的新增、删除操作，但对于更新原有记录的操作对你是可见的。
    adOpenDynamic = 2,  //动态光标。所有数据库的操作都会立即在各用户记录集上反应出来。
    adOpenStatic = 3  //静态光标。它为你的记录集产生一个静态备份，但其它用户的新增、删除、更新操作对你的记录集来说是不可见的。
   };
④LockType锁定类型，它可以是以下值之一，请看如下枚举结构：
   enum LockTypeEnum
   {
    adLockUnspecified = -1,  //未指定
    adLockReadOnly = 1,   //只读记录集
    adLockPessimistic = 2,  //悲观锁定方式。数据在更新时锁定其它所有动作，这是最安全的锁定机制
    adLockOptimistic = 3,  //乐观锁定方式。只有在你调用Update方法时才锁定记录。在此之前仍然可以做数据的更新、插入、删除等动作
    adLockBatchOptimistic = 4， //乐观分批更新。编辑时记录不会锁定，更改、插入及删除是在批处理模式下完成。
   };
⑤Options请参考本文中对Connection对象的Execute方法的介绍

/***********************【5】记录集的遍历、更新*************************/

根据我们刚才通过执行SQL命令建立好的学生信息表，它包含四个字段:学号，姓名，年龄，生日
以下的代码实现：打开记录集，遍历所有记录，删除第一条记录，添加三条记录，移动光标到第二条
记录，更改其年龄，保存到数据库。

try
{
  _variant_t vUsername,vBirthday,vID,vOld;
  _RecordsetPtr m_pRecordset;

  m_pRecordset.CreateInstance("ADODB.Recordset");
  m_pRecordset->Open("SELECT * FROM 学生信息",_variant_t((IDispatch*)m_pConnection,true),adOpenStatic,adLockOptimistic,adCmdText);

  while(!m_pRecordset->adoEOF)
  {
   vID = m_pRecordset->GetCollect(_variant_t((long)0));    //取得第1列的值,从0开始计数，你也可以直接给出列的名称，如下一行
   vUsername = m_pRecordset->GetCollect("姓名");  //取得姓名字段的值
   vOld = m_pRecordset->GetCollect("年龄");
   vBirthday = m_pRecordset->GetCollect("生日");

   TRACE("id:%d,姓名:%s,年龄:%d,生日:%s\r\n",
    vID.lVal,
    (LPCTSTR)(_bstr_t)vUsername,
    vOld.lVal,
    (LPCTSTR)(_bstr_t)vBirthday);  //在DEBUG方式下的OUTPUT窗口输出记录集中的记录

   m_pRecordset->MoveNext();    //移到下一条记录
  }

  m_pRecordset->MoveFirst();    //移到首条记录
  m_pRecordset->Delete(adAffectCurrent);    //删除当前记录


  for(int i=0;i<3;i++)    //添加三条新记录并赋值
  {
   m_pRecordset->AddNew();    //添加新记录
   m_pRecordset->PutCollect("学号",_variant_t((long)(i+10)));
   m_pRecordset->PutCollect("姓名",_variant_t("王斌年"));
   m_pRecordset->PutCollect("年龄",_variant_t((long)21));
   m_pRecordset->PutCollect("生日",_variant_t("1930-3-15"));
  }

  m_pRecordset->Move(1,_variant_t((long)adBookmarkFirst));    //从第一条记录往下移动一条记录,即移动到第二条记录处
  m_pRecordset->PutCollect(_variant_t("年龄"),_variant_t((long)45));    //修改其年龄
  m_pRecordset->Update();    //保存到库中

} catch (_com_error e){}

/***********************【6】关闭记录集与连接 *************************/
记录集或连接都可以用Close方法来关闭
m_pRecordset->Close(); //关闭记录集
m_pConnection->Close(); //关闭连接

在stdafx.h中进行宏定义:
#if !defined CATCH_ERROR
#define CATCH_ERROR           \
  {             \
   CString strComError;       \
   strComError.Format("错误编号: %08lx\n错误信息: %s\n错误源: %s\n错误描述: %s", \
        e.Error(),                  \
        e.ErrorMessage(),           \
        (LPCSTR) e.Source(),        \
        (LPCSTR) e.Description());  \
   ::MessageBox(NULL,strComError,"错误",MB_ICONEXCLAMATION); \
  }
#endif
使用方法：
try
{  ...}
catch(_com_error e)
{
CATCH_ERROR;
}

爱饭盒 2005-12-26 19:37 发表评论

ADO数据库编程入门

爱饭盒 — Thu, 15 Dec 2005 03:03:00 GMT

ADO 是目前在Windows环境中比较流行的客户端数据库编程技术。ADO是建立在OLE DB底层技术之上的高级编程接口，因而它兼具有强大的数据处理功能（处理各种不同类型的数据源、分布式的数据处理等等）和极其简单、易用的编程接口，因而得到了广泛的应用。而且按微软公司的意图，OLE DB和ADO将逐步取代 ODBC和DAO。现在介绍ADO各种应用的文章和书籍有很多，本文着重站在初学者的角度，简要探讨一下在VC++中使用ADO编程时的一些问题。我们希望阅读本文之前，您对ADO技术的基本原理有一些了解。
一、在VC++中使用ADO编程
ADO实际上就是由一组Automation对象构成的组件，因此可以象使用其它任何Automation对象一样使用ADO。ADO中最重要的对象有三个：Connection、Command和Recordset，它们分别表示连接对象、命令对象和记录集对象。如果您熟悉使用MFC中的ODBC类（CDatabase、CRecordset)编程，那么学习ADO编程就十分容易了。
使用ADO编程时可以采用以下三种方法之一：
1、使用预处理指令#import
#import "C:\Program Files\Common Files\System\ADO\msado15.dll" \
   no_namespace rename("EOF", "EndOfFile")
但要注意不能放在stdAfx.h文件的开头，而应该放在所有include指令的后面。否则在编译时会出错。
程序在编译过程中，VC++会读出msado15.dll中的类型库信息，自动产生两个该类型库的头文件和实现文件msado15.tlh和msado15.tli（在您的Debug或Release目录下）。在这两个文件里定义了ADO的所有对象和方法，以及一些枚举型的常量等。我们的程序只要直接调用这些方法就行了，与使用MFC中的COleDispatchDriver类调用Automation对象十分类似。
2、使用MFC中的CIDispatchDriver
就是通过读取msado15.dll中的类型库信息，建立一个COleDispatchDriver类的派生类，然后通过它调用ADO对象。
3、直接用COM提供的API
如使用如下代码：
CLSID clsid;
HRESULT hr = ::CLSIDFromProgID(L"ADODB.Connection", &clsid);
if(FAILED(hr))
{...}
::CoCreateInstance(clsid, NULL, CLSCTX_SERVER, IID_IDispatch, (void **)
      &pDispatch);
if(FAILED(hr))
{...}
以上三种方法，第一和第二种类似，可能第一种好用一些，第三种编程可能最麻烦。但可能第三种方法也是效率最高的，程序的尺寸也最小，并且对ADO的控制能力也最强。
据微软资料介绍，第一种方法不支持方法调用中的默认参数，当然第二种方法也是这样，但第三种就不是这样了。采用第三种方法的水平也最高。当你需要绕过ADO而直接调用OLE DB底层的方法时，就一定要使用第三种方法了。
ADO编程的关键，就是熟练地运用ADO提供的各种对象(object)、方法(method)、属性(property)和容器（collection）。另外，如果是在MS SQL或Oracle等大型数据库上编程，还要能熟练使用SQL语言。
二、使用#import方法的编程步骤
这里建议您使用#import的方法，因为它易学、易用，代码也比较简洁。
1、添加#import指令
打开stdafx.h文件，将下列内容添加到所有的include指令之后：
#include    //Include support for VC++ Extensions
#import "C:\Program Files\Common Files\System\ADO\msado15.dll" \
   no_namespace rename("EOF", "adoEOF")
其中icrsint.h文件包含了VC++扩展的一些预处理指令、宏等的定义，用于COM编程时使用。
2、定义_ConnectionPtr型变量，并建立数据库连接
建立了与数据库服务器的连接后，才能进行其他有关数据库的访问和操作。ADO使用Connection对象来建立与数据库服务器的连接，所以它相当于MFC中的CDatabase类。和CDatabase类一样，调用Connection对象的Open方法即可建立与服务器的连接。
数据类型 _ConnectionPtr实际上就是由类模板_com_ptr_t而得到的一个具体的实例类，其定义可以到msado15.tlh、comdef.h 和comip.h这三个文件中找到。在msado15.tlh中有：
_COM_SMARTPTR_TYPEDEF(_Collection, __uuidof(_Collection));
经宏扩展后就得到了_ConnectionPtr类。_ConnectionPtr类封装了Connection对象的Idispatch接口指针，及一些必要的操作。我们就是通过这个指针来操纵Connection对象。类似地，后面用到的_CommandPtr和_RecordsetPtr类型也是这样得到的，它们分别表示命令对象指针和记录集对象的指针。
（1）、连接到MS SQL Server
注意连接字符串的格式，提供正确的连接字符串是成功连接到数据库服务器的第一步，有关连接字符串的详细信息参见微软MSDN Library光盘。
本例连接字符串中的server_name，database_name，user_name和password在编程时都应该替换成实际的内容。
_ConnectionPtr pMyConnect=NULL;
HRESULT hr=pMyConnect.CreateInstance(__uuidof(Connection)));
if(FAILED(hr))return;
_bstr_t strConnect="Provider=SQLOLEDB; Server=server_name;"
  "Database=database_name; uid=user_name; pwd=password;";
//connecting to the database server now:
try{pMyConnect->Open(strConnect,"","",NULL);}
catch (_com_error &e)
{
  ::MessageBox(NULL,e.Description(),"警告",MB_OK | MB_ICONWARNING);
}

注意Connection对象的Open方法中的连接字符串参数必须是BSTR或_bstr_t类型。另外，本例是直接通过OLE DB Provider建立连接，所以无需建立数据源。
（2）、通过ODBC Driver连接到Database Server
连接字符串格式与直接用ODBC编程时的差不多：
_bstr_t strConnect="DSN=datasource_name; Database=database_name; uid=user_name; pwd=password;";
此时与ODBC编程一样，必须先建立数据源。
3、定义_RecordsetPtr型变量，并打开数据集
定义_RecordsetPtr型变量，然后通过它调用Recordset对象的Open方法，即可打开一个数据集。所以Recordset对象与MFC中的CRecordset类类似，它也有当前记录、当前记录指针的概念。如：
_RecordsetPtr m_pRecordset;
if(!FAILED(m_pRecordset.CreateInstance( __uuidof( Recordset )))
{
  m_pDoc->m_initialized=FALSE;
  return;
}
try{
  m_pRecordset->Open(_variant_t("mytable"),
            _variant_t((IDispatch *)pMyConnect,true), adOpenKeyset,
            adLockOptimistic, adCmdTable);
}
catch (_com_error &e)
{
  ::MessageBox(NULL,"无法打开mytable表。","提示",
MB_OK | MB_ICONWARNING);
}
Recordset对象的Open方法非常重要，它的第一个参数可以是一个SQL语句、一个表的名字或一个命令对象等等；第二个参数就是前面建立的连接对象的指针。此外，用Connection和Command对象的Execute方法也能得到记录集，但是只读的。
4、读取当前记录的数据
我认为读取数据的最方便的方法如下：
try{
  m_pRecordset->MoveFirst();
  while(m_pRecordset->adoEOF==VARIANT_FALSE)
  {
   //Retrieve column's value:
   CString sName=(char*)(_bstr_t)(m_pRecordset->Fields->GetItem
    (_variant_t("name"))->Value);
   short cAge=(short)(m_pRecordset->Fields->GetItem
    (_variant_t("age"))->Value);
   //Do something what you want to do:
   ......
   m_pRecordset->MoveNext();
  }
}//try
catch (_com_error &e)
{
  CString str=(char*)e.Description();
  ::MessageBox(NULL,str+"\n又出毛病了。","提示",
MB_OK | MB_ICONWARNING);
}

本例中的name和age都是字段名，读取的字段值分别保存在sName和cAge变量内。例中的Fields是Recordset对象的容器，GetItem方法返回的是Field对象，而Value则是Field对象的一个属性（即该字段的值）。通过此例，应掌握操纵对象属性的方法。例如，要获得Field 对象的Value属性的值可以直接用属性名Value来引用它（如上例），但也可以调用Get方法，例如：
CString sName=(char*)(_bstr_t)(m_pRecordset->Fields->GetItem
    (_variant_t("name"))->GetValue());
从此例还可以看到，判断是否到达记录集的末尾，使用记录集的adoEOF属性，其值若为真即到了结尾，反之则未到。判断是否到达记录集开头，则可用BOF属性。
另外，读取数据还有一个方法，就是定义一个绑定的类，然后通过绑定的变量得到字段值（详见后面的介绍）。
5、修改数据
方法一：
try{
  m_pRecordset->MoveFirst();
  while(m_pRecordset->adoEOF==VARIANT_FALSE)
  {
   m_pRecordset->Fields->GetItem
    (_variant_t("姓名"))->Value=_bstr_t("赵薇");
   ......
   m_pRecordset->Update();www.chinai tp 采吧采吧不是罪 ow er.comJuJIe

   m_pRecordset->MoveNext();
  }
}//try
改变了Value属性的值，即改变了字段的值。
方法二：
  m_pRecordset->Fields->GetItem
    (_variant_t("姓名"))->PutValue(_bstr_t("赵薇"));
方法三：就是用定义绑定类的方法（详见后面的介绍）。
6、添加记录
新记录添加成功后，即自动成为当前记录。AddNew方法有两种形式，一个含有参数，而另一个则不带参数。
方法一（不带参数）：
// Add new record into this table:
try{
  if(!m_pRecordset->Supports(adAddNew)) return;www.chinai tp 采吧采吧不是罪 ow er.comJuJIe

  m_pRecordset->AddNew();
  m_pRecordset->Fields->GetItem
   (_variant_t("姓名"))->Value=_bstr_t("赵薇");
  m_pRecordset->Fields->GetItem
   (_variant_t("性别"))->Value=_bstr_t("女");
  m_pRecordset->Fields->GetItem
   (_variant_t("age"))->Value=_variant_t((short)20);
  m_pRecordset->Fields->GetItem
   (_variant_t("marry"))->Value=_bstr_t("未婚");
  m_pRecordset->Update();
}//try
catch (_com_error &e)
{
  ::MessageBox(NULL, "又出毛病了。","提示",MB_OK | MB_ICONWARNING);
}
这种方法弄完了还要调用Update()。
方法二（带参数）：
  _variant_t varName[4],narValue[4];
  varName[0] = L"姓名";
  varName[1] = L"性别";
  varName[2] = L"age";
  varName[3] = L"marry";
  narValue[0]=_bstr_t("赵薇");
  narValue[1]=_bstr_t("女");
  narValue[2]=_variant_t((short)20);
  narValue[3]=_bstr_t("未婚");www.chinai tp 采吧采吧不是罪 ow er.comJuJIe

  const int nCrit = sizeof varName / sizeof varName[0];
  // Create SafeArray Bounds and initialize the array
  SAFEARRAYBOUND rgsaName[1],rgsaValue[1];
  rgsaName[0].lLbound = 0;
  rgsaName[0].cElements = nCrit;
  SAFEARRAY *psaName = SafeArrayCreate( VT_VARIANT, 1, rgsaName );
  rgsaValue[0].lLbound = 0;
  rgsaValue[0].cElements = nCrit;
  SAFEARRAY *psaValue = SafeArrayCreate( VT_VARIANT, 1, rgsaValue );
  // Set the values for each element of the array
  HRESULT hr1=S_OK.hr2=S_OK;
  for( long i = 0 ; i < nCrit && SUCCEEDED( hr1 ) && SUCCEEDED( hr2 );i++)
  {
   hr1=SafeArrayPutElement(psaName, &i,&varName[i]);
   hr2=SafeArrayPutElement(psaValue, &i,&narValue[i]);       }

  // Initialize and fill the SafeArray
  VARIANT vsaName,vsaValue;
  vsaName.vt = VT_VARIANT | VT_ARRAY;
  vsaValue.vt = VT_VARIANT | VT_ARRAY;
  V_ARRAY(&vsaName) = psaName;//&vsaName->parray=psaName;
   //see definition in oleauto.h file.
  V_ARRAY(&vsaValue) = psaValue;

  // Add a new record:
  m_pRecordset->AddNew(vsaName,vsaValue);
这种方法不需要调用Update，因为添加后，ADO会自动调用它。此方法主要是使用SafeArray挺麻烦。
方法三：就是用定义绑定类的方法（详见后面的介绍）。
7、删除记录
调用Recordset的Delete方法就行了，删除的是当前记录。要了解Delete的其它用法请查阅参考文献。
try{
  m_pRecordset->MoveFirst();
  while(m_pRecordset->adoEOF==VARIANT_FALSE)
  {
   CString sName=(char*)(_bstr_t)(m_pRecordset->Fields->GetItem
    (_variant_t("姓名"))->Value);
   if(::MessageBox(NULL,"姓名="+sName+"\n删除她吗？",
    "提示",MB_YESNO | MB_ICONWARNING)==IDYES)
   {
    m_pRecordset->Delete(adAffectCurrent);
    m_pRecordset->Update();
   }
   m_pRecordset->MoveNext();
  }
}//try
catch (_com_error &e)
{
  ::MessageBox(NULL,"又出毛病了。","提示",MB_OK | MB_ICONWARNING);
}
8、使用带参数的命令
Command对象所代表的就是一个Provider能够理解的命令，如SQL语句等。使用Command对象的关键就是把表示命令的语句设置到CommandText属性中，然后调用Command对象的Execute方法就行了。一般情况下在命令中无需使用参数，但有时使用参数，可以增加其灵活性和效率。
(1). 建立连接、命令对象和记录集对象
本例中表示命令的语句就是一个SQL语句（SELECT语句）。SELECT语句中的问号?就代表参数，如果要多个参数，就多放几个问号，每个问号代表一个参数。
_ConnectionPtr Conn1;
_CommandPtr     Cmd1;
ParametersPtr   *Params1 = NULL;   // Not an instance of a smart pointer.
_ParameterPtr   Param1;
_RecordsetPtr   Rs1;www.chinai tp 采吧采吧不是罪 ow er.comJuJIe

try
{
// Create Connection Object (1.5 Version)
Conn1.CreateInstance( __uuidof( Connection ) );
Conn1->ConnectionString = bstrConnect;
    Conn1->Open( bstrEmpty, bstrEmpty, bstrEmpty, -1 );
    // Create Command Object
    Cmd1.CreateInstance( __uuidof( Command ) );
    Cmd1->ActiveConnection = Conn1;
    Cmd1->CommandText = _bstr_t("SELECT * FROM mytable WHERE age< ?");
}//try
要注意命令对象必须与连接对象关联起来才能起作用，本例中将命令对象的ActiveConnection属性设置为连接对象的指针，即为此目的：
Cmd1->ActiveConnection = Conn1;
(2). 创建参数对象，并给参数赋值
// Create Parameter Object
Param1 = Cmd1->CreateParameter( _bstr_t(bstrEmpty),
       adInteger,
       adParamInput,
       -1,
        _variant_t( (long) 5) );
Param1->Value = _variant_t( (long) 5 );
Cmd1->Parameters->Append( Param1 );
用命令对象的方法来创建一个参数对象，其中的长度参数（第三个）如果是固定长度的类型，就填-1，如果是字符串等可变长度的就填其实际长度。Parameters是命令对象的一个容器，它的Append方法就是把创建的参数对象追加到该容器里。Append进去的参数按先后顺序与SQL语句中的问号从左至右一一对应。
(3). 执行命令打开记录集
// Open Recordset Object
Rs1 = Cmd1->Execute( &vtEmpty, &vtEmpty2, adCmdText );
但要注意，用Command和Connection对象的Execute方法得到的Recordset是只读的。因为在打开Recordset之前，我们无法设置它的LockType属性（其默认值为只读）。而在打开之后设置LockType不起作用。
我发现用上述方法得到记录集Rs1后，不但Rs1中的记录无法修改，即使直接用SQL语句修改同一表中任何记录都不行。
要想能修改数据，还是要用Recordset自己的Open方法才行，如：
try{
   m_pRecordset->Open((IDispatch *) Cmd1, vtMissing,
    adOpenStatic, adLockOptimistic, adCmdUnspecified);
  }
  catch (_com_error &e)
  {
   ::MessageBox(NULL,"mytable表不存在。","提示",MB_OK | MB_ICONWARNING);
  }
Recordset对象的Open方法真是太好了，其第一个参数可以是SQL语句、表名字、命令对象指针等等。
9、响应ADO的通知事件
通知事件就是当某个特定事件发生时，由Provider通知客户程序，换句话说，就是由Provider调用客户程序中的一个特定的方法（即事件的处理函数）。所以为了响应一个事件，最关键的就是要实现事件的处理函数。
(1). 从ConnectionEventsVt接口派生出一个类
为了响应_Connection的通知事件，应该从ConnectionEventsVt接口派生出一个类：
class CConnEvent : public ConnectionEventsVt
{
private:
      ULONG   m_cRef;
public:
      CConnEvent() { m_cRef = 0; };
      ~CConnEvent() {};www.chinai tp 采吧采吧不是罪 ow er.comJuJIe

      STDMETHODIMP QueryInterface(REFIID riid, void ** ppv);
      STDMETHODIMP_(ULONG) AddRef(void);
      STDMETHODIMP_(ULONG) Release(void);
      STDMETHODIMP raw_InfoMessage(
         struct Error *pError,
         EventStatusEnum *adStatus,
         struct _Connection *pConnection);
      STDMETHODIMP raw_BeginTransComplete(
         LONG TransactionLevel,
         struct Error *pError,
         EventStatusEnum *adStatus,
         struct _Connection *pConnection);
  ......
};
(2). 实现每一个事件的处理函数(凡是带raw_前缀的方法都把它实现了)：
STDMETHODIMP CConnEvent::raw_InfoMessage(
         struct Error *pError,
         EventStatusEnum *adStatus,
         struct _Connection *pConnection)
         {
         *adStatus = adStatusUnwantedEvent;
         return S_OK;
         };www.chinai tp 采吧采吧不是罪 ow er.comJuJIe

有些方法虽然你并不需要，但也必须实现它，只需简单地返回一个S_OK即可。但如果要避免经常被调用，还应在其中将adStatus参数设置为adStatusUnwantedEvent，则在本次调用后，以后就不会被调用了。
另外还必须实现QueryInterface, AddRef, 和Release三个方法:
STDMETHODIMP CConnEvent::QueryInterface(REFIID riid, void ** ppv)
{
      *ppv = NULL;
      if (riid == __uuidof(IUnknown) ||
          riid == __uuidof(ConnectionEventsVt)) *ppv = this;
      if (*ppv == NULL)
         return ResultFromScode(E_NOINTERFACE);
      AddRef();
      return NOERROR;
   }
   STDMETHODIMP_(ULONG) CConnEvent::AddRef() { return ++m_cRef; };
   STDMETHODIMP_(ULONG) CConnEvent::Release()
{
if (0 != --m_cRef) return m_cRef;
delete this;
return 0;
}
(3). 开始响应通知事件
// Start using the Connection events
IConnectionPointContainer   *pCPC = NULL;
IConnectionPoint         *pCP = NULL;www.chinai tp 采吧采吧不是罪 ow er.comJuJIe

hr = pConn.CreateInstance(__uuidof(Connection));
if (FAILED(hr)) return;www.chinai tp 采吧采吧不是罪 ow er.comJuJIe

hr = pConn->QueryInterface(__uuidof(IConnectionPointContainer),
(void **)&pCPC);
if (FAILED(hr)) return;
hr = pCPC->FindConnectionPoint(__uuidof(ConnectionEvents), &pCP);
pCPC->Release();
if (FAILED(hr)) return;www.chinai tp 采吧采吧不是罪 ow er.comJuJIe

pConnEvent = new CConnEvent();
   hr = pConnEvent->QueryInterface(__uuidof(IUnknown), (void **) &pUnk);
   if (FAILED(hr)) return rc;
   hr = pCP->Advise(pUnk, &dwConnEvt);
   pCP->Release();
   if (FAILED(hr)) return;www.chinai tp 采吧采吧不是罪 ow er.comJuJIe

pConn->Open("dsn=Pubs;", "sa", "", adConnectUnspecified);
也就是说在连接(Open)之前就做这些事。
(4). 停止响应通知事件
pConn->Close();
// Stop using the Connection events
hr = pConn->QueryInterface(__uuidof(IConnectionPointContainer),
      (void **) &pCPC);
   if (FAILED(hr)) return;
   hr = pCPC->FindConnectionPoint(__uuidof(ConnectionEvents), &pCP);
   pCPC->Release();
   if (FAILED(hr)) return rc;
   hr = pCP->Unadvise( dwConnEvt );
   pCP->Release();
   if (FAILED(hr)) return;
在连接关闭之后做这件事。
10、邦定数据
定义一个绑定类，将其成员变量绑定到一个指定的记录集，以方便于访问记录集的字段值。
(1). 从CADORecordBinding派生出一个类：
class CCustomRs : public CADORecordBinding
{
BEGIN_ADO_BINDING(CCustomRs)
   ADO_VARIABLE_LENGTH_ENTRY2(3, adVarChar, m_szau_fname,
         sizeof(m_szau_fname), lau_fnameStatus, false)
   ADO_VARIABLE_LENGTH_ENTRY2(2, adVarChar, m_szau_lname,
         sizeof(m_szau_lname), lau_lnameStatus, false)
   ADO_VARIABLE_LENGTH_ENTRY2(4, adVarChar, m_szphone,
         sizeof(m_szphone),    lphoneStatus,    true)
END_ADO_BINDING()www.chinai tp 采吧采吧不是罪 ow er.comJuJIe

public:
   CHAR   m_szau_fname[22];
   ULONG   lau_fnameStatus;
   CHAR   m_szau_lname[42];
   ULONG   lau_lnameStatus;
   CHAR   m_szphone[14];
   ULONG   lphoneStatus;
};
其中将要绑定的字段与变量名用BEGIN_ADO_BINDING宏关联起来。每个字段对应于两个变量，一个存放字段的值，另一个存放字段的状态。字段用从1开始的序号表示，如1，2，3等等。
特别要注意的是：如果要绑定的字段是字符串类型，则对应的字符数组的元素个数一定要比字段长度大2（比如m_szau_fname[22]，其绑定的字段au_fname的长度实际是20），不这样绑定就会失败。我分析多出的2可能是为了存放字符串结尾的空字符null和BSTR字符串开头的一个字（表示BSTR的长度）。这个问题对于初学者来说可能是一个意想不到的问题。
CADORecordBinding类的定义在icrsint.h文件里，内容是：
class CADORecordBinding
{
public:
STDMETHOD_(const ADO_BINDING_ENTRY*, GetADOBindingEntries) (VOID) PURE;
};www.chinai tp 采吧采吧不是罪 ow er.comJuJIe

BEGIN_ADO_BINDING宏的定义也在icrsint.h文件里，内容是：
#define BEGIN_ADO_BINDING(cls) public: \
typedef cls ADORowClass; \
const ADO_BINDING_ENTRY* STDMETHODCALLTYPE GetADOBindingEntries() { \
static const ADO_BINDING_ENTRY rgADOBindingEntries[] = { www.chinai tp 采吧采吧不是罪 ow er.comJuJIe

ADO_VARIABLE_LENGTH_ENTRY2宏的定义也在icrsint.h文件里：
#define ADO_VARIABLE_LENGTH_ENTRY2(Ordinal, DataType, Buffer, Size, Status, Modify)\
{Ordinal, \
DataType, \
0, \
0, \
Size, \
offsetof(ADORowClass, Buffer), \
offsetof(ADORowClass, Status), \
0, \
classoffset(CADORecordBinding, ADORowClass), \
Modify},www.chinai tp 采吧采吧不是罪 ow er.comJuJIe

#define END_ADO_BINDING宏的定义也在icrsint.h文件里：
#define END_ADO_BINDING()   {0, adEmpty, 0, 0, 0, 0, 0, 0, 0, FALSE}};\
return rgADOBindingEntries;}
(2). 绑定
_RecordsetPtr   Rs1;
IADORecordBinding   *picRs=NULL;
CCustomRs rs;
......
Rs1->QueryInterface(__uuidof(IADORecordBinding),
               (LPVOID*)&picRs));
picRs->BindToRecordset(&rs);
派生出的类必须通过IADORecordBinding接口才能绑定，调用它的BindToRecordset方法就行了。
(3). rs中的变量即是当前记录字段的值
//Set sort and filter condition:
// Step 4: Manipulate the data
Rs1->Fields->GetItem("au_lname")->Properties->GetItem("Optimize")->Value = true;
Rs1->Sort = "au_lname ASC";
Rs1->Filter = "phone LIKE '415 5*'";www.chinai tp 采吧采吧不是罪 ow er.comJuJIe

Rs1->MoveFirst();
while (VARIANT_FALSE == Rs1->EndOfFile)
{
printf("Name: %s\t %s\tPhone: %s\n",
  (rs.lau_fnameStatus == adFldOK ? rs.m_szau_fname : ""),
        (rs.lau_lnameStatus == adFldOK ? rs.m_szau_lname : ""),
        (rs.lphoneStatus == adFldOK ? rs.m_szphone   : ""));
         if (rs.lphoneStatus == adFldOK)
            strcpy(rs.m_szphone, "777");
         TESTHR(picRs->Update(&rs));   // Add change to the batch
  Rs1->MoveNext();
}
Rs1->Filter = (long) adFilterNone;
......
if (picRs) picRs->Release();
Rs1->Close();
pConn->Close();
只要字段的状态是adFldOK，就可以访问。如果修改了字段，不要忘了先调用picRs的Update（注意不是Recordset的Update），然后才关闭，也不要忘了释放picRs（即picRs->Release();）。
(4). 此时还可以用IADORecordBinding接口添加新纪录
if(FAILED(picRs->AddNew(&rs)))
......
11. 访问长数据
在Microsoft SQL中的长数据包括text、image等这样长类型的数据，作为二进制字节来对待。
可以用Field对象的GetChunk和AppendChunk方法来访问。每次可以读出或写入全部数据的一部分，它会记住上次访问的位置。但是如果中间访问了别的字段后，就又得从头来了。
请看下面的例子：
//写入一张照片到数据库：
VARIANT varChunk;
SAFEARRAY *psa;
SAFEARRAYBOUND rgsabound[1];www.chinai tp 采吧采吧不是罪 ow er.comJuJIe

//VT_ARRAY | VT_UI1
CFile f("h:\\aaa.jpg",CFile::modeRead);
BYTE bVal[ChunkSize+1];
UINT uIsRead=0;
//Create a safe array to store the array of BYTES
while(1)
{
uIsRead=f.Read(bVal,ChunkSize);
if(uIsRead==0)break;
rgsabound[0].cElements =uIsRead;
    rgsabound[0].lLbound = 0;
psa = SafeArrayCreate(VT_UI1,1,rgsabound);
for(long index=0;index {
  if(FAILED(SafeArrayPutElement(psa,&index,&bVal[index])))
  ::MessageBox(NULL,"啊，又出毛病了。","提示",MB_OK | MB_ICONWARNING);
}
varChunk.vt = VT_ARRAY|VT_UI1;
varChunk.parray = psa;
try{
  m_pRecordset->Fields->GetItem("photo")->AppendChunk(varChunk);
}
catch (_com_error &e)
{
  CString str=(char*)e.Description();
  ::MessageBox(NULL,str+"\n又出毛病了。","提示",MB_OK | MB_ICONWARNING);
}
::VariantClear(&varChunk);
::SafeArrayDestroyData( psa);
if(uIsRead}//while(1)
f.Close();www.chinai tp 采吧采吧不是罪 ow er.comJuJIe

//从数据库读一张照片：
CFile f;
f.Open("h:\\bbb.jpg",CFile::modeWrite|CFile::modeCreate);
long lPhotoSize = m_pRecordset->Fields->Item["photo"]->ActualSize;
long lIsRead=0;www.chinai tp 采吧采吧不是罪 ow er.comJuJIe

_variant_t varChunk;
BYTE buf[ChunkSize];
while(lPhotoSize>0)
{
lIsRead=lPhotoSize>=ChunkSize? ChunkSize:lPhotoSize;
varChunk = m_pRecordset->Fields->
                  Item["photo"]->GetChunk(lIsRead);
for(long index=0;index {
  ::SafeArrayGetElement(varChunk.parray,&index,buf+index);
}
f.Write(buf,lIsRead);
lPhotoSize-=lIsRead;
}//while()
f.Close();
12. 使用SafeArray问题
学会使用SafeArray也是很重要的，因为在ADO编程中经常要用。它的主要目的是用于automation中的数组型参数的传递。因为在网络环境中，数组是不能直接传递的，而必须将其包装成SafeArray。实质上SafeArray就是将通常的数组增加一个描述符，说明其维数、长度、边界、元素类型等信息。SafeArray也并不单独使用，而是将其再包装到VARIANT类型的变量中，然后才作为参数传送出去。在VARIANT的vt成员的值如果包含VT_ARRAY|...,那么它所封装的就是一个SafeArray，它的parray成员即是指向SafeArray的指针。SafeArray中元素的类型可以是VARIANT能封装的任何类型，包括VARIANT类型本身。
使用SafeArray的具体步骤：
方法一：
包装一个SafeArray：
(1). 定义变量，如：
VARIANT varChunk;
SAFEARRAY *psa;
    SAFEARRAYBOUND rgsabound[1];
(2). 创建SafeArray描述符：
uIsRead=f.Read(bVal,ChunkSize);//read array from a file.
if(uIsRead==0)break;
rgsabound[0].cElements =uIsRead;
rgsabound[0].lLbound = 0;
psa = SafeArrayCreate(VT_UI1,1,rgsabound);
(3). 放置数据元素到SafeArray：
for(long index=0;index {
  if(FAILED(SafeArrayPutElement(psa,&index,&bVal[index])))
   ::MessageBox(NULL,"出毛病了。","提示",MB_OK | MB_ICONWARNING);
}
一个一个地放，挺麻烦的。
(4). 封装到VARIANT内：
varChunk.vt = VT_ARRAY|VT_UI1;
varChunk.parray = psa;
这样就可以将varChunk作为参数传送出去了。www.chinai tp 采吧采吧不是罪 ow er.comJuJIe

读取SafeArray中的数据的步骤：
(1). 用SafeArrayGetElement一个一个地读
BYTE buf[lIsRead];
for(long index=0;index {
  ::SafeArrayGetElement(varChunk.parray,&index,buf+index);
}
就读到缓冲区buf里了。
方法二：
使用SafeArrayAccessData直接读写SafeArray的缓冲区：
(1). 读缓冲区：
BYTE *buf;
SafeArrayAccessData(varChunk.parray, (void **)&buf);
f.Write(buf,lIsRead);
SafeArrayUnaccessData(varChunk.parray);
(2). 写缓冲区：
BYTE *buf;
::SafeArrayAccessData(psa, (void **)&buf);
for(long index=0;index {
  buf[index]=bVal[index];
}
::SafeArrayUnaccessData(psa);www.chinai tp 采吧采吧不是罪 ow er.comJuJIe

varChunk.vt = VT_ARRAY|VT_UI1;
varChunk.parray = psa;www.chinai tp 采吧采吧不是罪 ow er.comJuJIe

这种方法读写SafeArray都可以，它直接操纵SafeArray的数据缓冲区，比用SafeArrayGetElement和SafeArrayPutElement速度快。特别适合于读取数据。但用完之后不要忘了调用::SafeArrayUnaccessData(psa)，否则会出错的。
13. 使用书签( bookmark )
书签可以唯一标识记录集中的一个记录，用于快速地将当前记录移回到已访问过的记录，以及进行过滤等等。Provider会自动为记录集中的每一条记录产生一个书签，我们只需要使用它就行了。我们不能试图显示、修改或比较书签。ADO用记录集的Bookmark属性表示当前记录的书签。
用法步骤：
(1). 建立一个VARIANT类型的变量
_variant_t VarBookmark;
(2). 将当前记录的书签值存入该变量
也就是记录集的Bookmark属性的当前值。
VarBookmark = rst->Bookmark;
(3). 返回到先前的记录
将保存的书签值设置到记录集的书签属性中：
// Check for whether bookmark set for a record
if (VarBookmark.vt == VT_EMPTY)
  printf("No Bookmark set!\n");
else
  rst->Bookmark = VarBookmark;
设置完后，当前记录即会移动到该书签指向的记录。
14、设置过滤条件
Recordset对象的Filter属性表示了当前的过滤条件。它的值可以是以AND或OR连接起来的条件表达式（不含WHERE关键字）、由书签组成的数组或ADO提供的FilterGroupEnum枚举值。为Filter属性设置新值后Recordset的当前记录指针会自动移动到满足过滤条件的第一个记录。例如：
rst->Filter = _bstr_t ("姓名='赵薇' AND 性别=’女’");
在使用条件表达式时应注意下列问题：
（1）、可以用圆括号组成复杂的表达式
例如：
rst->Filter = _bstr_t ("(姓名='赵薇' AND 性别=’女’) OR AGE<25");
但是微软不允许在括号内用OR，然后在括号外用AND，例如：
rst->Filter = _bstr_t ("(姓名='赵薇' OR 性别=’女’) AND AGE<25");
必须修改为：
rst->Filter = _bstr_t ("(姓名='赵薇' AND AGE<25) OR (性别=’女’ AND AGE<25)");
（2）、表达式中的比较运算符可以是LIKE
LIKE后被比较的是一个含有通配符*的字符串，星号表示若干个任意的字符。
字符串的首部和尾部可以同时带星号*
rst->Filter = _bstr_t ("姓名 LIKE '*赵*' ");
也可以只是尾部带星号：
rst->Filter = _bstr_t ("姓名 LIKE '赵*' ");
Filter属性值的类型是Variant，如果过滤条件是由书签组成的数组，则需将该数组转换为SafeArray，然后再封装到一个VARIANT或_variant_t型的变量中，再赋给Filter属性。
15、索引与排序
（1）、建立索引
当以某个字段为关键字用Find方法查找时，为了加快速度可以以该字段为关键字在记录集内部临时建立索引。只要将该字段的Optimize属性设置为true即可，例如：
pRst->Fields->GetItem("姓名")->Properties->
            GetItem("Optimize")->PutValue("True");
pRst->Find("姓名 = '赵薇'",1,adSearchForward);
......
pRst->Fields->GetItem("姓名")->Properties->
            GetItem("Optimize")->PutValue("False");
pRst->Close();
说明：Optimize属性是由Provider提供的属性（在ADO中称为动态属性），ADO本身没有此属性。
（2）、排序
要排序也很简单，只要把要排序的关键字列表设置到Recordset对象的Sort属性里即可，例如：
pRstAuthors->CursorLocation = adUseClient;
pRstAuthors->Open("SELECT * FROM mytable",
            _variant_t((IDispatch *) pConnection),
            adOpenStatic, adLockReadOnly, adCmdText);
......
pRst->Sort = "姓名 DESC, 年龄 ASC";
关键字（即字段名）之间用逗号隔开，如果要以某关键字降序排序，则应在该关键字后加一空格，再加DESC（如上例）。升序时ASC加不加无所谓。本操作是利用索引进行的，并未进行物理排序，所以效率较高。
但要注意，在打开记录集之前必须将记录集的CursorLocation属性设置为adUseClient，如上例所示。Sort属性值在需要时随时可以修改。
16、事务处理
ADO中的事务处理也很简单，只需分别在适当的位置调用Connection对象的三个方法即可，这三个方法是：
（1）、在事务开始时调用
pCnn->BeginTrans();
（2）、在事务结束并成功时调用
pCnn->CommitTrans ();
（3）、在事务结束并失败时调用
pCnn->RollbackTrans ();
在使用事务处理时，应尽量减小事务的范围，即减小从事务开始到结束（提交或回滚）之间的时间间隔，以便提高系统效率。需要时也可在调用BeginTrans()方法之前，先设置Connection对象的IsolationLevel属性值，详细内容参见MSDN中有关ADO的技术资料。
三、使用ADO编程常见问题解答
以下均是针对MS SQL 7.0编程时所遇问题进行讨论。
1、连接失败可能原因
Enterprise Managemer内，打开将服务器的属性对话框，在Security选项卡中，有一个选项Authentication。
如果该选项是Windows NT only，则你的程序所用的连接字符串就一定要包含Trusted_Connection参数，并且其值必须为yes，如：
"Provider=SQLOLEDB;Server=888;Trusted_Connection=yes"
  ";Database=master;uid=lad;";
如果不按上述操作，程序运行时连接必然失败。
如果Authentication选项是SQL Server and Windows NT，则你的程序所用的连接字符串可以不包含Trusted_Connection参数，如：
"Provider=SQLOLEDB;Server=888;Database=master;uid=lad;pwd=111;";
因为ADO给该参数取的默认值就是no，所以可以省略。我认为还是取默认值比较安全一些。
2、改变当前数据库的方法
使用Tansct-SQL中的USE语句即可。
3、如何判断一个数据库是否存在
(1)、可打开master数据库中一个叫做SCHEMATA的视图，其内容列出了该服务器上所有的数据库名称。
(2) 、更简便的方法是使用USE语句，成功了就存在；不成功，就不存在。例如：
try{
  m_pConnect->Execute ( _bstr_t("USE INSURANCE_2002"),NULL,
  adCmdText|adExecuteNoRecords );
}
catch (_com_error &e)
{
  blSuccess=FALSE;
  CString str="数据库INSURANCE_2002不存在！\n";
  str+=e.Description();
  ::MessageBox(NULL,str,"警告",MB_OK | MB_ICONWARNING);
}
4、判断一个表是否存在
（1）、同样判断一个表是否存在，也可以用是否成功地打开它来判断，十分方便，例如：
try{
  m_pRecordset->Open(_variant_t("mytable"),
            _variant_t((IDispatch *)m_pConnection,true), adOpenKeyset,
            adLockOptimistic, adCmdTable);
}
catch (_com_error &e)
{
  ::MessageBox(NULL,"该表不存在。","提示",MB_OK | MB_ICONWARNING);
}

(2)、要不然可以采用麻烦一点的办法，就是在MS-SQL服务器上的每个数据库中都有一个名为sysobjects的表，查看此表的内容即知指定的表是否在该数据库中。
(3)、同样，每个数据库中都有一个名为TABLES的视图(View)，查看此视图的内容即知指定的表是否在该数据库中。
5、类型转换问题
（1）、类型VARIANT_BOOL
类型VARIANT_BOOL等价于short类型。The VARIANT_BOOL is equivalent to short. see it's definition below:
typdef short VARIANT_BOOL
（2）、_com_ptr_t类的类型转换
_ConnectionPtr可以自动转换成IDspatch*类型，这是因为_ConnectionPtr实际上是_com_ptr_t类的一个实例，而这个类有此类型转换函数。
同理，_RecordsetPtr和_CommandPtr也都可以这样转换。
（3）、_bstr_t和_variant_t类
在ADO编程时，_bstr_t和_variant_t这两个类很有用，省去了许多BSTR和VARIANT类型转换的麻烦。
6、打开记录集时的问题
在打开记录集时，在调用Recordset的Open方法时，其最后一个参数里一定不能包含adAsyncExecute，否则将因为是异步操作，在读取数据时无法读到数据。
7、异常处理问题
对所有调用ADO的语句一定要用try和catch语句捕捉异常，否则在发生异常时，程序会异常退出。
8、使用SafeArray问题
在初学使用中，我曾遇到一个伤脑筋的问题，一定要注意：
在定义了SAFEARRAY的指针后，如果打算重复使用多次，则在中间可以调用::SafeArrayDestroyData释放数据，但决不能调用::SafeArrayDestroyDescriptor，否则必然出错，即使调用SafeArrayCreate也不行。例如：
SAFEARRAY *psa;
......
//When the data are no longer to be used:
::SafeArrayDestroyData( psa);
我分析在定义psa指针时，一个SAFEARRAY的实例（也就是SAFEARRAY描述符）也同时被自动建立了。但是只要一调用::SafeArrayDestroyDescriptor，描述符就被销毁了。
所以我认为::SafeArrayDestroyDescriptor可以根本就不调用，即使调用也必须在最后调用。
9、重复使用命令对象问题
一个命令对象如果要重复使用多次（尤其是带参数的命令），则在第一次执行之前，应将它的Prepared属性设置为TRUE。这样会使第一次执行减慢，但却可以使以后的执行全部加快。
10、绑定字符串型字段问题
如果要绑定的字段是字符串类型，则对应的字符数组的元素个数一定要比字段长度大2（比如m_szau_fname[22]，其绑定的字段au_fname的长度实际是20），不这样绑定就会失败。
11、使用AppendChunk的问题
当用AddNew方法刚刚向记录集内添加一个新记录之后，不能首先向一个长数据字段（image类型）写入数据，必须先向其他字段写入过数据之后，才能调用AppendChunk写该字段，否则出错。也就是说，AppendChunk不能紧接在AddNew之后。另外，写入其他字段后还必须紧接着调用AppendChunk，而不能调用记录集的Update方法后，才调用AppendChunk，否则调用AppendChunk时也会出错。换句话说，就是必须AppendChunk在前，Update在后。因而这个时候就不能使用带参数的AddNew了，因为带参数的AddNew会自动调用记录集的Update，所以AppendChunk就跑到Update的后面了，就只有出错了！因此，这时应该用不带参数的AddNew。
我推测这可能是MS SQL 7.0的问题，在MS SQL 2000中则不存在这些问题，但是AppendChunk仍然不能在Update之后。
四、小结
一般情况下，Connection和Command的Execute用于执行不产生记录集的命令，而Recordset的Open用于产生一个记录集，当然也不是绝对的。特别Command主要是用于执行参数化的命令，可以直接由Command对象执行，也可以将Command对象传递给Recordset的Open。
本文中的代码片断均在VC++ 6.0、Windows NT 4.0 SP6和MS SQL 7.0中调试通过。相信您读过之后，编写简单的数据库程序应该没有问题了。当然要编写比较实用的、复杂一点的程序，还需要对OLE DB、ADO以及数据库平台再多了解一点，希望您继续努力，一定会很快成功的！详细参考资料请参见微软MSDN July 2000光盘或MS SQL 7.0在线文档资料（Books online）。文中难免有错误和不妥之处，敬请各位批评指正！www.chinai tp 采吧采吧不是罪 ow er.comJuJIe

参考文献：
1、微软MSDN Library - July 2000 / Platform SDK / Data Services / Microsoft Data Access Components (MDAC) / Microsoft ActiveX Data Objects (ADO)
2、微软MS SQL 7.0在线文档资料（Books online）---- Building SQL Server Applications / ADO and SQL Server
3、微软MS SQL 7.0在线文档资料（Books online）---- Building SQL Server Applications / Transact – SQL Reference
4、微软MSDN Library - July 2000 / Platform SDK / Data Services / Microsoft Data Access Components (MDAC) / Microsoft OLE DB

爱饭盒 2005-12-15 11:03 发表评论

VC数据库编程中的打印控制

爱饭盒 — Fri, 11 Nov 2005 06:31:00 GMT

VC数据库编程中的打印控制

2003-12-4加入来自赛迪网作者李佑民 1条评论点击2287次

　　VC数据库编程中的打印控制比较复杂，但它也给程序员最大的灵活性，而这种灵活性正是我们需要的。因为各行业、部门的报表一般都不太规整，特别是表头部分，二、三重嵌套的情况很常见。下面我们就开发中碰到的一些问题与同行们探讨。

　　Document/View框架之外的打印

　　熟悉VC的程序员都知道Microsoft 的AppWizard生成的应用程序框架中，可以选择免费的打印及打印预览功能，但前提是必须选择Document/View结构。然而我们的数据库应用中一般都不需要一个文档类来保存文档，因为数据库（源）就是我们的文档，数据一般是在一个对话框或视中与用户交互，编辑或修改结果直接通过数据库引擎写回数据库中。我们的程序主框架要么是基于对话框的、要么是基于无文档类的单视（或多视）结构，在这种情况下，AppWizard 在打印控制部分并不能给我们任何帮助，只能自己负责完成打印控制。

　　总结起来，一次打印操作要遵循以下步骤：

　　1.得到或生成打印设备场景，可通过显示打印对话框让用户选择打印机与纸张等设置，也可在程序中直接取系统缺省打印机设置，然后根据报表格式设置纸张大小和打印方向；

　　2.开始在该设备场景中的一次打印作业，实际打印报表内容，终止打印作业；

　　3.清除打印设备场景，完成本次打印操作。

　　在下面的例子中，我们在一个对话框中让用户选择打印某个报表，没有显示打印设置对话框，而是直接取系统缺省打印机设置，然后根据报表格式设置纸张大小和打印方向。之所以这样做是因为各行业、部门的报表格式一般都是至上而下的统一格式。函数DoPreparePrintDC()、DoPrint()和DoClearPrintDC()分别对应上述的三个步骤：

　　BOOL CMyDialog::DoPreparePrintDC()

　　// 准备打印场景

　　{

　　＃define　　FONTSIZE 14

　　 // 获取打印机的设备属性

　　 CPrintDialog dlgPrint( FALSE );

　　 // 得到当前系统缺省打印机设置

　　 if(!dlgPrint.GetDefaults()) return FALSE;

　　 LPDEVMODE pDM=dlgPrint.GetDevMode();

　　 if(pDM==NULL) return FALSE;

　　 ::GlobalUnlock(pDM);

　　 // 联结打印DC，m—hDC是定义为HDC m—hDC的类成员变量

　　 m—hDC=dlgPrint.CreatePrinterDC();

　　 // m—DC是定义为CDC m—DC的类成员变量

　　 if(!m—DC.Attach(m—hDC) return FALSE;

　　 // 设置打印标志

　　 m—DC.m—bPrinting=TRUE;

　　 short cxInch=m—DC.GetDeviceCaps(LOGPIXELSX);

　　 short cyInch=m—DC.GetDeviceCaps(LOGPIXELSY);

　　 // 建立打印字体，m—fontPrint 是定义为CFont m_fontPrint的类成员变量

　　 if(!m—fontPrint.CreateFont(MulDiv(FONTSIZE, －cyInch, 72),0,0,0, FW—NORMAL,0,0,0, GB2312—CHARSET, OUT—CHARACTER—PRECIS, CLIP—CHARACTER—PRECIS,DEFAULT—QUALITY, DEFAULT—PITCH|FF—DONTCARE, HFONTNAME)

　　 return FALSE;

　　 return TRUE;}

　　void CDlgDataPrint::DoClearPrintDC()

　　// 清除打印场景

　　{ m—fontPrint.DeleteObject();

　　 m—DC.Detach();

　　 ::DeleteDC( m—hDC );}

　　void CDlgDataPrint::DoPrint()

　　// 实际打印输出

　　{ if(DoPreparePrintDC()==FALSE) return;

　　 // 开始一次打印作业

　　 CString str;

　　 str.LoadString(AFX—IDS—APP—TITLE);

　　 DOCINFO di;

　　 ::ZeroMemory (＆di, sizeof (DOCINFO));

　　 di.cbSize=sizeof (DOCINFO);

　　 di.lpszDocName=str;

　　 m—DC.StartDoc(＆di);

　　 m—DC.StartPage();

　　 // 将打印字体选进设备场景

　　 CFont＊ pOldFont=m—DC.SelectObject(＆m—fontPrint);

　　 // 输出报表，建议用CDC::DrawText()函数便于控制打印范围

　　 ...

　　 // 终止打印作业

　　 m—DC.EndPage();

　　 m—DC.EndDoc();

　　 m—DC.SelectObject(pOldFont);

　　 // 清除打印场景

　　 DoClearPrintDC();}

　　表格问题

　　对格式固定或表头、表体比较复杂的情况，特别是有嵌套表格的情况下，我们认为先将打印结果以文本形式写入一临时文件，然后再对文件进行打印输出的方法会使事情简单一些。因为这样在程序中就可以只关心数据(表体)的输出，而表头则可以固定格式存入数据库。

　　但是，我们在对文本形式的报表进行打印输出时却发现一个有趣的现象，有时输出结果的相邻两行表格竖线不能对齐，而有时又可以。原来是 Windows 图形输出的问题，只要我们在建立打印字体时，字体的高度是偶数就可保证竖线对齐，如果是奇数则不能对齐。知道了原因，在建立打印字体时只需加入如下代码即可：

　　...

　　＃define　　FONTSIZE 14

　　＃define　　HFONTNAME ″宋体″

　　// 建立打印字体，m—fontPrint是定义为CFont m—fontPrint的类成员变量

　　int nFontHeight=MulDiv(FONTSIZE,－cyInch, 72);

　　if(nFontHeight ％ 2) nFontHeight＋＋;

　　if(!m—fontPrint.CreateFont(nFontHeight, 0, 0, 0, FW—NORMAL, 0, 0,0,GB2312—CHARSET, OUT—CHARACTER—PRECIS, CLIP—CHARACTER—PRECIS,DEFAULT—QUALITY, DEFAULT—PITCH | FF—DONTCARE, HFONTNAME))

　　 return FALSE;

　　...

　　还有一点小技巧，输出文本形式的报表时，对报表的横线只需要输出其正常高度的二分之一或三分之一，这样报表看起来更紧凑美观。这也是我们在前面建议用CDC::DrawText()进行绘制输出的原因。

爱饭盒 2005-11-11 14:31 发表评论

ADO开发中如何得到表格字段名

爱饭盒 — Fri, 11 Nov 2005 03:09:00 GMT

1. 代码说明
(1)在 stdafx.h 加入如下代码引入 ADO 库定义文件，

#import "c:\program files\common files\system\ado\msado15.dll" 			no_namespace 		rename ("EOF", "adoEOF")

(2)初始化COM库，在BOOL CGetFieldNameApp::InitInstance()中添加AfxOleInit();

(3)在类 CgetFieldNameDlg 中添加两个用于打开数据库连接和打开记录集的变量；

_ConnectionPtr m_pConnection;
	_RecordsetPtr m_pRecordset;

(4) 在CgetFieldNameDlg的构造函数中添加数据库连接和记录集初始化代码；

m_pConnection.CreateInstance(__uuidof(Connection));
try                 
{	
	m_pConnection->Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\\FTI.mdb",
			"",
			"",
			adModeUnknown
			);
}
catch(_com_error e)
{
	AfxMessageBox("数据库连接失败!");
} 
m_pRecordset.CreateInstance(__uuidof(Recordset));

(5) 给Listbox控件添加控件变量m_FieldsList；
(6) 在按钮的单击事件中添加相应代码；

_bstr_t   mStrSQL;
CString   strColName;
BSTR      bstrColName;
long      ColCount,i; 
Field *   field = NULL;		
HRESULT   hr;
Fields *  fields = NULL;
LPCTSTR   nameField;
	
//打开记录集，得到字段名，并将字段名信息添加到ListBox中

mStrSQL = "SELECT * FROM Images";

m_pRecordset->Open(mStrSQL,               
		m_pConnection.GetInterfacePtr(),	 
		adOpenDynamic,
		adLockOptimistic,
		adCmdText);
	
hr = m_pRecordset->get_Fields (&fields);	//得到记录集的字段集和	
	 
if(SUCCEEDED(hr)) 
    fields->get_Count(&ColCount);	

//得到记录集的字段集合中的字段的总个数	

for(i=0;iItem[i]->get_Name(&bstrColName);	//得到记录集//中的字段名
	strColName=bstrColName;	
	nameField = strColName;
	m_FieldsList.AddString(nameField);
}		

if(SUCCEEDED(hr))
	fields->Release();//释放指针

爱饭盒 2005-11-11 11:09 发表评论

用udl建立到sybase的连接

爱饭盒 — Wed, 09 Nov 2005 08:25:00 GMT

新建一个udl文件。选择提供程序。如下图

选择下一步。

数据源为利用 sybase ase ole Configuration Manager所建立的数据源。

爱饭盒 2005-11-09 16:25 发表评论

Connection大全

爱饭盒 — Wed, 09 Nov 2005 07:16:00 GMT

1.Sqlserver
  A.ODBC
    I.Standard Security:
      "Driver={SQL Server};Server=Aron1;Database=pubs;Uid=sa;Pwd=asdasd;"
    II.Trusted connection:
      "Driver={SQL Server};Server=Aron1;Database=pubs;
       Trusted_Connection=yes;"
    III.Prompt for username and password:
       oConn.Properties("Prompt") = adPromptAlways
       oConn.Open "Driver={SQL Server};Server=Aron1;DataBase=pubs;"
  B.OLE DB, OleDbConnection (.NET)
    I.Standard Security:
       "Provider=sqloledb;Data Source=Aron1;Initial Catalog=pubs;User
       Id=sa;Password=asdasd;"
    II.Trusted Connection:
       "Provider=sqloledb;Data Source=Aron1;Initial Catalog=pubs;
       Integrated Security=SSPI;"
       (仅适用于Sqlserver 2000)
    III.Prompt for username and password:
       oConn.Provider = "sqloledb"
       oConn.Properties("Prompt") = adPromptAlways
       oConn.Open "Data Source=Aron1;Initial Catalog=pubs;"
    IV.Connect via an IP address:
       "Provider=sqloledb;Data Source=190.190.200.100,1433;Network
       Library=DBMSSOCN;Initial Catalog=pubs;User ID=sa;Password=asdasd;"
  C.SqlConnection (.NET)
    I.Standard Security:
     "Data Source=Aron1;Initial Catalog=pubs;User Id=sa;Password=asdasd;"
     或者"Server=Aron1;Database=pubs;User ID=sa;Password=asdasd;
     Trusted_Connection=False"
    II.Trusted Connection:
     "Data Source=Aron1;Initial Catalog=pubs;Integrated Security=SSPI;"
     或者"Server=Aron1;Database=pubs;Trusted_Connection=True;"
     (仅适用于Sqlserver 2000)
    III.Connect via an IP address:
     "Data Source=190.190.200.100,1433;Network Library=DBMSSOCN;Initial
     Catalog=pubs;User ID=sa;Password=asdasd;"
     Name       Network library
     dbnmpntw   Win32 Named Pipes
     dbmssocn   Win32 Winsock TCP/IP
     dbmsspxn   Win32 SPX/IPX
     dbmsvinn   Win32 Banyan Vines
     dbmsrpcn   Win32 Multi-Protocol (Windows RPC)
     通过SQLOLEDB provider 连接，用Network Library=dbmssocn，通过MSDASQL
     provider连接，用Network=dbmssocn
    IV.声明方法：
     C#:
       using System.Data.SqlClient;
       SqlConnection oSQLConn = new SqlConnection();
       oSQLConn.ConnectionString="my connectionstring";
       oSQLConn.Open();
     VB.NET:
       Imports System.Data.SqlClient
       Dim oSQLConn As SqlConnection = New SqlConnection()
       oSQLConn.ConnectionString="my connectionstring"
       oSQLConn.Open()
  D.Data Shape
    MS Data Shape
    "Provider=MSDataShape;Data Provider=SQLOLEDB;Data Source=Aron1;Initial
    Catalog=pubs;User ID=sa;Password=asdasd;"
   呵呵，Data Shape没用过，请参照
    http://www.4guysfromrolla.com/webtech/092599-1.shtml
2.Access
  A.ODBC
    I.Standard Security:
      "Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\mydatabase.mdb;
       Uid=Admin;Pwd=;"
    II.Workgroup:
      "Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\mydatabase.mdb;
      SystemDB=C:\mydatabase.mdw;"
    III.Exclusive:
      "Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\mydatabase.mdb;
      Exclusive=1;Uid=admin;Pwd="
  B.OLE DB, OleDbConnection (.NET)
    I.Standard security:
      "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\somepath\mydb.mdb;
      User Id=admin;Password=;"
    II.Workgroup (system database):
      "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\somepath\mydb.mdb;
      Jet OLEDB:System Database=system.mdw;"
    III.With password:
      "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\somepath\mydb.mdb;
      Jet OLEDB:Database Password=MyDbPassword;"
3.Oracle
  A.ODBC
    I.New version:
      "Driver={Microsoft ODBC for Oracle};Server=OracleServer.world;
      Uid=Username;Pwd=asdasd;"
    II.Old version:
      "Driver={Microsoft ODBC Driver for Oracle};ConnectString=
      OracleServer.world;Uid=myUsername;Pwd=myPassword;"
  B.OLE DB, OleDbConnection (.NET)
    I.Standard security:
      "Provider=msdaora;Data Source=MyOracleDB;User Id=UserName;
      Password=asdasd;"
      注：上面是用MS的驱动，下面是用Oracle提供的驱动：
      "Provider=OraOLEDB.Oracle;Data Source=MyOracleDB;User
      Id=Username;Password=asdasd;"
    II.Trusted Connection:
      "Provider=OraOLEDB.Oracle;Data Source=MyOracleDB;OSAuthent=1;"
  C.OracleConnection (.NET)
    I.Standard:
      "Data Source=Oracle8i;Integrated Security=yes";
      注：此写法用于Oracle 8i release 3及以上版本。
      声明方法:
      C#:
      using System.Data.OracleClient;
      OracleConnection oOracleConn = new OracleConnection();
      oOracleConn.ConnectionString = "my connectionstring";
      oOracleConn.Open();
      VB.NET:
      Imports System.Data.OracleClient
      Dim oOracleConn As OracleConnection = New OracleConnection()
      oOracleConn.ConnectionString = "my connectionstring"
      oOracleConn.Open()
  D.Data Shape
    I.MS Data Shape:
      "Provider=MSDataShape.1;Persist Security Info=False;Data
      Provider=MSDAORA;Data Source=orac;user id=username;password=mypw"
3.MySQL
  A.ODBC
    I.Local database:
      "Driver={mySQL};Server=mySrvName;Option=16834;Database=mydatabase;"
    II.Remote database:
      "Driver={mySQL};Server=data.domain.com;Port=3306;Option=131072;
      Stmt=;Database=my-database;Uid=username;Pwd=password;"
  B.OLE DB, OleDbConnection (.NET)
    I.Standard:
      "Provider=MySQLProv;Data Source=mydb;User Id=UserName;
      Password=asdasd;"
  C.MySqlConnection (.NET)
    I.eInfoDesigns.dbProvider:
      "Data Source=server;Database=mydb;User ID=username;
      Password=pwd;Command Logging=false"
      注：此写法仅用于通过eInfoDesigns dbProvider连接：
    II.声明方法：
      C#:
      using eInfoDesigns.dbProvider.MySqlClient;
      MySqlConnection oMySqlConn = new MySqlConnection();
      oMySqlConn.ConnectionString = "my connectionstring";
      oMySqlConn.Open();
      VB.NET:
      Imports eInfoDesigns.dbProvider.MySqlClient
      Dim oMySqlConn As MySqlConnection = New MySqlConnection()
      oMySqlConn.ConnectionString = "my connectionstring"
      oMySqlConn.Open()
4.Interbase
  A.ODBC (Easysoft ODBC-Interbase driver )
   I.Local computer:
     "Driver={Easysoft IB6 ODBC};Server=localhost;Database=localhost:
     C:\mydatabase.gdb;Uid=username;Pwd=password"
   II.Remote Computer:
     "Driver={Easysoft IB6 ODBC};Server=ComputerName;Database=ComputerName
     :C:\mydatabase.gdb;Uid=username;Pwd=password"
  B.ODBC (Intersolv ODBC-Interbase driver )
   I.Local computer:
     "Driver={INTERSOLV InterBase ODBC Driver (*.gdb)};Server=localhost;
     Database=localhost:C:\mydatabase.gdb;Uid=username;Pwd=password"
   II.Remote Computer:
     "Driver={INTERSOLV InterBase ODBC Driver (*.gdb)};
     Server=ComputerName;Database=ComputerName:C:\mydatabase.gdb;
     Uid=username;Pwd=password"
  C.OLE DB (SIBPROvider Driver)
   I.Standard:
     "provider=sibprovider;location=localhost:;data source=c:
     \databases\gdbs\mygdb.gdb;user id=SYSDBA;password=masterkey"
   II.Specifying character set:
     "provider=sibprovider;location=localhost:;data source=c:
     \databases\gdbs\mygdb.gdb;user id=SYSDBA;password=masterkey;
     character set=ISO8859_1"
   III.Specifying role:
     "provider=sibprovider;location=localhost:;data source=c:
     \databases\gdbs\mygdb.gdb;user id=SYSDBA;password=masterkey;
     role=DIGITADORES"
6.IBM DB2
  A.OLE DB, OleDbConnection (.NET) from ms
   I.TCP/IP:
     "Provider=DB2OLEDB;Network Transport Library=TCPIP;Network
     Address=XXX.XXX.XXX.XXX;Initial Catalog=MyCtlg;Package
     Collection=MyPkgCol;Default Schema=Schema;User ID=MyUser;Password=MyPW"
   II.APPC:
     "Provider=DB2OLEDB;APPC Local LU Alias=MyAlias;APPC Remote LU
     Alias=MyRemote;Initial Catalog=MyCtlg;Package Collection=MyPkgCol;Default
     Schema=Schema;User ID=MyUser;Password=MyPW"
7.Sybase
  A.ODBC
   I.Standard Sybase System 12 (or 12.5) Enterprise Open Client:
     "Driver={SYBASE ASE ODBC Driver};Srvr=Aron1;Uid=username;Pwd=password"
   II.Standard Sybase System 11:
     "Driver={SYBASE SYSTEM 11};Srvr=Aron1;Uid=username;Pwd=password;"
   III.Intersolv 3.10:
     "Driver={INTERSOLV 3.10 32-BIT Sybase};Srvr=Aron1;Uid=username;
     Pwd=password;"
   IIII.Sybase SQL Anywhere (former Watcom SQL ODBC driver):
    "ODBC; Driver=Sybase SQL Anywhere 5.0; DefaultDir=c:\dbfolder\;Dbf=
    c:\mydatabase.db;Uid=username;Pwd=password;Dsn="""""
  B.OLEDB
    I.Adaptive Server Anywhere (ASA):
    "Provider=ASAProv;Data source=myASA"
    II.Adaptive Server Enterprise (ASE) with Data Source .IDS file:
    "Provider=Sybase ASE OLE DB Provider; Data source=myASE"
    注：必须先用Data Administrator创建Data Source .IDS file
    III.Adaptive Server Enterprise (ASE):
    "Provider=Sybase.ASEOLEDBProvider;Srvr=myASEserver,5000;Catalog=myDBname;
    User Id=username;Password=password"
8.Informix
  A.ODBC
    I.Informix 3.30:
    "Dsn=’’;Driver={INFORMIX 3.30 32 BIT};Host=hostname;Server=myserver;Service=
    service-name;Protocol=olsoctcp;Database=mydb;UID=username;PWD=myPwd
    II.Informix-CLI 2.5:
    "Driver={Informix-CLI 2.5 (32 Bit)};Server=myserver;Database=mydb;
    Uid=username;Pwd=myPwd"
  B.OLE DB
    I.IBM Informix OLE DB Provider:
    "Provider=Ifxoledbc.2;password=myPw;User ID=myUser;Data Source=
    dbName@serverName;Persist Security Info=true"
9.Mimer SQL
  A.ODBC
    I.Standard Security:
    "Driver={MIMER};Database=mydb;Uid=myuser;Pwd=mypw;"
    II. Prompt for username and password:
    "Driver={MIMER};Database=mydb;"
10.DSN
  A.ODBC
   I.DSN:
    "DSN=myDsn;Uid=username;Pwd=;"
   II.File DSN:
    "FILEDSN=c:\myData.dsn;Uid=username;Pwd=;"
11.Excel
  A.ODBC
   I.Standard:
    "Driver={Microsoft Excel Driver (*.xls)};DriverId=790;
    Dbq=C:\MyExcel.xls;DefaultDir=c:\mypath;"
  B.OLE DB
   I.Standard:
    "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\MyExcel.xls;Extended
    Properties=""Excel 8.0;HDR=Yes;IMEX=1"""
    "HDR=Yes;" indicates that the first row contains columnnames, not data.
    "IMEX=1;" tells the driver to always read "intermixed" data columns as text.
12.Text
  A.ODBC
   I.Standard:
   "Driver={Microsoft Text Driver (*.txt; *.csv)};
   Dbq=c:\txtFilesFolder\;Extensions=asc,csv,tab,txt;"
  B.OLE DB
   I.Standard:
   "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\txtFilesFolder\;Extended
   Properties=""text;HDR=Yes;FMT=Delimited"""
   "HDR=Yes;" indicates that the first row contains columnnames, not data.
13.DBF / FoxPro
  A.ODBC
   I.standard:
   "Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=c:\mydbpath;"
  B.OLE DB, OleDbConnection (.NET)
   I.standard:
   "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\folder;Extended Properties=
   dBASE IV;User ID=Admin;Password="
14.Visual FoxPro
  A.OLE DB, OleDbConnection (.NET)
   I.Database container (.DBC):
   "Provider=vfpoledb.1;Data Source=C:\MyDbFolder\MyDbContainer.dbc;
   Password=MyPassWord;Collating Sequence=machine"
   II. Free table directory:
   "Provider=vfpoledb.1;Data Source=C:\MyDataDirectory\;Password=MyPassWord;
   Collating Sequence=general"
  B.ODBC
   I.Database container (.DBC):
   "Driver={Microsoft Visual FoxPro Driver};SourceType=DBC;SourceDB=
   c:\myvfpdb.dbc;Exclusive=No;Collate=Machine;"
   II.Free Table directory:
   "Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=
   c:\myvfpdbfolder;Exclusive=No;Collate=Machine;"
15.Pervasive (没听说过这个东东)
  A.ODBC
   I.Standard:
   "Driver={Pervasive ODBC Client Interface};ServerName=srvname;dbq=@dbname"
  B.OLE DB
   I.Standard:
   "Provider=PervasiveOLEDB;Data Source=C:\path"
16.UDL
   "File Name=c:\myDataLink.udl;"

爱饭盒 2005-11-09 15:16 发表评论

利用UDL文件来建立ADO连接

爱饭盒 — Wed, 09 Nov 2005 07:04:00 GMT

使用通用数据连接文件（*.UDL，以下简称文件）来创建ADO连接，可以和ODBC一样可视化地定义要连接的数据源，从而实现数据访问的透明性。

　　 1.使用UDL文件来创建ADO连接

　　创建ADO的连接，首先要设置ADO连接对象的ConnectionString属性，该属性提供所要连接的数据库类型、数据所处服务器、要访问的数据库和数据库访问的安全认证信息。比较专业的方法是在ConnectionString中直接提供以上信息，下面是访问不同类型数据源设置ConnectionString的标准：
访问ODBC数据

"Provider=MSDASQL;DSN=dsnName;UID=userName;PWD=userPassword;"
访问ORACLE数据库
"Provider=MSDAORA;Data Source=serverName;User ID=userName; Password=userPassword;"
访问MS SQL数据库
"Provider=SQLOLEDB;Data Source=serverName;Initial Catalog=databaseName; User ID=userName;Password=userPassword;"
访问ACCESS 数据库
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=databaseName;User ID=userName;Password=userPassword;"

　　上述的连接属性设置标准随着数据源的类型不同而变化，软件用户常常不习惯这种设置方式，都希望有可视化的数据源设置方法。为此Microsoft提供了通用数据连接文件（.UDL）来建立和测试ADO连接属性。ADO连接对象可以很方便地使用UDL文件来连接数据源，下面例子使用my_data1.udl来创建ADO连接。

_ConnectionPtr m_pDBConn;
m_pDBConn.CreateInstance(__uuidof(Connection));
m_pDBConn->ConnectionString ="File Name=c:\mydir\my_data1.udl"; //注意：name=c：等号两边不能有空格
m_pDBConn->Open("","","",NULL);

　　这样一来无论数据源如何变化，在软件中都可以用统一的方法编程。当数据源改变时，只要双击相应的udl文件即可可视化地设置数据源，无需更改软件。

　　因为ADO是COM接口，为了软件的可靠性，打开ADO连接时，可以加入异常处理代码。

try{
m_pDBConn->Open("","","",NULL);
}catch(_com_error &e){
//处理异常的代码
. . . . . . . . . . . . . . . . . . . . . . . . . . . . .
m_pDBConn=NULL;
}

　　因为_ConnectionPtr m_pDBConn是智能指针，应在处理异常代码时将智能指针设为NULL后将自动将引用计数降为0。

　　如果不出现异常，只要在使用完m_pDBConn，只要引用Close方法即可。

　　 2.创建你所需的UDL文件

　　在你所想创建UDL文件的目录中单击右键，选择从菜单新建|Microsoft 数据连接，然后将新创建的UDL文件更改为你所希望的文件名（.UDL扩展名不能改变）。

爱饭盒 2005-11-09 15:04 发表评论

在Visual C++中用ADO进行数据库编程

爱饭盒 — Wed, 09 Nov 2005 02:49:00 GMT

由 wnchg 整理

　1. 生成应用程序框架并初始化OLE/COM库环境

　　创建一个标准的MFC AppWizard(exe)应用程序，然后在使用ADO数据库的InitInstance函数中初始化OLE/COM库（因为ADO库是一个COM DLL库）。
本例为：

　BOOL CAdotestDlg::OnInitDialog()
　{
        ::CoInitialize(NULL); //初始化OLE/COM库环境 
  }

程序最后要调用 ::CoUninitialize()；//释放程序占用的COM 资源。
另外：

m_pRecordset->Close(); 注意！！！不要多次关闭！！！！！！！！！！！！
m_pConnection->Close();
m_pRecordset = NULL;
m_pConnection = NULL;

　2. 引入ADO库文件

　　使用ADO前必须在工程的stdafx.h文件最后用直接引入符号＃import引入ADO库文件，以使编译器能正确编译。代码如下：
#import "C:\Program Files\common files\system\ado\msado15.dll" no_namespace rename("EOF","adoEOF")
　 ADO类的定义是作为一种资源存储在ADO DLL(msado15.dll）中，在其内部称为类型库。类型库描述了自治接口，以及C＋＋使用的COM vtable接口。当使用＃import指令时，在运行时Visual C＋＋需要从ADO DLL中读取这个类型库，并以此创建一组C＋＋头文件。这些头文件具有.tli 和.tlh扩展名，读者可以在项目的目录下找到这两个文件。在C＋＋程序代码中调用的ADO类要在这些文件中定义。
　程序的第三行指示ADO对象不使用名称空间。在有些应用程序中，由于应用程序中的对象与ADO中的对象之间可能会出现命名冲突，所以有必要使用名称空间。如果要使用名称空间，则可把第三行程序修改为： rename_namespace("AdoNS")。第四行代码将ADO中的EOF(文件结束)更名为adoEOF，以避免与定义了自己的EOF的其他库冲突。

　3．利用智能指针进行数据库操作

　　在CaboutDlg头文件中定义两个ADO智能指针类实例,并在对话框中加入一个ListCtrl。
　

 class CAdotestDlg : public CDialog
{
     _ConnectionPtr m_pConnection;
     _RecordsetPtr m_pRecordset;
　　 ClistCtrl m_List; 
     ......
}

ADO库包含三个智能指针:_ConnectionPtr、_CommandPtr和_RecordsetPtr。

_ConnectionPtr通常被用来创建一个数据连接或执行一条不返回任何结果的SQL语句，如一个存储过程。
_CommandPtr返回一个记录集。它提供了一种简单的方法来执行返回记录集的存储过程和SQL语句。在使用_CommandPtr接口时，可以利用全局_ConnectionPtr接口，也可以在_CommandPtr接口里直接使用连接串。_RecordsetPtr是一个记录集对象。与以上两种对象相比，它对记录集提供了更多的控制功能，如记录锁定、游标控制等。

　　在使用ADO程序的事件响应中OnButton1加入以下代码:
　

void CAdotestDlg::OnButton1() 
{
	m_List.ResetContent();
	m_pConnection.CreateInstance(_uuidof(Connection)); //初始化Connection指针
	m_pRecordset.CreateInstance(_uuidof(Recordset));//初始化Recordset指针

	try
	{
		m_pConnection->Open("DSN=ADOTest","","",0); //连接叫作ADOTest的ODBC数据源
		//注意：这是连接不需要用户ID或密码的open 函数
		// 否则形式为 ->Open("DSN=test;uid=sa;pwd=123;","","",0); 
	

		// 执行SQL语句得到一个记录集把其指针赋值给m_pRecordset
		CString strSql="select * from middle";
		BSTR bstrSQL = strSql.AllocSysString(); 
		m_pRecordset->Open(bstrSQL,(IDispatch*)m_pConnection,adOpenDynamic,adLockOptimistic,adCmdText); 
		//adOpenDynamic：动态 adLockOptimistic乐观封锁法 adCmdText：文本查询语句

		while(!m_pRecordset->adoEOF)//遍历所有记录
		{ 
			//取纪录字段值方式之一
			_variant_t TheValue; //VARIANT数据类型
			TheValue = m_pRecordset->GetCollect("BIG_NAME");//得到字段BIG_NAME的值
			if(TheValue.vt!=VT_NULL)
				m_List.AddString((char*)_bstr_t(TheValue));
			//将该值加入到列表控件中
	
			//取纪录字段值方式之二
			// _bstr_t TheValue1=m_pRecordset->Fields->GetItem("BIG_NAME")->Value;
			// CString temp=TheValue1.copy();
			// m_List.AddString(temp);

			//数据类型转换
			_variant_t vUsername,vBirthday,vID,vOld;
			TRACE("id:%d,姓名:%s,年龄:%d,生日:%s\r\n",
			vID.lVal,(LPCTSTR)(_bstr_t)vUsername,vOld.lVal,(LPCTSTR)(_bstr_t)vBirthday);


			m_pRecordset->MoveNext();//转到下一条纪录
		}
		m_pRecordset->Close();
		m_pConnection->Close();
	}
	catch (_com_error e)//异常处理
	{
		AfxMessageBox(e.ErrorMessage());
	}
	m_pRecordset->Close(); //注意！！！不要多次关闭！！！！否则会出错
	m_pConnection->Close();
	m_pRecordset = NULL;
	m_pConnection = NULL; 
}

　　程序中通过_variant_t和_bstr_t转换COM对象和C＋＋类型的数据, _variant_t类封装了OLE自治VARIANT数据类型。在C++中使用_variant_t类要比直接使用VARIANT数据类型容易得多。

　　好，编译后该程序就能运行了，但记住运行前要创建一个叫ADOTest的ODBC数据源。该程序将把表middle中的BIG_NAME字段值显示在列表控件中。

　4．执行SQL命令并取得结果记录集

为了取得结果记录集，我们定义一个指向Recordset对象的指针:_RecordsetPtr m_pRecordset;
并为其创建Recordset对象的实例: m_pRecordset.CreateInstance("ADODB.Recordset");
SQL命令的执行可以采用多种形式，下面我们一进行阐述。

(1)利用Connection对象的Execute方法执行SQL命令
Execute方法的原型如下所示:

     _RecordsetPtr Connection15::Execute ( _bstr_t CommandText, VARIANT * RecordsAffected, long Options ) 
     其中CommandText是命令字串，通常是SQL命令。

	参数RecordsAffected是操作完成后所影响的行数, 

	参数Options表示CommandText中内容的类型，Options可以取如下值之一：
	adCmdText:表明CommandText是文本命令
	adCmdTable:表明CommandText是一个表名
	adCmdProc:表明CommandText是一个存储过程
	adCmdUnknown:未知

    Execute执行完后返回一个指向记录集的指针，下面我们给出具体代码并作说明。 
    _variant_t RecordsAffected;
    ///执行SQL命令：CREATE TABLE创建表格users,users包含四个字段:整形ID,字符串username,整形old,日期型birthday
    m_pConnection->Execute("CREATE TABLE users(ID INTEGER,username TEXT,old INTEGER,birthday DATETIME)",
			&RecordsAffected,
			adCmdText);
    ///往表格里面添加记录
    m_pConnection->Execute("INSERT INTO users(ID,username,old,birthday) VALUES (1, ''''Washington'''',25,''''1970/1/1'''')",&RecordsAffected,adCmdText);
    ///将所有记录old字段的值加一
    m_pConnection->Execute("UPDATE users SET old = old+1",&RecordsAffected,adCmdText);
    ///执行SQL统计命令得到包含记录条数的记录集
    m_pRecordset =  m_pConnection->Execute("SELECT COUNT(*) FROM users",&RecordsAffected,adCmdText);
    _variant_t vIndex = (long)0;
    _variant_t vCount = m_pRecordset->GetCollect(vIndex);///取得第一个字段的值放入vCount变量
    上两句可以写成— _variant_t vCount = m_pRecordset->GetCollect((_variant_t)((long)0));
    m_pRecordset->Close();///关闭记录集
    CString message;
    message.Format("共有%d条记录",vCount.lVal);
    AfxMessageBox(message);///显示当前记录条数

(2)利用Command对象来执行SQL命令

_CommandPtr m_pCommand;
m_pCommand.CreateInstance("ADODB.Command");
_variant_t vNULL;
vNULL.vt = VT_ERROR;
vNULL.scode = DISP_E_PARAMNOTFOUND;///定义为无参数
m_pCommand->ActiveConnection = m_pConnection;///非常关键的一句，将建立的连接赋值给它
m_pCommand->CommandText = "SELECT * FROM users";///命令字串
m_pRecordset = m_pCommand->Execute(&vNULL,&vNULL,adCmdText);///执行命令，取得记录集

在这段代码中我们只是用Command对象来执行了SELECT查询语句，Command对象在进行存储过程的调用中能真正体现它的作用。下次我们将详细介绍。

(3)直接用Recordset对象进行查询取得记录集
实例——

void CGmsaDlg::OnDBSelect() 
{
    // TODO: Add your control notification handler code here
     _RecordsetPtr Rs1;  //定义Recordset对象
    _bstr_t Connect("DSN=GMS;UID=sa;PWD=;");//定义连接字符串
    _bstr_t Source ("SELECT count(*) FROM buaa.mdb010");  //要执行的SQL语句
    ::CoInitialize(NULL);    //初始化Rs1对象
        HRESUL hr = Rs1.CreateInstance( __uuidof( Recordset ) );
       //省略对返回值hr的判断 
     Rs1->Open( Source,
            Connect,
                adOpenForwardOnly,
                    adLockReadOnly,
            -1 ); 
    _variant_t temp=Rs1->GetCollect(_variant_t((long)0));
    CString strTemp=(char* )(_bstr_t)temp;
    MessageBox("OK!"+strTemp);
}

例如 

  m_pRecordset->Open("SELECT * FROM users",
		_variant_t((IDispatch *)m_pConnection,true),
		adOpenStatic,
		adLockOptimistic,
		adCmdText);

Open方法的原型是这样的:
HRESULT Recordset15::Open ( const _variant_t & Source, 
			const _variant_t & ActiveConnection, 
			enum CursorTypeEnum CursorType, 
			enum LockTypeEnum LockType, 
			long Options ) 
其中：
①Source是数据查询字符串
②ActiveConnection是已经建立好的连接（我们需要用Connection对象指针来构造一个_variant_t对象) 
③CursorType光标类型，它可以是以下值之一,请看这个枚举结构:
enum CursorTypeEnum
{
	adOpenUnspecified = -1,///不作特别指定
	adOpenForwardOnly = 0,///前滚静态光标。这种光标只能向前浏览记录集，比如用MoveNext向前滚动,这种方式可以提高浏览速度。但诸如BookMark,RecordCount,AbsolutePosition,AbsolutePage都不能使用
	adOpenKeyset = 1,///采用这种光标的记录集看不到其它用户的新增、删除操作，但对于更新原有记录的操作对你是可见的。
	adOpenDynamic = 2,///动态光标。所有数据库的操作都会立即在各用户记录集上反应出来。
	adOpenStatic = 3///静态光标。它为你的记录集产生一个静态备份，但其它用户的新增、删除、更新操作对你的记录集来说是不可见的。
};
④LockType锁定类型，它可以是以下值之一，请看如下枚举结构：
enum LockTypeEnum
{
	adLockUnspecified = -1,///未指定
	adLockReadOnly = 1,///只读记录集
	adLockPessimistic = 2,悲观锁定方式。数据在更新时锁定其它所有动作，这是最安全的锁定机制
	adLockOptimistic = 3,乐观锁定方式。只有在你调用Update方法时才锁定记录。在此之前仍然可以做数据的更新、插入、删除等动作
	adLockBatchOptimistic = 4，乐观分批更新。编辑时记录不会锁定，更改、插入及删除是在批处理模式下完成。
}; 
⑤Options可以取如下值之一：
	adCmdText:表明CommandText是文本命令
	adCmdTable:表明CommandText是一个表名
	adCmdProc:表明CommandText是一个存储过程
	adCmdUnknown:未知

5. 记录集的遍历、更新
根据我们刚才通过执行SQL命令建立好的users表，它包含四个字段:ID,username,old,birthday
以下的代码实现：打开记录集，遍历所有记录，删除第一条记录，添加三条记录，移动光标到第二条记录，
更改其年龄，保存到数据库。

_variant_t vUsername,vBirthday,vID,vOld;
_RecordsetPtr m_pRecordset;
m_pRecordset.CreateInstance("ADODB.Recordset");
m_pRecordset->Open("SELECT * FROM users",
		_variant_t((IDispatch*)m_pConnection,true),
		adOpenStatic,
		adLockOptimistic,
		adCmdText);
while(!m_pRecordset->adoEOF)
{
    vID = m_pRecordset->GetCollect(_variant_t((long)0));///取得第1列的值,从0开始计数，
    ///你也可以直接给出列的名称，如下一行
    vUsername = m_pRecordset->GetCollect("username");///取得username字段的值
    vOld = m_pRecordset->GetCollect("old");
    vBirthday = m_pRecordset->GetCollect("birthday");
    ///在DEBUG方式下的OUTPUT窗口输出记录集中的记录
    if(vID.vt != VT_NULL && vUsername.vt != VT_NULL && vOld.vt != VT_NULL && vBirthday.vt != VT_NULL)
        TRACE("id:%d,姓名:%s,年龄:%d,生日:%s\r\n",
		vID.lVal,
		(LPCTSTR)(_bstr_t)vUsername,
		vOld.lVal,
		(LPCTSTR)(_bstr_t)vBirthday);
    m_pRecordset->MoveNext();///移到下一条记录
}
m_pRecordset->MoveFirst();///移到首条记录
m_pRecordset->Delete(adAffectCurrent);///删除当前记录
///添加三条新记录并赋值
for(int i=0;i<3;i++)
{
    m_pRecordset->AddNew();///添加新记录
    m_pRecordset->PutCollect("ID",_variant_t((long)(i+10)));
    m_pRecordset->PutCollect("username",_variant_t("叶利钦"));
    m_pRecordset->PutCollect("old",_variant_t((long)71));
    m_pRecordset->PutCollect("birthday",_variant_t("1930-3-15"));
}
m_pRecordset->Move(1,_variant_t((long)adBookmarkFirst));///从第一条记录往下移动一条记录,即移动到第二条记录处
m_pRecordset->PutCollect(_variant_t("old"),_variant_t((long)45));///修改其年龄
m_pRecordset->Update();///保存到库中

备注：多次查询可把查询过程做成一个函数ExecuteSQL让m_pRecordset获得连接指针m_pConnection查询结果

void ExecuteSQL(_ConnectionPtr  m_pConnection, _RecordsetPtr  m_pRecordset,CString strSql)
{
    //执行Select 语句
    BSTR bstrSQL = strSql.AllocSysString();           
     try
     {
        m_pRecordset->Open(bstrSQL,(IDispatch*)m_pConnection,adOpenDynamic,adLockOptimistic,adCmdText); 
            //adOpenDynamic：动态  adLockOptimistic乐观封锁法  adCmdText：文本查询语句

     }

     catch(_com_error error)
     {
        CString errorMessage;
        errorMessage.Format("%s",(LPTSTR)error.Description());
        AfxMessageBox(errorMessage);
     }
}        

//出错处理：
3127——没有找到目标表
3092——目标表已经存在
例如：
catch(const _com_error e)
{
     AfxMessageBox(e.Description());
     long errorCode=e.WCode();
     if(3127==errorCode) AfxMessageBox("表不存在");
     if(3092==errorCode) AfxMessageBox("表已经存在");
     return FALSE;
}

爱饭盒 2005-11-09 10:49 发表评论

ADO连接字符串

爱饭盒 — Mon, 24 Oct 2005 08:19:00 GMT

www.connectionstrings.com

SQL Server

ODBC

Standard Security:

"Driver={SQL Server};Server=Aron1;Database=pubs;Uid=sa;Pwd=asdasd;"
Trusted connection:

"Driver={SQL Server};Server=Aron1;Database=pubs;Trusted_Connection=yes;"
Prompt for username and password:

oConn.Properties("Prompt") = adPromptAlways
oConn.Open "Driver={SQL Server};Server=Aron1;DataBase=pubs;"

OLE DB, OleDbConnection (.NET)

Standard Security:

"Provider=sqloledb;Data Source=Aron1;Initial Catalog=pubs;User Id=sa;Password=asdasd;"
Trusted Connection:

"Provider=sqloledb;Data Source=Aron1;Initial Catalog=pubs;Integrated Security=SSPI;"
(use serverName\instanceName as Data Source to use an specifik SQLServer instance, only SQLServer2000)
Prompt for username and password:

oConn.Provider = "sqloledb"
oConn.Properties("Prompt") = adPromptAlways
oConn.Open "Data Source=Aron1;Initial Catalog=pubs;"
Connect via an IP address:

"Provider=sqloledb;Data Source=190.190.200.100,1433;Network Library=DBMSSOCN;Initial Catalog=pubs;User ID=sa;Password=asdasd;"
(DBMSSOCN=TCP/IP instead of Named Pipes, at the end of the Data Source is the port to use (1433 is the default))

SqlConnection (.NET)

Standard Security:

"Data Source=Aron1;Initial Catalog=pubs;User Id=sa;Password=asdasd;"
- or -
"Server=Aron1;Database=pubs;User ID=sa;Password=asdasd;Trusted_Connection=False"
(booth connection strings produces the same result)
Trusted Connection:

"Data Source=Aron1;Initial Catalog=pubs;Integrated Security=SSPI;"
- or -
"Server=Aron1;Database=pubs;Trusted_Connection=True;"
(booth connection strings produces the same result)

(use serverName\instanceName as Data Source to use an specifik SQLServer instance, only SQLServer2000)
Connect via an IP address:

"Data Source=190.190.200.100,1433;Network Library=DBMSSOCN;Initial Catalog=pubs;User ID=sa;Password=asdasd;"
(DBMSSOCN=TCP/IP instead of Named Pipes, at the end of the Data Source is the port to use (1433 is the default))
Declare the SqlConnection:

C#:
using System.Data.SqlClient;
SqlConnection oSQLConn = new SqlConnection();
oSQLConn.ConnectionString="my connectionstring";
oSQLConn.Open();

VB.NET:
Imports System.Data.SqlClient
Dim oSQLConn As SqlConnection = New SqlConnection()
oSQLConn.ConnectionString="my connectionstring"
oSQLConn.Open()

Data Shape

MS Data Shape
"Provider=MSDataShape;Data Provider=SQLOLEDB;Data Source=Aron1;Initial Catalog=pubs;User ID=sa;Password=asdasd;"
Want to learn data shaping? Check out 4GuyfFromRolla's great article about Data Shaping >>

How to define wich network protocol to use

All SqlConnection connectionstring properties

This table shows all connectionstring properties for the ADO.NET SqlConnection object. Most of the properties are also used in ADO. All properties and descriptions is from msdn.

Name	Default	Description
Application Name		The name of the application, or '.Net SqlClient Data Provider' if no application name is provided.
AttachDBFilename -or- extended properties -or- Initial File Name		The name of the primary file, including the full path name, of an attachable database. The database name must be specified with the keyword 'database'.
Connect Timeout -or- Connection Timeout	15	The length of time (in seconds) to wait for a connection to the server before terminating the attempt and generating an error.
Connection Lifetime	0	When a connection is returned to the pool, its creation time is compared with the current time, and the connection is destroyed if that time span (in seconds) exceeds the value specified by connection lifetime. Useful in clustered configurations to force load balancing between a running server and a server just brought on-line.
Connection Reset	'true'	Determines whether the database connection is reset when being removed from the pool. Setting to 'false' avoids making an additional server round-trip when obtaining a connection, but the programmer must be aware that the connection state is not being reset.
Current Language		The SQL Server Language record name.
Data Source -or- Server -or- Address -or- Addr -or- Network Address		The name or network address of the instance of SQL Server to which to connect.
Enlist	'true'	When true, the pooler automatically enlists the connection in the creation thread's current transaction context.
Initial Catalog -or- Database		The name of the database.
Integrated Security -or- Trusted_Connection	'false'	Whether the connection is to be a secure connection or not. Recognized values are 'true', 'false', and 'sspi', which is equivalent to 'true'.
Max Pool Size	100	The maximum number of connections allowed in the pool.
Min Pool Size	0	The minimum number of connections allowed in the pool.
Network Library -or- Net	'dbmssocn'	The network library used to establish a connection to an instance of SQL Server. Supported values include dbnmpntw (Named Pipes), dbmsrpcn (Multiprotocol), dbmsadsn (Apple Talk), dbmsgnet (VIA), dbmsipcn (Shared Memory) and dbmsspxn (IPX/SPX), and dbmssocn (TCP/IP). The corresponding network DLL must be installed on the system to which you connect. If you do not specify a network and you use a local server (for example, "." or "(local)"), shared memory is used.
Packet Size	8192	Size in bytes of the network packets used to communicate with an instance of SQL Server.
Password -or- Pwd		The password for the SQL Server account logging on.
Persist Security Info	'false'	When set to 'false', security-sensitive information, such as the password, is not returned as part of the connection if the connection is open or has ever been in an open state. Resetting the connection string resets all connection string values including the password.
Pooling	'true'	When true, the SQLConnection object is drawn from the appropriate pool, or if necessary, is created and added to the appropriate pool.
User ID		The SQL Server login account.
Workstation ID	the local computer name	The name of the workstation connecting to SQL Server.

Note
Use ; to separate each property.
If a name occurs more than once, the value from the last one in the connectionstring will be used.
If you are building your connectionstring in your app using values from user input fields, make sure the user can't change the connectionstring by inserting an additional property with another value within the user value.

Access

ODBC

Standard Security:

"Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\mydatabase.mdb;Uid=Admin;Pwd=;"
Workgroup:

"Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\mydatabase.mdb;SystemDB=C:\mydatabase.mdw;"
Exclusive:

"Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\mydatabase.mdb;Exclusive=1;Uid=admin;Pwd="

OLE DB, OleDbConnection (.NET)

Standard security:

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\somepath\mydb.mdb;User Id=admin;Password=;"
Workgroup (system database):

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\somepath\mydb.mdb;Jet OLEDB:System Database=system.mdw;"
With password:

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\somepath\mydb.mdb;Jet OLEDB:Database Password=MyDbPassword;"

Oracle

ODBC

New version:

"Driver={Microsoft ODBC for Oracle};Server=OracleServer.world;Uid=Username;Pwd=asdasd;"
Old version:

"Driver={Microsoft ODBC Driver for Oracle};ConnectString=OracleServer.world;Uid=myUsername;Pwd=myPassword;"

OLE DB, OleDbConnection (.NET)

Standard security:

"Provider=msdaora;Data Source=MyOracleDB;User Id=UserName;Password=asdasd;"
This one's from Microsoft, the following are from Oracle
Standard Security:

"Provider=OraOLEDB.Oracle;Data Source=MyOracleDB;User Id=Username;Password=asdasd;"
Trusted Connection:

"Provider=OraOLEDB.Oracle;Data Source=MyOracleDB;OSAuthent=1;"

OracleConnection (.NET)

Standard:

"Data Source=Oracle8i;Integrated Security=yes";
This one works only with Oracle 8i release 3 or later
Declare the OracleConnection:

C#:
using System.Data.OracleClient;
OracleConnection oOracleConn = new OracleConnection();
oOracleConn.ConnectionString = "my connectionstring";
oOracleConn.Open();

VB.NET:
Imports System.Data.OracleClient
Dim oOracleConn As OracleConnection = New OracleConnection()
oOracleConn.ConnectionString = "my connectionstring"
oOracleConn.Open()

Core Labs OraDirect (.NET)

Standard:
"User ID=scott; Password=tiger; Host=ora; Pooling=true; Min Pool Size=0;Max Pool Size=100; Connection Lifetime=0"
Read more at Core Lab and the product page.

Data Shape

MS Data Shape:
"Provider=MSDataShape.1;Persist Security Info=False;Data Provider=MSDAORA;Data Source=orac;user id=username;password=mypw"
Want to learn data shaping? Check out 4GuyfFromRolla's great article about Data Shaping >>

MySQL

ODBC

Local database:

"Driver={mySQL};Server=mySrvName;Option=16834;Database=mydatabase;"
Remote database:

"Driver={mySQL};Server=data.domain.com;Port=3306;Option=131072;Stmt=;Database=my-database;Uid=username;Pwd=password;"

OLE DB, OleDbConnection (.NET)

Standard:

"Provider=MySQLProv;Data Source=mydb;User Id=UserName;Password=asdasd;"

MySqlConnection (.NET)

eInfoDesigns.dbProvider:

"Data Source=server;Database=mydb;User ID=username;Password=pwd;Command Logging=false"
This one is used with eInfoDesigns dbProvider, an add-on to .NET
Declare the MySqlConnection:

C#:
using eInfoDesigns.dbProvider.MySqlClient;
MySqlConnection oMySqlConn = new MySqlConnection();
oMySqlConn.ConnectionString = "my connectionstring";
oMySqlConn.Open();

VB.NET:
Imports eInfoDesigns.dbProvider.MySqlClient
Dim oMySqlConn As MySqlConnection = New MySqlConnection()
oMySqlConn.ConnectionString = "my connectionstring"
oMySqlConn.Open()

SevenObjects MySqlClient (.NET)

Standard:

"Host=server; UserName=myusername; Password=mypassword;Database=mydb;"
This is a freeware ADO.Net data provider from SevenObjects

Core Labs MySQLDirect (.NET)

Standard:

"User ID=root; Password=pwd; Host=localhost; Port=3306; Database=test;Direct=true; Protocol=TCP; Compress=false; Pooling=true; Min Pool Size=0;Max Pool Size=100; Connection Lifetime=0"
Read more at Core Lab and the product page.

Interbase

ODBC, Easysoft

Local computer:

"Driver={Easysoft IB6 ODBC};Server=localhost;Database=localhost:C:\mydatabase.gdb;Uid=username;Pwd=password"
Remote Computer:

"Driver={Easysoft IB6 ODBC};Server=ComputerName;Database=ComputerName:C:\mydatabase.gdb;Uid=username;Pwd=password"
Read more about this driver: Easysoft ODBC-Interbase driver >>

ODBC, Intersolv

Local computer:

"Driver={INTERSOLV InterBase ODBC Driver (*.gdb)};Server=localhost;Database=localhost:C:\mydatabase.gdb;Uid=username;Pwd=password"
Remote Computer:

"Driver={INTERSOLV InterBase ODBC Driver (*.gdb)};Server=ComputerName;Database=ComputerName:C:\mydatabase.gdb;Uid=username;Pwd=password"
This driver are provided by DataDirect Technologies >> (formerly Intersolv)

OLE DB, SIBPROvider

Standard:

"provider=sibprovider;location=localhost:;data source=c:\databases\gdbs\mygdb.gdb;user id=SYSDBA;password=masterkey"
Specifying character set:

"provider=sibprovider;location=localhost:;data source=c:\databases\gdbs\mygdb.gdb;user id=SYSDBA;password=masterkey;character set=ISO8859_1"
Specifying role:

"provider=sibprovider;location=localhost:;data source=c:\databases\gdbs\mygdb.gdb;user id=SYSDBA;password=masterkey;role=DIGITADORES"
Read more about SIBPROvider >>

Read more about connecting to Interbase in this Borland Developer Network article http://community.borland.com/article/0,1410,27152,00.html

IBM DB2

OLE DB, OleDbConnection (.NET) from ms

TCP/IP:

"Provider=DB2OLEDB;Network Transport Library=TCPIP;Network Address=XXX.XXX.XXX.XXX;Initial Catalog=MyCtlg;Package Collection=MyPkgCol;Default Schema=Schema;User ID=MyUser;Password=MyPW"
APPC:

"Provider=DB2OLEDB;APPC Local LU Alias=MyAlias;APPC Remote LU Alias=MyRemote;Initial Catalog=MyCtlg;Package Collection=MyPkgCol;Default Schema=Schema;User ID=MyUser;Password=MyPW"

Sybase

ODBC

Standard Sybase System 12 (or 12.5) Enterprise Open Client:

"Driver={SYBASE ASE ODBC Driver};Srvr=Aron1;Uid=username;Pwd=password"
Standard Sybase System 11:

"Driver={SYBASE SYSTEM 11};Srvr=Aron1;Uid=username;Pwd=password;"
Do you know a userguide for Sybase System 11, 12, 12.5? E-mail the URL to connectionstrings.com now!! >>
Intersolv 3.10:

"Driver={INTERSOLV 3.10 32-BIT Sybase};Srvr=Aron1;Uid=username;Pwd=password;"
Sybase SQL Anywhere (former Watcom SQL ODBC driver):

"ODBC; Driver=Sybase SQL Anywhere 5.0; DefaultDir=c:\dbfolder\;Dbf=c:\mydatabase.db;Uid=username;Pwd=password;Dsn="""""
Note! The two double quota following the DSN parameter at the end are escaped quotas (VB syntax), you may have to change this to your language specific escape syntax. The empty DSN parameter is indeed critical as not including it will result in error 7778.

Read more in the Sybase SQL Anywhere User Guide >>

OLE DB

Adaptive Server Anywhere (ASA):

"Provider=ASAProv;Data source=myASA"
Read more in the ASA User Guide >>
Adaptive Server Enterprise (ASE) with Data Source .IDS file:

"Provider=Sybase ASE OLE DB Provider; Data source=myASE"
Note that you must create a Data Source .IDS file using the Sybase Data Administrator. These .IDS files resemble ODBC DSNs.
Adaptive Server Enterprise (ASE):

"Provider=Sybase.ASEOLEDBProvider;Srvr=myASEserver,5000;Catalog=myDBname;User Id=username;Password=password"
- some reports on problem using the above one, try the following as an alternative -

"Provider=Sybase.ASEOLEDBProvider;Server Name=myASEserver,5000;Initial Catalog=myDBname;User Id=username;Password=password"
This one works only from Open Client 12.5 where the server port number feature works,燼llowing fully qualified connection strings to be used without defining燼ny .IDS Data Source files.

Informix

ODBC

Informix 3.30:

"Dsn='';Driver={INFORMIX 3.30 32 BIT};Host=hostname;Server=myserver;Service=service-name;Protocol=olsoctcp;Database=mydb;UID=username;PWD=myPwd
Informix-CLI 2.5:

"Driver={Informix-CLI 2.5 (32 Bit)};Server=myserver;Database=mydb;Uid=username;Pwd=myPwd"

OLE DB

IBM Informix OLE DB Provider:

"Provider=Ifxoledbc.2;password=myPw;User ID=myUser;Data Source=dbName@serverName;Persist Security Info=true"

Mimer SQL

ODBC

Standard Security:

"Driver={MIMER};Database=mydb;Uid=myuser;Pwd=mypw;"
Prompt for username and password:

"Driver={MIMER};Database=mydb;"

PostgreSQL

Core Labs PostgreSQLDirect (.NET)

Standard:

"User ID=root; Password=pwd; Host=localhost; Port=5432; Database=testdb;Pooling=true; Min Pool Size=0; Max Pool Size=100; Connection Lifetime=0"
Read more at Core Lab and the product page.

DSN

ODBC

DSN:

"DSN=myDsn;Uid=username;Pwd=;"
File DSN:

"FILEDSN=c:\myData.dsn;Uid=username;Pwd=;"

Excel

ODBC

Standard:

"Driver={Microsoft Excel Driver (*.xls)};DriverId=790;Dbq=C:\MyExcel.xls;DefaultDir=c:\mypath;"

OLE DB

Standard:

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\MyExcel.xls;Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"""
"HDR=Yes;" indicates that the first row contains columnnames, not data

"IMEX=1;" tells the driver to always read "intermixed" data columns as text

TIP! SQL syntax: "SELECT * FROM [sheet1$]" - i.e. worksheet name followed by a "$" and wrapped in "[" "]" brackets.

Text

ODBC

Standard:

"Driver={Microsoft Text Driver (*.txt; *.csv)};Dbq=c:\txtFilesFolder\;Extensions=asc,csv,tab,txt;"

OLE DB

Standard:

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\txtFilesFolder\;Extended Properties=""text;HDR=Yes;FMT=Delimited"""
"HDR=Yes;" indicates that the first row contains columnnames, not data

DBF / FoxPro

ODBC

standard:

"Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=c:\mydbpath;"

OLE DB, OleDbConnection (.NET)

standard:

"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\folder;Extended Properties=dBASE IV;User ID=Admin;Password="

Visual FoxPro

OLE DB, OleDbConnection (.NET)

Database container (.DBC):

"Provider=vfpoledb.1;Data Source=C:\MyDbFolder\MyDbContainer.dbc;Password=MyPassWord;Collating Sequence=machine"
Free table directory:

"Provider=vfpoledb.1;Data Source=C:\MyDataDirectory\;Password=MyPassWord;Collating Sequence=general"

Read more (Microsoft msdn) >>

ODBC

Database container (.DBC):

"Driver={Microsoft Visual FoxPro Driver};SourceType=DBC;SourceDB=c:\myvfpdb.dbc;Exclusive=No;Collate=Machine;"
Free Table directory:

"Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=c:\myvfpdbfolder;Exclusive=No;Collate=Machine;"
"Collate=Machine" is the default setting, for other settings check the list of supported collating sequences >>

Microsoft Visual Foxpro site: http://msdn.microsoft.com/vfoxpro

Pervasive

ODBC

Standard:

"Driver={Pervasive ODBC Client Interface};ServerName=srvname;dbq=@dbname"
Pervasive ODBC info >>

OLE DB

Standard:

"Provider=PervasiveOLEDB;Data Source=C:\path"
Pervasive OLE DB info >>

UDL

UDL:

"File Name=c:\myDataLink.udl;"

爱饭盒 2005-10-24 16:19 发表评论

Name	Network library
dbnmpntw	Win32 Named Pipes
dbmssocn	Win32 Winsock TCP/IP
dbmsspxn	Win32 SPX/IPX
dbmsvinn	Win32 Banyan Vines
dbmsrpcn	Win32 Multi-Protocol (Windows RPC)

C++博客-时间的痕迹-文章分类-ADO编程技术

_variant_t 中VT_DECIMAL 问题

调用存储过程

Visual C++ ADO数据库编程入门（下）

Visual C++ ADO数据库编程入门（上）

_variant_t 到 CString 转换

ado 出错处理

用ADO操作数据库的方法步骤

ADO数据库编程入门

VC数据库编程中的打印控制

ADO开发中如何得到表格字段名

用udl建立到sybase的连接

Connection大全

利用UDL文件来建立ADO连接

在Visual C++中用ADO进行数据库编程

ADO连接字符串

_variant_t 到　CString 转换