久久人人爽人人爽人人AV东京热,欧美一级久久久久久久大,久久精品一区二区三区不卡

调用存储�q�程

Mon, 10 Jul 2006 11:34:00 GMT

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

爱饭�?/a> 2006-07-10 19:34 发表评论

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

Fri, 30 Dec 2005 10:32:00 GMT

10、邦定数�?BR>
　　定义一个绑定类�Q�将其成员变量绑定到一个指定的记录集，以方便于讉K��记录集的字段倹{�?BR>
　　(1). 从CADORecordBinding�z��Z��个类�Q?BR>

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;
};

　　其中��要�l�定的字�D�与变量名用BEGIN_ADO_BINDING宏关联�v来。每个字�D�对应于两个变量�Q�一个存攑֭��D늚��|��另一个存攑֭��D늚�状态。字�D는��?开始的序号表示�Q�如1�Q?�Q?�{�等�?BR>
　　特别要注意的是：如果要绑定的字段是字�W�串�c�d��Q�则对应的字�W�数�l�的元素个数一定要比字�D�长度大2�Q�比如m_szau_fname[22]�Q�其�l�定的字�D�au_fname的长度实际是20�Q�，不这��L��定就会失败。我分析多出�?可能是�ؓ了存攑֭��W�串�l�尾的空字符null和BSTR字符串开头的一个字�Q�表�C�BSTR的长度）。这个问题对于初学者来说可能是一个意想不到的问题�?BR>
　　CADORecordBinding�cȝ��定义在icrsint.h文�g里，内容是：

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

BEGIN_ADO_BINDING宏的定义也在icrsint.h文�g里，内容是：
#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文�g里：
#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文�g里：
#define END_ADO_BINDING() {0, adEmpty, 0, 0, 0, 0, 0, 0, 0, FALSE}};\
return rgADOBindingEntries;}

　　　(2). �l�定

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

　　�z��出的�c�d��通过IADORecordBinding接口才能�l�定�Q�调用它的BindToRecordset�Ҏ��p��了�?BR>
　　(3). rs中的变量��x��当前记录字段的�?BR>

//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�Q�就可以讉K��。如果修改了字段�Q�不要忘了先调用picRs的Update�Q�注意不是Recordset的Update�Q�，然后才关闭，也不要忘了释放picRs�Q�即picRs->Release();�Q��?BR>
　　(4). 此时�q�可以用IADORecordBinding接口��d��新纪�?BR>

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

　　11. 讉K��长数�?BR>
　　在Microsoft SQL中的长数据包括text、image�{�这样长�c�d��的数据，作�ؓ二进制字节来对待�?BR>
　　可以用Field对象的GetChunk和AppendChunk�Ҏ��来访问。每�ơ可以读出或写入全部数据的一部分�Q�它会记住上�ơ访问的位置。但是如果中间访问了别的字段后，��又得从头来了�?BR>
　　��L��下面的例子：

//写入一张照片到数据库：
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();

//从数据库��M��张照片：
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也是很重要的�Q�因为在ADO�~�程中经常要用。它的主要目的是用于automation中的数组型参数的传递。因为在�|�络环境中，数组是不能直接传递的�Q�而必��d��其包装成SafeArray。实质上SafeArray��是��通常的数�l�增加一个描�q�符�Q�说明其�l�数、长度、边界、元素类型等信息。SafeArray也�ƈ不单独��用，而是��其再包装到VARIANT�c�d��的变量中�Q�然后才作�ؓ参数传送出厅R��在VARIANT的vt成员的值如果包含VT_ARRAY�?..,那么它所��装的就是一个SafeArray�Q�它的parray成员��x��指向SafeArray的指针。SafeArray中元素的�c�d��可以是VARIANT能封装的��M��c�d��Q�包括VARIANT�c�d��本��n�?

　　使用SafeArray的具体步骤：

　　�Ҏ��一�Q?BR>
　　包装一个SafeArray�Q?BR>
　　(1). 定义变量�Q�如�Q?BR>

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

　　(2). 创徏SafeArray描述�W�：

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�Q?BR>

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

　　一个一个地放，挺麻烦的�?BR>
　　(4). ��装到VARIANT内：

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

　　�q�样��可以将varChunk作�ؓ参数传送出��M��?BR>
　　��d��SafeArray中的数据的步骤：

　　(1). 用SafeArrayGetElement一个一个地�?BR>

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

　　��p��到缓冲区buf里了�?BR>
　　�Ҏ��二：

　　使用SafeArrayAccessData直接��d��SafeArray的缓冲区�Q?BR>
　　(1). �ȝ��冲区�Q?BR>

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

　　(2). 写缓冲区�Q?BR>

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;

　　�q�种�Ҏ��d��SafeArray都可以，它直接操�U�SafeArray的数据缓冲区�Q�比用SafeArrayGetElement和SafeArrayPutElement速度快。特别适合于读取数据。但用完之后不要忘了调用::SafeArrayUnaccessData(psa)�Q�否则会出错的�?BR>
　　13. 使用书签( bookmark )

　　书签可以唯一标识记录集中的一个记录，用于快速地��当前记录移回到已访问过的记录，以及�q�行�q��o�{�等。Provider会自动�ؓ记录集中的每一条记录��生一个书�{�，我们只需要��用它��p��了。我们不能试图显�C�、修�Ҏ��比较书签。ADO用记录集的Bookmark属性表�C�当前记录的书签�?BR>
　　用法步骤�Q?BR>
　　(1). 建立一个VARIANT�c�d��的变�?BR>
_variant_t VarBookmark;

　　(2). ��当前记录的书签值存入该变量

　　也就是记录集的Bookmark属性的当前倹{�?BR>
VarBookmark = rst->Bookmark;

　　(3). �q�回到先前的记录

　　��保存的书签��D��|�到记录集的书签属性中�Q?BR>

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

　　讄��完后�Q�当前记录即会移动到该书�{�指向的记录�?BR>

　　14、设�|�过滤条�?BR>
　　Recordset对象的Filter属性表�C�Z��当前的过滤条件。它的值可以是以AND或OR�q�接��h��的条件表辑ּ��Q�不含WHERE关键字）、由书签�l�成的数�l�或ADO提供的FilterGroupEnum枚�D倹{��ؓFilter属性设�|�新值后Recordset的当前记录指针会自动�U�d��到满��滤条件的�W�一个记录。例如：

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

　　在��用条件表辑ּ�时应注意下列问题�Q?BR>
　　�Q?�Q�、可以用圆括��L��成复杂的表达�?BR>
　　例如�Q?BR>

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

　　但是微��Y不允许在括号内用OR�Q�然后在括号外用AND�Q�例如：

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

　　必须修改为：

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

　　�Q?�Q�、表辑ּ�中的比较�q�算�W�可以是LIKE

　　LIKE后被比较的是一个含有通配�W?的字�W�串�Q�星可��C��q�个��L��的字�W��?BR>
　　字符串的首部和尾部可以同时带星号*

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

　　也可以只是尾部带星号�Q?BR>

rst->Filter = _bstr_t ("姓名 LIKE '�?' ");

　　Filter属性值的�c�d��是Variant�Q�如果过滤条件是�׃��{��成的数组�Q�则需��该数组转换为SafeArray�Q�然后再��装��C��个VARIANT或_variant_t型的变量中，再赋�l�Filter属性�?BR>
　　15、烦引与排序

　　�Q?�Q�、徏立烦�?BR>
　　当以某个字段为关键字用Find�Ҏ��查找�Ӟ��Z��加快速度可以以该字段为关键字在记录集内部临时建立索引。只要将该字�D늚�Optimize属性设�|��ؓtrue卛_��Q�例如：

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

　　说明�Q�Optimize属性是由Provider提供的属性（在ADO中称为动态属性）�Q�ADO本��n没有此属性�?BR>
　　�Q?�Q�、排�?BR>
　　要排序也很简单，只要把要排序的关键字列表讄��到Recordset对象的Sort属性里卛_��Q�例如：

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

　　关键字（卛_��D�名�Q�之间用逗号隔开�Q�如果要以某关键字降序排序，则应在该关键字后加一�I�格�Q�再加DESC�Q�如上例�Q�。升序时ASC加不加无所谓。本操作是利用烦引进行的�Q��ƈ未进行物理排序，所以效率较高�?BR>但要注意�Q�在打开记录集之前必��d��记录集的CursorLocation属性设�|��ؓadUseClient�Q�如上例所�C�。Sort属性值在需要时随时可以修改�?BR>
　　16、事务处�?BR>
　　ADO中的事务处理也很��单，只需分别在适当的位�|�调用Connection对象的三个方法即可，�q�三个方法是�Q?BR>
　　�Q?�Q�、在事务开始时调用

pCnn->BeginTrans();

　　�Q?�Q�、在事务�l�束�q�成功时调用

pCnn->CommitTrans ();

　　�Q?�Q�、在事务�l�束�q�失败时调用

pCnn->RollbackTrans ();

　　在��用事务处理时�Q�应��量减小事务的范��_��卛_��从事务开始到�l�束�Q�提交或回滚�Q�之间的旉��间隔�Q�以便提高系�l�效率。需要时也可在调用BeginTrans()�Ҏ��之前�Q�先讄��Connection对象的IsolationLevel属性��|��详细内容参见MSDN中有关ADO的技术资料�?BR>
　　三、��用ADO�~�程常见问题解答

　　以下均是针对MS SQL 7.0�~�程时所遇问题进行讨论�?BR>
　　1、连接失败可能原�?BR>
　　Enterprise Managemer内，打开��服务器的属性对话框�Q�在Security选项卡中�Q�有一个选项Authentication�?BR>
　　如果该选项是Windows NT only�Q�则你的�E�序所用的�q�接字符串就一定要包含Trusted_Connection参数�Q��ƈ且其值必��Mؓyes�Q�如�Q?BR>

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

　　如果不按上述操作�Q�程序运行时�q�接必然��p�|�?BR>
　　如果Authentication选项是SQL Server and Windows NT�Q�则你的�E�序所用的�q�接字符串可以不包含Trusted_Connection参数�Q�如�Q?BR>

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

　　因�ؓADO�l�该参数取的默认值就是no�Q�所以可以省略。我认�ؓ�q�是取默认值比较安全一些�?BR>
　　2、改变当前数据库的方�?BR>
　　使用Tansct-SQL中的USE语句卛_��?BR>
　　3、如何判断一个数据库是否存在

　　(1)、可打开master数据库中一个叫做SCHEMATA的视图，其内容列��Z��该服务器上所有的数据库名�U��?BR>
　　(2) 、更��便的�Ҏ��是��用USE语句�Q�成功了��存在；不成功，��׃��存在。例如：

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、判断一个表是否存在

　　�Q?�Q�、同样判断一个表是否存在�Q�也可以用是否成功地打开它来判断�Q�十分方便，例如�Q?BR>

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)、要不然可以采用�ȝ��一点的办法�Q�就是在MS-SQL服务器上的每个数据库中都有一个名为sysobjects的表�Q�查看此表的内容即知指定的表是否在该数据库中�?BR>
　　(3)、同��P��每个数据库中都有一个名为TABLES的视�?View)�Q�查看此视图的内容即知指定的表是否在该数据库中�?BR>
　　5、类型�{换问�?BR>
　　�Q?�Q�、类型VARIANT_BOOL

　　�c�d��VARIANT_BOOL�{��h于short�c�d��。The VARIANT_BOOL is equivalent to short. see it's definition below:
typdef short VARIANT_BOOL

　　�Q?�Q�、_com_ptr_t�cȝ��c�d��转换

　　_ConnectionPtr可以自动转换成IDspatch*�c�d��Q�这是因为_ConnectionPtr实际上是_com_ptr_t�cȝ��一个实例，而这个类有此�c�d��转换函数�?BR>
　　同理�Q�_RecordsetPtr和_CommandPtr也都可以�q�样转换�?BR>
　　�Q?�Q�、_bstr_t和_variant_t�c?BR>
　　在ADO�~�程�Ӟ��_bstr_t和_variant_t�q�两个类很有用，省去了许多BSTR和VARIANT�c�d��转换的麻烦�?BR>
　　6、打开记录集时的问�?BR>
　　在打开记录集时�Q�在调用Recordset的Open�Ҏ��Ӟ��其最后一个参数里一定不能包含adAsyncExecute�Q�否则将因�ؓ是异步操作，在读取数据时无法��d��数据�?BR>
　　7、异常处理问�?BR>
　　�Ҏ��有调用ADO的语句一定要用try和catch语句捕捉异常�Q�否则在发生异常�Ӟ��E�序会异帔R��出�?BR>
　　8、��用SafeArray问题

　　在初学��用中�Q�我��N��C��个伤脑筋的问题，一定要注意�Q?BR>
　　在定义了SAFEARRAY的指针后�Q�如果打��重复��用多�ơ，则在中间可以调用::SafeArrayDestroyData释放数据�Q�但决不能调�?:SafeArrayDestroyDescriptor�Q�否则必然出错，即��调用SafeArrayCreate也不行。例如：

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

　　我分析在定义psa指针�Ӟ��一个SAFEARRAY的实例（也就是SAFEARRAY描述�W�）也同时被自动建立了。但是只要一调用::SafeArrayDestroyDescriptor�Q�描�q�符��p��销毁了�?BR>
　　所以我认�ؓ::SafeArrayDestroyDescriptor可以�Ҏ��׃��调用�Q�即使调用也必须在最后调用�?BR>
　　9、重复��用命令对象问�?BR>
　　一个命令对象如果要重复使用多次�Q�尤其是带参数的命��o�Q�，则在�W�一�ơ执行之前，应将它的Prepared属性设�|��ؓTRUE。这样会使第一�ơ执行减慢，但却可以使以后的执行全部加快�?BR>
　　10、绑定字�W�串型字�D�问�?BR>
　　如果要绑定的字段是字�W�串�c�d��Q�则对应的字�W�数�l�的元素个数一定要比字�D�长度大2�Q�比如m_szau_fname[22]�Q�其�l�定的字�D�au_fname的长度实际是20�Q�，不这��L��定就会失败�?BR>
　　11、��用AppendChunk的问�?BR>
　　当用AddNew�Ҏ��刚刚向记录集内添加一个新记录之后�Q�不能首先向一个长数据字段�Q�image�c�d��Q�写入数据，必须先向其他字段写入�q�数据之后，才能调用AppendChunk写该字段�Q�否则出错。也��是��_��AppendChunk不能紧接在AddNew之后。另外，写入其他字段后还必须紧接着调用AppendChunk�Q�而不能调用记录集的Update�Ҏ��后，才调用AppendChunk�Q�否则调用AppendChunk时也会出错。换句话��_��是必须AppendChunk在前�Q�Update在后。因而这个时候就不能使用带参数的AddNew了，因�ؓ带参数的AddNew会自动调用记录集的Update�Q�所以AppendChunk��p��到Update的后面了�Q�就只有出错了！因此�Q�这时应该用不带参数的AddNew�?BR>
　　我推��这可能是MS SQL 7.0的问题，在MS SQL 2000中则不存在这些问题，但是AppendChunk仍然不能在Update之后�?BR>
　　四、小�l?/B>

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

爱饭�?/a> 2005-12-30 18:32 发表评论

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

Fri, 30 Dec 2005 10:31:00 GMT

　　ADO 是目前在Windows环境中比较流行的客户端数据库�~�程技术。ADO是徏立在OLE DB底层技术之上的高��~�程接口�Q�因而它兼具有强大的数据处理功能�Q�处理各�U�不同类型的数据源、分布式的数据处理等�{�）和极其简单、易用的�~�程接口�Q�因而得��C��q�泛的应用。而且按微软公司的意图�Q�OLE DB和ADO��逐步取代 ODBC和DAO。现在介�l�ADO各种应用的文章和书籍有很多，本文着重站在初学者的角度�Q�简要探讨一下在VC++中��用ADO�~�程时的一些问题。我们希望阅��L��文之前，您对ADO技术的基本原理有一些了解�?BR>
　　一、在VC++中��用ADO�~�程

　　ADO实际上就是由一�l�Automation对象构成的组�Ӟ��因此可以象��用其它�Q何Automation对象一样��用ADO。ADO中最重要的对象有三个�Q�Connection、Command和Recordset�Q�它们分别表�C��接对象、命令对象和记录集对象。如果您熟悉使用MFC中的ODBC�c�（CDatabase、CRecordset)�~�程�Q�那么学习ADO�~�程��十分容易了�?BR>
　　使用ADO�~�程时可以采用以下三�U�方法之一�Q?BR>
　　1、��用预处理指��o#import

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

　　但要注意不能攑֜�stdAfx.h文�g的开��_��而应该放在所有include指��o的后面。否则在�~�译时会出错�?BR>�E�序在编译过�E�中�Q�VC++会读出msado15.dll中的�c�d��库信息，自动产生两个该类型库的头文�g和实现文件msado15.tlh和msado15.tli�Q�在您的Debug或Release目录下）。在�q�两个文仉��定义了ADO的所有对象和�Ҏ��Q�以及一些枚丑֞�的常量等。我们的�E�序只要直接调用�q�些�Ҏ��p��了，与��用MFC中的COleDispatchDriver�c�调用Automation对象十分�c�M��?BR>
　　2、��用MFC中的CIDispatchDriver

　　��是通过��d��msado15.dll中的�c�d��库信息，建立一个COleDispatchDriver�cȝ��z��c�，然后通过它调用ADO对象�?BR>
　　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))
{...}

　　以上三种�Ҏ��Q�第一和第二种�c�M��Q�可能第一�U�好用一些，�W�三�U�编�E�可能最�ȝ��。但可能�W�三�U�方法也是效率最高的�Q�程序的��寸也最��，�q�且对ADO的控制能力也最强�?BR>
　　据微软资料介�l�，�W�一�U�方法不支持�Ҏ��调用中的默认参数�Q�当然第二种�Ҏ��也是�q�样�Q�但�W�三�U�就不是�q�样了。采用第三种�Ҏ��的水�q�也最高。当你需要绕�q�ADO而直接调用OLE DB底层的方法时�Q�就一定要使用�W�三�U�方法了�?BR>
　　ADO�~�程的关键，��是熟练地运用ADO提供的各�U�对�?object)、方�?method)、属�?property)和容器（collection�Q�。另外，如果是在MS SQL或Oracle�{�大型数据库上编�E�，�q�要能熟�l��用SQL语言�?BR>

　　二、��?import�Ҏ��的编�E�步�?/B>

　　�q�里��您��?import的方法，因�ؓ它易学、易用，代码也比较简�z��?BR>
　　1�?��d��#import指��o

　　打开stdafx.h文�g�Q�将下列内容��d��到所有的include指��o之后�Q?BR>

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

　　其中icrsint.h文�g包含了VC++扩展的一些预处理指��o、宏�{�的定义�Q�用于COM�~�程时��用�?BR>
　　2、定义_ConnectionPtr型变量，�q�徏立数据库�q�接

　　建立了与数据库服务器的连接后�Q�才能进行其他有��x��据库的访问和操作。ADO使用Connection对象来徏立与数据库服务器的连接，所以它相当于MFC中的CDatabase�c�R��和CDatabase�c�M��P��调用Connection对象的Open�Ҏ��卛_��建立与服务器的连接�?BR>
　　数据�c�d�� _ConnectionPtr实际上就是由�c�L��板_com_ptr_t而得到的一个具体的实例�c�，其定义可以到msado15.tlh、comdef.h 和comip.h�q�三个文件中扑ֈ�。在msado15.tlh中有�Q?BR>

_COM_SMARTPTR_TYPEDEF(_Collection, __uuidof(_Collection));

　　�l�宏扩展后就得到了_ConnectionPtr�c�R��_ConnectionPtr�c�d��装了Connection对象的Idispatch接口指针�Q�及一些必要的操作。我们就是通过�q�个指针来操�U�Connection对象。类似地�Q�后面用到的_CommandPtr和_RecordsetPtr�c�d��也是�q�样得到的，它们分别表示命��o对象指针和记录集对象的指针�?BR>
　　�Q?�Q�、连接到MS SQL Server

　　注意�q�接字符串的格式�Q�提供正��的�q�接字符串是成功�q�接到数据库服务器的�W�一步，有关�q�接字符串的详细信息参见微��YMSDN Library光盘�?BR>
　　本例�q�接字符串中的server_name�Q�database_name�Q�user_name和password在编�E�时都应该替换成实际的内宏V�?BR>

_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�Ҏ��中的�q�接字符串参数必��L��BSTR或_bstr_t�c�d��。另外，本例是直接通过OLE DB Provider建立�q�接�Q�所以无需建立数据源�?BR>
　　�Q?�Q�、通过ODBC Driver�q�接到Database Server�q�接字符串格式与直接用ODBC�~�程时的差不多：

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

　　此时与ODBC�~�程一��P��必须先徏立数据源�?BR>
　　3、定义_RecordsetPtr型变量，�q�打开数据�?BR>
　　定义_RecordsetPtr型变量，然后通过它调用Recordset对象的Open�Ҏ��Q�即可打开一个数据集。所以Recordset对象与MFC中的CRecordset�cȝ��|��它也有当前记录、当前记录指针的概念。如�Q?BR>

_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�Ҏ��非常重要�Q�它的第一个参数可以是一个SQL语句、一个表的名字或一个命令对象等�{�；�W�二个参数就是前面徏立的�q�接对象的指针。此外，用Connection和Command对象的Execute�Ҏ��也能得到记录集，但是只读的�?BR>

　　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都是字段名，��d��的字�D�值分别保存在sName和cAge变量内。例中的Fields是Recordset对象的容器，GetItem�Ҏ��q�回的是Field对象�Q�而Value则是Field对象的一个属性（卌��字段的��|��。通过此例�Q�应掌握操纵对象属性的�Ҏ��。例如，要获得Field 对象的Value属性的值可以直接用属性名Value来引用它�Q�如上例�Q�，但也可以调用Get�Ҏ��Q�例如：

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

　　从此例还可以看到�Q�判断是否到达记录集的末��，使用记录集的adoEOF属性，其��D��为真卛_��了结��，反之则未到。判断是否到达记录集开��_��则可用BOF属性�?BR>
　　另外�Q�读取数据还有一个方法，��是定义一个绑定的�c�，然后通过�l�定的变量得到字�D��|��详见后面的介�l�）�?BR>
　　5、修�Ҏ��?BR>
　　�Ҏ��一�Q?BR>

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属性的��|��x��变了字段的倹{�?BR>
　　�Ҏ��二：

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

　　�Ҏ��三：��是用定义绑定类的方法（详见后面的介�l�）�?BR>
　　6、添加记�?BR>
　　新记录添加成功后�Q�即自动成�ؓ当前记录。AddNew�Ҏ��有两�U��Ş式，一个含有参敎ͼ�而另一个则不带参数�?BR>
　　�Ҏ��一�Q�不带参敎ͼ��Q?BR>

// 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);
}

　　�q�种�Ҏ��弄完了还要调用Update()�?BR>
　　�Ҏ��二（带参敎ͼ��Q?BR>

_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);

　　�q�种�Ҏ��不需要调用Update�Q�因为添加后�Q�ADO会自动调用它。此�Ҏ��主要是��用SafeArray挺麻烦�?BR>
　　�Ҏ��三：��是用定义绑定类的方法（详见后面的介�l�）�?BR>
　7、删除记�?BR>
　　调用Recordset的Delete�Ҏ��p��了，删除的是当前记录。要了解Delete的其它用法请查阅参考文献�?BR>

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删除她吗�Q?,
"提示",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、��用带参数的命�?BR>
　　Command对象所代表的就是一个Provider能够理解的命令，如SQL语句�{�。��用Command对象的关键就是把表示命��o的语句设�|�到CommandText属性中�Q�然后调用Command对象的Execute�Ҏ��p��了。一般情况下在命令中无需使用参数�Q�但有时使用参数�Q�可以增加其灉|��性和效率�?BR>
　　(1). 建立�q�接、命令对象和记录集对�?BR>
　　本例中表�C�命令的语句��是一个SQL语句�Q�SELECT语句�Q�。SELECT语句中的问号?��׃��表参敎ͼ�如果要多个参敎ͼ��多攑և�个问��P��每个问号代表一个参数�?BR>

_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

　　要注意命令对象必��M��q�接对象兌��h��才能起作用，本例中将命��o对象的ActiveConnection属性设�|��ؓ�q�接对象的指针，即�ؓ此目的：

Cmd1->ActiveConnection = Conn1;

　　(2). 创徏参数对象�Q��ƈ�l�参数赋�?BR>

// 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 );

　　用命令对象的�Ҏ��来创��Z��个参数对象，其中的长度参敎ͼ��W�三个）如果是固定长度的�c�d��Q�就�?1�Q�如果是字符串等可变长度的就填其实际长度。Parameters是命令对象的一个容器，它的Append�Ҏ��是把创建的参数对象�q�加到该容器里。Append�q�去的参数按先后��序与SQL语句中的问号从左臛_��一一对应�?BR>
　　(3). 执行命��o打开记录�?BR>

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

　　但要注意�Q�用Command和Connection对象的Execute�Ҏ��得到的Recordset是只�ȝ��。因为在打开Recordset之前�Q�我们无法设�|�它的LockType属性（光��认��gؓ只读�Q�。而在打开之后讄��LockType不�v作用�?BR>
　　我发现用上述�Ҏ��得到记录集Rs1后，不但Rs1中的记录无法修改�Q�即使直接用SQL语句修改同一表中��M��记录都不行�?BR>
　　要想能修�Ҏ��据，�q�是要用Recordset自己的Open�Ҏ��才行�Q�如�Q?BR>

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

　　Recordset对象的Open�Ҏ��真是太好了，其第一个参数可以是SQL语句、表名字、命令对象指针等�{��?BR>
　　9、响应ADO的通知事�g

　　通知事�g��是当某个特定事件发生时�Q�由Provider通知客户�E�序�Q�换句话��_��是由Provider调用客户�E�序中的一个特定的�Ҏ��Q�即事�g的处理函敎ͼ�。所以�ؓ了响应一个事�Ӟ��最关键的就是要实现事�g的处理函数�?BR>
　　(1). 从ConnectionEventsVt接口�z��Z��个类

　　��Z��响应_Connection的通知事�g�Q�应该从ConnectionEventsVt接口�z��Z��个类�Q?BR>

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_前缀的方法都把它实现�?�Q?BR>

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

　　有些�Ҏ��虽然你�ƈ不需要，但也必须实现它，只需��单地�q�回一个S_OK卛_��。但如果要避免经常被调用�Q�还应在其中��adStatus参数讄��为adStatusUnwantedEvent�Q�则在本�ơ调用后�Q�以后就不会被调用了�?BR>另外�q�必��d��现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). 开始响应通知事�g

// 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)之前��做�q�些事�?BR>
　　(4). 停止响应通知事�g

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;

　　在连接关闭之后做�q��g事�?

爱饭�?/a> 2005-12-30 18:31 发表评论

_variant_t 到　CString 转换

Fri, 30 Dec 2005 08:45:00 GMT
数据�c�d��转换函数
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;

}

爱饭�?/a> 2005-12-30 16:45 发表评论

ado 出错处理

Mon, 26 Dec 2005 12:13:00 GMT
//出错处理�Q?BR>3127——没有找到目标表
3092——目标表已经存在
例如�Q?BR>catch(const _com_error e)
{
     AfxMessageBox(e.Description());
     long errorCode=e.WCode();
     if(3127==errorCode) AfxMessageBox("表不存在");
     if(3092==errorCode) AfxMessageBox("表已�l�存�?);
     return FALSE;
}

爱饭�?/a> 2005-12-26 20:13 发表评论

用ADO操作数据库的�Ҏ��步骤

Mon, 26 Dec 2005 11:37:00 GMT
用ADO操作数据库的�Ҏ��步骤

/***********************ADO接口��?***********************************/
ADO库包含三个基本接�?_ConnectionPtr接口、_CommandPtr接口和_RecordsetPtr接口�?

_ConnectionPtr接口�q�回一个记录集或一个空指针�?BR>通常使用它来创徏一个数据连接或执行一条不�q�回��M��l�果的SQL语句�Q�如一个存储过�E��?BR>使用_ConnectionPtr接口�q�回一个记录集不是一个好的��用方法�?BR>通常同Cdatabase一��P��使用它创��Z��个数据连接，然后使用其它对象执行数据输入输出操作�?BR>
_CommandPtr接口�q�回一个记录集�?BR>它提供了一�U�简单的�Ҏ��来执行返回记录集的存储过�E�和SQL语句�?BR>在��用_CommandPtr接口�Ӟ��你可以利用全局_ConnectionPtr接口�Q�也可以在_CommandPtr接口里直接��用连接串�?BR>如果你只执行一�ơ或几次数据讉K��操作�Q�后者是比较好的选择�?BR>但如果你要频�J�访问数据库�Q��ƈ要返回很多记录集�Q�那么，你应该��用全局_ConnectionPtr接口创徏一个数据连接，
然后使用_CommandPtr接口执行存储�q�程和SQL语句�?BR>

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

/***********************基本��程***********************************/
(1)初始化COM库，引入ADO库定义文�?BR>(2)用Connection对象�q�接数据�?BR>(3)利用建立好的�q�接�Q�通过Connection、Command对象执行SQL命��o�Q�或利用Recordset对象取得�l�果�?BR>   录集�q�行查询、处理�?BR>(4)使用完毕后关闭连接释攑֯�象�?BR>

/***********************�?】COM库的初始�?**********************************/
我们可以使用AfxOleInit()来初始化COM库，�q�项工作通常在CWinApp::InitInstance()的重载函��C��?BR>成，��L��如下代码:

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

/*****************�?】用#import指��o引入ADO�c�d��?*********************/
我们在stdafx.h中加入如下语句：
#import "c:\program files\common files\system\ado\msado15.dll" no_namespace rename("EOF","adoEOF")
其最�l�作用同我们熟悉�?include�c�M��,�~�译的时候系�l�会为我们生成msado15.tlh,ado15.tli两个C++头文件来定义ADO库�?BR>

/***************�?】创建Connection对象�q�连接数据库********************/

首先我们需要添加一个指向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);//�q�接数据�?BR>   //上面一句中�q�接字串中的Provider是针对ACCESS2000环境的，对于ACCESS97,需要改�?Provider=Microsoft.Jet.OLEDB.3.51;  }
  }
}
catch (_com_error e) //COM错误取得,当执行COM功能的时候，如果出错�Q�可以捕捉到_com_error的异�?BR>{
  CString strComError;
  strComError.Format("错误�~�号: %08lx\n错误信息: %s\n错误�? %s\n错误描述: %s",
       e.Error(),                  // 错误�~�号
       e.ErrorMessage(),           // 错误信息
       (LPCSTR) e.Source(),        // 错误�?BR>       (LPCSTR) e.Description());  // 错误描述

  ::MessageBox(NULL,strComError,"错误",MB_ICONEXCLAMATION);
}
}
也可以��用UDL文�g�q�行�q�接�?BR>try
{
m_pConnection.CreateInstance(__uuidof(Connection));
m_pConnection->ConnectionString ="File Name=e.udl";
m_pConnection->Open("","","",NULL);
}
catch(_com_error e)
{....}

◆在�q�段代码中我们是通过Connection对象的Open�Ҏ��来进行连接数据库的，下面是该�Ҏ��的原�?BR>
HRESULT Connection15::Open (_bstr_t ConnectionString, _bstr_t UserID, _bstr_t Password, long Options )

ConnectionString ��接字�?
UserID    是用户名,
Password   是登陆密�?
Options    是连接选项,用于指定Connection对象�Ҏ��据的更新许可�?
     Options可以是如下几个常�?

  adModeUnknown:   �~�省。当前的许可权未讄��
  adModeRead:    只读
  adModeWrite:   只写
  adModeReadWrite:  可以��d��
  adModeShareDenyRead: ��L��其它Connection对象以读权限打开�q�接
  adModeShareDenyWrite: ��L��其它Connection对象以写权限打开�q�接
  adModeShareExclusive: ��L��其它Connection对象打开�q�接
  adModeShareDenyNone: 允许其它�E�序或对象以��M��权限建立�q�接

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

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

(2)通过DSN数据源对��M��支持ODBC的数据库�q�行�q�接:
m_pConnection->Open("Data Source=adotest;UID=sa;PWD=;","","",adModeUnknown);
//m_pConnection->Open("DSN=test;","","",0);   //�q�接叫作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服务器的名称�Q�DATABASE是库的名�U?BR>
◆先介绍Connection对象中两个有用的属性ConnectionTimeOut与State
ConnectionTimeOut用来讄��q�接的超时时��_��需要在Open之前调用�Q�例�?
  m_pConnection->ConnectionTimeout = 5; //讄��时旉��?�U?BR>  m_pConnection->Open("Data Source=adotest;","","",adModeUnknown);

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

4�?*****************执行SQL命��o�q�取得结果记录集****************/

��Z��取得�l�果记录集，我们定义一个指向Recordset对象的指�?
        _RecordsetPtr m_pRecordset;
�q��ؓ其创建Recordset对象的实�?
        m_pRecordset.CreateInstance("ADODB.Recordset");

SQL命��o的执行可以采用多�U��Ş式，下面我们一�q�行阐述�?BR>
�?1)利用Connection对象的Execute�Ҏ��执行SQL命��o
Execute�Ҏ��的原型如下所�C?

_RecordsetPtr Connection15::Execute (_bstr_t CommandText, VARIANT * RecordsAffected, long Options )
其中
  CommandText   是命令字�Ԍ��通常是SQL命��o�?BR>  RecordsAffected  是操作完成后所影响的行�?
  Options    表示CommandText中内容的�c�d��Q�Options可以取如下��g��一�Q?BR>       adCmdText:  表明CommandText是文本命�?BR>       adCmdTable:  表明CommandText是一个表�?BR>       adCmdProc:  表明CommandText是一个存储过�E?BR>       adCmdUnknown: 未知

Execute执行完后�q�回一个指向记录集的指针，下面我们�l�出具体代码�q�作说明�?nbsp;
try
{
_variant_t ra;

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

_variant_t vCount = m_pRecordset->GetCollect((_variant_t)(long)(0)); //取得�W�一个字�D늚�值放入vCount变量

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

catch (_com_error e)
{ ...}

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

  m_pCommand->ActiveConnection = m_pConnection; //关键的一句，��徏立的�q�接赋值给�?BR>
  m_pCommand->CommandText="INSERT INTO 学生信息(学号,姓名,�q�龄,生日) VALUES (112105, '�E�红�U�',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); //取得�W�一个字�D늚��?BR>
  CString str;
  str.Format("共有%d条记�?,vCount.lVal);
  AfxMessageBox(str);

  m_pRecordset->Close();

}
catch (_com_error e) {...}

在这�D�代码中我们只是用Command对象来执行了SELECT查询语句�Q?BR>Command对象在进行存储过�E�的调用中能真正体现它的作用。下�ơ我们将详细介绍�?

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

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

/***********************�?】记录集的遍历、更�?************************/

�Ҏ��我们刚才通过执行SQL命��o建立好的学生信息表，它包含四个字�D?学号�Q�姓名，�q�龄�Q�生�?BR>以下的代码实玎ͼ�打开记录集，遍历所有记录，删除�W�一条记录，��d��三条记录�Q�移动光标到�W�二�?BR>记录�Q�更改其�q�龄�Q�保存到数据库�?BR>
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));    //取得�W?列的�?�?开始计敎ͼ�你也可以直接�l�出列的名称�Q�如下一�?BR>   vUsername = m_pRecordset->GetCollect("姓名");  //取得姓名字段的�?BR>   vOld = m_pRecordset->GetCollect("�q�龄");
   vBirthday = m_pRecordset->GetCollect("生日");

   TRACE("id:%d,姓名:%s,�q�龄:%d,生日:%s\r\n",
    vID.lVal,
    (LPCTSTR)(_bstr_t)vUsername,
    vOld.lVal,
    (LPCTSTR)(_bstr_t)vBirthday);  //在DEBUG方式下的OUTPUT�H�口输出记录集中的记�?BR>
   m_pRecordset->MoveNext();    //�U�d��下一条记�?BR>  }

  m_pRecordset->MoveFirst();    //�U�d��首条记录
  m_pRecordset->Delete(adAffectCurrent);    //删除当前记录


  for(int i=0;i<3;i++)    //��d��三条新记录�ƈ赋�?BR>  {
   m_pRecordset->AddNew();    //��d��新记�?BR>   m_pRecordset->PutCollect("学号",_variant_t((long)(i+10)));
   m_pRecordset->PutCollect("姓名",_variant_t("王斌�q?));
   m_pRecordset->PutCollect("�q�龄",_variant_t((long)21));
   m_pRecordset->PutCollect("生日",_variant_t("1930-3-15"));
  }

  m_pRecordset->Move(1,_variant_t((long)adBookmarkFirst));    //从第一条记录往下移动一条记�?即移动到�W�二条记录处
  m_pRecordset->PutCollect(_variant_t("�q�龄"),_variant_t((long)45));    //修改其年�?BR>  m_pRecordset->Update();    //保存到库�?BR>
} catch (_com_error e){}

/***********************�?】关闭记录集与连�?*************************/
记录集或�q�接都可以用Close�Ҏ��来关�?nbsp;
m_pRecordset->Close(); //关闭记录�?nbsp;
m_pConnection->Close(); //关闭�q�接

在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
使用�Ҏ��Q?BR>try
{  ...}
catch(_com_error e)
{
CATCH_ERROR;
}

爱饭�?/a> 2005-12-26 19:37 发表评论

Thu, 15 Dec 2005 03:03:00 GMT
ADO 是目前在Windows环境中比较流行的客户端数据库�~�程技术。ADO是徏立在OLE DB底层技术之上的高��~�程接口�Q�因而它兼具有强大的数据处理功能�Q�处理各�U�不同类型的数据源、分布式的数据处理等�{�）和极其简单、易用的�~�程接口�Q�因而得��C��q�泛的应用。而且按微软公司的意图�Q�OLE DB和ADO��逐步取代 ODBC和DAO。现在介�l�ADO各种应用的文章和书籍有很多，本文着重站在初学者的角度�Q�简要探讨一下在VC++中��用ADO�~�程时的一些问题。我们希望阅��L��文之前，您对ADO技术的基本原理有一些了解�?BR>一、在VC++中��用ADO�~�程
ADO实际上就是由一�l�Automation对象构成的组�Ӟ��因此可以象��用其它�Q何Automation对象一样��用ADO。ADO中最重要的对象有三个�Q�Connection、Command和Recordset�Q�它们分别表�C��接对象、命令对象和记录集对象。如果您熟悉使用MFC中的ODBC�c�（CDatabase、CRecordset)�~�程�Q�那么学习ADO�~�程��十分容易了�?BR>使用ADO�~�程时可以采用以下三�U�方法之一�Q?BR>1、��用预处理指��o#import
#import "C:\Program Files\Common Files\System\ADO\msado15.dll" \
   no_namespace rename("EOF", "EndOfFile")
但要注意不能攑֜�stdAfx.h文�g的开��_��而应该放在所有include指��o的后面。否则在�~�译时会出错�?BR>�E�序在编译过�E�中�Q�VC++会读出msado15.dll中的�c�d��库信息，自动产生两个该类型库的头文�g和实现文件msado15.tlh和msado15.tli�Q�在您的Debug或Release目录下）。在�q�两个文仉��定义了ADO的所有对象和�Ҏ��Q�以及一些枚丑֞�的常量等。我们的�E�序只要直接调用�q�些�Ҏ��p��了，与��用MFC中的COleDispatchDriver�c�调用Automation对象十分�c�M��?BR>2、��用MFC中的CIDispatchDriver
��是通过��d��msado15.dll中的�c�d��库信息，建立一个COleDispatchDriver�cȝ��z��c�，然后通过它调用ADO对象�?BR>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))
{...}
以上三种�Ҏ��Q�第一和第二种�c�M��Q�可能第一�U�好用一些，�W�三�U�编�E�可能最�ȝ��。但可能�W�三�U�方法也是效率最高的�Q�程序的��寸也最��，�q�且对ADO的控制能力也最强�?BR>据微软资料介�l�，�W�一�U�方法不支持�Ҏ��调用中的默认参数�Q�当然第二种�Ҏ��也是�q�样�Q�但�W�三�U�就不是�q�样了。采用第三种�Ҏ��的水�q�也最高。当你需要绕�q�ADO而直接调用OLE DB底层的方法时�Q�就一定要使用�W�三�U�方法了�?BR>ADO�~�程的关键，��是熟练地运用ADO提供的各�U�对�?object)、方�?method)、属�?property)和容器（collection�Q�。另外，如果是在MS SQL或Oracle�{�大型数据库上编�E�，�q�要能熟�l��用SQL语言�?BR>二、��?import�Ҏ��的编�E�步�?BR>�q�里��您��?import的方法，因�ؓ它易学、易用，代码也比较简�z��?BR>1�?��d��#import指��o
打开stdafx.h文�g�Q�将下列内容��d��到所有的include指��o之后�Q?BR>#include    //Include support for VC++ Extensions
#import "C:\Program Files\Common Files\System\ADO\msado15.dll" \
   no_namespace rename("EOF", "adoEOF")
其中icrsint.h文�g包含了VC++扩展的一些预处理指��o、宏�{�的定义�Q�用于COM�~�程时��用�?BR>2、定义_ConnectionPtr型变量，�q�徏立数据库�q�接
建立了与数据库服务器的连接后�Q�才能进行其他有��x��据库的访问和操作。ADO使用Connection对象来徏立与数据库服务器的连接，所以它相当于MFC中的CDatabase�c�R��和CDatabase�c�M��P��调用Connection对象的Open�Ҏ��卛_��建立与服务器的连接�?BR>数据�c�d�� _ConnectionPtr实际上就是由�c�L��板_com_ptr_t而得到的一个具体的实例�c�，其定义可以到msado15.tlh、comdef.h 和comip.h�q�三个文件中扑ֈ�。在msado15.tlh中有�Q?BR>_COM_SMARTPTR_TYPEDEF(_Collection, __uuidof(_Collection));
�l�宏扩展后就得到了_ConnectionPtr�c�R��_ConnectionPtr�c�d��装了Connection对象的Idispatch接口指针�Q�及一些必要的操作。我们就是通过�q�个指针来操�U�Connection对象。类似地�Q�后面用到的_CommandPtr和_RecordsetPtr�c�d��也是�q�样得到的，它们分别表示命��o对象指针和记录集对象的指针�?BR>�Q?�Q�、连接到MS SQL Server
注意�q�接字符串的格式�Q�提供正��的�q�接字符串是成功�q�接到数据库服务器的�W�一步，有关�q�接字符串的详细信息参见微��YMSDN Library光盘�?BR>本例�q�接字符串中的server_name�Q�database_name�Q�user_name和password在编�E�时都应该替换成实际的内宏V�?BR> _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�Ҏ��中的�q�接字符串参数必��L��BSTR或_bstr_t�c�d��。另外，本例是直接通过OLE DB Provider建立�q�接�Q�所以无需建立数据源�?BR>�Q?�Q�、通过ODBC Driver�q�接到Database Server
�q�接字符串格式与直接用ODBC�~�程时的差不多：
_bstr_t strConnect="DSN=datasource_name; Database=database_name; uid=user_name; pwd=password;";
此时与ODBC�~�程一��P��必须先徏立数据源�?BR>3、定义_RecordsetPtr型变量，�q�打开数据�?BR>定义_RecordsetPtr型变量，然后通过它调用Recordset对象的Open�Ҏ��Q�即可打开一个数据集。所以Recordset对象与MFC中的CRecordset�cȝ��|��它也有当前记录、当前记录指针的概念。如�Q?BR> _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�Ҏ��非常重要�Q�它的第一个参数可以是一个SQL语句、一个表的名字或一个命令对象等�{�；�W�二个参数就是前面徏立的�q�接对象的指针。此外，用Connection和Command对象的Execute�Ҏ��也能得到记录集，但是只读的�?BR>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都是字段名，��d��的字�D�值分别保存在sName和cAge变量内。例中的Fields是Recordset对象的容器，GetItem�Ҏ��q�回的是Field对象�Q�而Value则是Field对象的一个属性（卌��字段的��|��。通过此例�Q�应掌握操纵对象属性的�Ҏ��。例如，要获得Field 对象的Value属性的值可以直接用属性名Value来引用它�Q�如上例�Q�，但也可以调用Get�Ҏ��Q�例如：
CString sName=(char*)(_bstr_t)(m_pRecordset->Fields->GetItem
    (_variant_t("name"))->GetValue());
从此例还可以看到�Q�判断是否到达记录集的末��，使用记录集的adoEOF属性，其��D��为真卛_��了结��，反之则未到。判断是否到达记录集开��_��则可用BOF属性�?BR>另外�Q�读取数据还有一个方法，��是定义一个绑定的�c�，然后通过�l�定的变量得到字�D��|��详见后面的介�l�）�?BR>5、修�Ҏ��?BR>�Ҏ��一�Q?BR> 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属性的��|��x��变了字段的倹{�?BR>�Ҏ��二：
  m_pRecordset->Fields->GetItem
    (_variant_t("姓名"))->PutValue(_bstr_t("赵薇"));
�Ҏ��三：��是用定义绑定类的方法（详见后面的介�l�）�?BR>6、添加记�?BR>新记录添加成功后�Q�即自动成�ؓ当前记录。AddNew�Ҏ��有两�U��Ş式，一个含有参敎ͼ�而另一个则不带参数�?BR>�Ҏ��一�Q�不带参敎ͼ��Q?BR> // 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);
}
�q�种�Ҏ��弄完了还要调用Update()�?BR>�Ҏ��二（带参敎ͼ��Q?BR>  _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);
�q�种�Ҏ��不需要调用Update�Q�因为添加后�Q�ADO会自动调用它。此�Ҏ��主要是��用SafeArray挺麻烦�?BR>�Ҏ��三：��是用定义绑定类的方法（详见后面的介�l�）�?BR>7、删除记�?BR>调用Recordset的Delete�Ҏ��p��了，删除的是当前记录。要了解Delete的其它用法请查阅参考文献�?BR> 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删除她吗�Q?,
    "提示",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、��用带参数的命�?BR>Command对象所代表的就是一个Provider能够理解的命令，如SQL语句�{�。��用Command对象的关键就是把表示命��o的语句设�|�到CommandText属性中�Q�然后调用Command对象的Execute�Ҏ��p��了。一般情况下在命令中无需使用参数�Q�但有时使用参数�Q�可以增加其灉|��性和效率�?BR>(1). 建立�q�接、命令对象和记录集对�?BR>本例中表�C�命令的语句��是一个SQL语句�Q�SELECT语句�Q�。SELECT语句中的问号?��׃��表参敎ͼ�如果要多个参敎ͼ��多攑և�个问��P��每个问号代表一个参数�?BR>_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
要注意命令对象必��M��q�接对象兌��h��才能起作用，本例中将命��o对象的ActiveConnection属性设�|��ؓ�q�接对象的指针，即�ؓ此目的：
Cmd1->ActiveConnection = Conn1;
(2). 创徏参数对象�Q��ƈ�l�参数赋�?BR>// 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 );
用命令对象的�Ҏ��来创��Z��个参数对象，其中的长度参敎ͼ��W�三个）如果是固定长度的�c�d��Q�就�?1�Q�如果是字符串等可变长度的就填其实际长度。Parameters是命令对象的一个容器，它的Append�Ҏ��是把创建的参数对象�q�加到该容器里。Append�q�去的参数按先后��序与SQL语句中的问号从左臛_��一一对应�?BR>(3). 执行命��o打开记录�?BR>// Open Recordset Object
Rs1 = Cmd1->Execute( &vtEmpty, &vtEmpty2, adCmdText );
但要注意�Q�用Command和Connection对象的Execute�Ҏ��得到的Recordset是只�ȝ��。因为在打开Recordset之前�Q�我们无法设�|�它的LockType属性（光��认��gؓ只读�Q�。而在打开之后讄��LockType不�v作用�?BR>我发现用上述�Ҏ��得到记录集Rs1后，不但Rs1中的记录无法修改�Q�即使直接用SQL语句修改同一表中��M��记录都不行�?BR>要想能修�Ҏ��据，�q�是要用Recordset自己的Open�Ҏ��才行�Q�如�Q?BR> try{
   m_pRecordset->Open((IDispatch *) Cmd1, vtMissing,
    adOpenStatic, adLockOptimistic, adCmdUnspecified);
  }
  catch (_com_error &e)
  {
   ::MessageBox(NULL,"mytable表不存在�?,"提示",MB_OK | MB_ICONWARNING);
  }
Recordset对象的Open�Ҏ��真是太好了，其第一个参数可以是SQL语句、表名字、命令对象指针等�{��?BR>9、响应ADO的通知事�g
通知事�g��是当某个特定事件发生时�Q�由Provider通知客户�E�序�Q�换句话��_��是由Provider调用客户�E�序中的一个特定的�Ҏ��Q�即事�g的处理函敎ͼ�。所以�ؓ了响应一个事�Ӟ��最关键的就是要实现事�g的处理函数�?BR>(1). 从ConnectionEventsVt接口�z��Z��个类
��Z��响应_Connection的通知事�g�Q�应该从ConnectionEventsVt接口�z��Z��个类�Q?BR>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_前缀的方法都把它实现�?�Q?BR>STDMETHODIMP CConnEvent::raw_InfoMessage(
         struct Error *pError,
         EventStatusEnum *adStatus,
         struct _Connection *pConnection)
         {
         *adStatus = adStatusUnwantedEvent;
         return S_OK;
         };www.chinai tp 采吧采吧不是�|?ow er.comJuJIe

有些�Ҏ��虽然你�ƈ不需要，但也必须实现它，只需��单地�q�回一个S_OK卛_��。但如果要避免经常被调用�Q�还应在其中��adStatus参数讄��为adStatusUnwantedEvent�Q�则在本�ơ调用后�Q�以后就不会被调用了�?BR>另外�q�必��d��现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). 开始响应通知事�g
// 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)之前��做�q�些事�?BR>(4). 停止响应通知事�g
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;
在连接关闭之后做�q��g事�?
10、邦定数�?BR>定义一个绑定类�Q�将其成员变量绑定到一个指定的记录集，以方便于讉K��记录集的字段倹{�?BR>(1). 从CADORecordBinding�z��Z��个类�Q?BR>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;
};
其中��要�l�定的字�D�与变量名用BEGIN_ADO_BINDING宏关联�v来。每个字�D�对应于两个变量�Q�一个存攑֭��D늚��|��另一个存攑֭��D늚�状态。字�D는��?开始的序号表示�Q�如1�Q?�Q?�{�等�?BR>特别要注意的是：如果要绑定的字段是字�W�串�c�d��Q�则对应的字�W�数�l�的元素个数一定要比字�D�长度大2�Q�比如m_szau_fname[22]�Q�其�l�定的字�D�au_fname的长度实际是20�Q�，不这��L��定就会失败。我分析多出�?可能是�ؓ了存攑֭��W�串�l�尾的空字符null和BSTR字符串开头的一个字�Q�表�C�BSTR的长度）。这个问题对于初学者来说可能是一个意想不到的问题�?BR>CADORecordBinding�cȝ��定义在icrsint.h文�g里，内容是：
class CADORecordBinding
{
public:
STDMETHOD_(const ADO_BINDING_ENTRY*, GetADOBindingEntries) (VOID) PURE;
};www.chinai tp 采吧采吧不是�|?ow er.comJuJIe

BEGIN_ADO_BINDING宏的定义也在icrsint.h文�g里，内容是：
#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文�g里：
#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文�g里：
#define END_ADO_BINDING()   {0, adEmpty, 0, 0, 0, 0, 0, 0, 0, FALSE}};\
return rgADOBindingEntries;}
(2). �l�定
_RecordsetPtr   Rs1;
IADORecordBinding   *picRs=NULL;
CCustomRs rs;
......
Rs1->QueryInterface(__uuidof(IADORecordBinding),
               (LPVOID*)&picRs));
picRs->BindToRecordset(&rs);
�z��出的�c�d��通过IADORecordBinding接口才能�l�定�Q�调用它的BindToRecordset�Ҏ��p��了�?BR>(3). rs中的变量��x��当前记录字段的�?BR>//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�Q�就可以讉K��。如果修改了字段�Q�不要忘了先调用picRs的Update�Q�注意不是Recordset的Update�Q�，然后才关闭，也不要忘了释放picRs�Q�即picRs->Release();�Q��?BR>(4). 此时�q�可以用IADORecordBinding接口��d��新纪�?BR> if(FAILED(picRs->AddNew(&rs)))
......
11. 讉K��长数�?BR>在Microsoft SQL中的长数据包括text、image�{�这样长�c�d��的数据，作�ؓ二进制字节来对待�?BR>可以用Field对象的GetChunk和AppendChunk�Ҏ��来访问。每�ơ可以读出或写入全部数据的一部分�Q�它会记住上�ơ访问的位置。但是如果中间访问了别的字段后，��又得从头来了�?BR>��L��下面的例子：
//写入一张照片到数据库：
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

//从数据库��M��张照片：
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也是很重要的�Q�因为在ADO�~�程中经常要用。它的主要目的是用于automation中的数组型参数的传递。因为在�|�络环境中，数组是不能直接传递的�Q�而必��d��其包装成SafeArray。实质上SafeArray��是��通常的数�l�增加一个描�q�符�Q�说明其�l�数、长度、边界、元素类型等信息。SafeArray也�ƈ不单独��用，而是��其再包装到VARIANT�c�d��的变量中�Q�然后才作�ؓ参数传送出厅R��在VARIANT的vt成员的值如果包含VT_ARRAY|...,那么它所��装的就是一个SafeArray�Q�它的parray成员��x��指向SafeArray的指针。SafeArray中元素的�c�d��可以是VARIANT能封装的��M��c�d��Q�包括VARIANT�c�d��本��n�?nbsp;
使用SafeArray的具体步骤：
�Ҏ��一�Q?BR> 包装一个SafeArray�Q?BR>(1). 定义变量�Q�如�Q?BR> VARIANT varChunk;
SAFEARRAY *psa;
    SAFEARRAYBOUND rgsabound[1];
(2). 创徏SafeArray描述�W�：
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�Q?BR> for(long index=0;index {
  if(FAILED(SafeArrayPutElement(psa,&index,&bVal[index])))
   ::MessageBox(NULL,"出毛病了�?,"提示",MB_OK | MB_ICONWARNING);
}
一个一个地放，挺麻烦的�?BR>(4). ��装到VARIANT内：
varChunk.vt = VT_ARRAY|VT_UI1;
varChunk.parray = psa;
�q�样��可以将varChunk作�ؓ参数传送出��M��?FONT color=#ffffcc>www.chinai tp 采吧采吧不是�|?ow er.comJuJIe

��d��SafeArray中的数据的步骤：
(1). 用SafeArrayGetElement一个一个地�?BR> BYTE buf[lIsRead];
for(long index=0;index {
  ::SafeArrayGetElement(varChunk.parray,&index,buf+index);
}
��p��到缓冲区buf里了�?BR>�Ҏ��二：
使用SafeArrayAccessData直接��d��SafeArray的缓冲区�Q?BR>(1). �ȝ��冲区�Q?BR> BYTE *buf;
SafeArrayAccessData(varChunk.parray, (void **)&buf);
f.Write(buf,lIsRead);
SafeArrayUnaccessData(varChunk.parray);
(2). 写缓冲区�Q?BR> 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

�q�种�Ҏ��d��SafeArray都可以，它直接操�U�SafeArray的数据缓冲区�Q�比用SafeArrayGetElement和SafeArrayPutElement速度快。特别适合于读取数据。但用完之后不要忘了调用::SafeArrayUnaccessData(psa)�Q�否则会出错的�?BR>13. 使用书签( bookmark )
书签可以唯一标识记录集中的一个记录，用于快速地��当前记录移回到已访问过的记录，以及�q�行�q��o�{�等。Provider会自动�ؓ记录集中的每一条记录��生一个书�{�，我们只需要��用它��p��了。我们不能试图显�C�、修�Ҏ��比较书签。ADO用记录集的Bookmark属性表�C�当前记录的书签�?BR>用法步骤�Q?BR>(1). 建立一个VARIANT�c�d��的变�?BR>_variant_t VarBookmark;
(2). ��当前记录的书签值存入该变量
也就是记录集的Bookmark属性的当前倹{�?BR> VarBookmark = rst->Bookmark;
(3). �q�回到先前的记录
��保存的书签��D��|�到记录集的书签属性中�Q?BR> // Check for whether bookmark set for a record
if (VarBookmark.vt == VT_EMPTY)
  printf("No Bookmark set!\n");
else
  rst->Bookmark = VarBookmark;
讄��完后�Q�当前记录即会移动到该书�{�指向的记录�?BR>14、设�|�过滤条�?BR>Recordset对象的Filter属性表�C�Z��当前的过滤条件。它的值可以是以AND或OR�q�接��h��的条件表辑ּ��Q�不含WHERE关键字）、由书签�l�成的数�l�或ADO提供的FilterGroupEnum枚�D倹{��ؓFilter属性设�|�新值后Recordset的当前记录指针会自动�U�d��到满��滤条件的�W�一个记录。例如：
rst->Filter = _bstr_t ("姓名='赵薇' AND 性别=’女�?);
在��用条件表辑ּ�时应注意下列问题�Q?BR>�Q?�Q�、可以用圆括��L��成复杂的表达�?BR>例如�Q?BR>rst->Filter = _bstr_t ("(姓名='赵薇' AND 性别=’女�? OR AGE<25");
但是微��Y不允许在括号内用OR�Q�然后在括号外用AND�Q�例如：
rst->Filter = _bstr_t ("(姓名='赵薇' OR 性别=’女�? AND AGE<25");
必须修改为：
rst->Filter = _bstr_t ("(姓名='赵薇' AND AGE<25) OR (性别=’女�?nbsp; AND AGE<25)");
�Q?�Q�、表辑ּ�中的比较�q�算�W�可以是LIKE
LIKE后被比较的是一个含有通配�W?的字�W�串�Q�星可��C��q�个��L��的字�W��?BR>字符串的首部和尾部可以同时带星号*
rst->Filter = _bstr_t ("姓名 LIKE '*�?' ");
也可以只是尾部带星号�Q?BR>rst->Filter = _bstr_t ("姓名 LIKE '�?' ");
Filter属性值的�c�d��是Variant�Q�如果过滤条件是�׃��{��成的数组�Q�则需��该数组转换为SafeArray�Q�然后再��装��C��个VARIANT或_variant_t型的变量中，再赋�l�Filter属性�?BR>15、烦引与排序
�Q?�Q�、徏立烦�?BR>当以某个字段为关键字用Find�Ҏ��查找�Ӟ��Z��加快速度可以以该字段为关键字在记录集内部临时建立索引。只要将该字�D늚�Optimize属性设�|��ؓtrue卛_��Q�例如：
pRst->Fields->GetItem("姓名")->Properties->
            GetItem("Optimize")->PutValue("True");
pRst->Find("姓名 = '赵薇'",1,adSearchForward);
......
pRst->Fields->GetItem("姓名")->Properties->
            GetItem("Optimize")->PutValue("False");
pRst->Close();
说明�Q�Optimize属性是由Provider提供的属性（在ADO中称为动态属性）�Q�ADO本��n没有此属性�?BR>�Q?�Q�、排�?BR>要排序也很简单，只要把要排序的关键字列表讄��到Recordset对象的Sort属性里卛_��Q�例如：
pRstAuthors->CursorLocation = adUseClient;
pRstAuthors->Open("SELECT * FROM mytable",
            _variant_t((IDispatch *) pConnection),
            adOpenStatic, adLockReadOnly, adCmdText);
......
pRst->Sort = "姓名 DESC, �q�龄 ASC";
关键字（卛_��D�名�Q�之间用逗号隔开�Q�如果要以某关键字降序排序，则应在该关键字后加一�I�格�Q�再加DESC�Q�如上例�Q�。升序时ASC加不加无所谓。本操作是利用烦引进行的�Q��ƈ未进行物理排序，所以效率较高�?BR>但要注意�Q�在打开记录集之前必��d��记录集的CursorLocation属性设�|��ؓadUseClient�Q�如上例所�C�。Sort属性值在需要时随时可以修改�?BR>16、事务处�?BR>ADO中的事务处理也很��单，只需分别在适当的位�|�调用Connection对象的三个方法即可，�q�三个方法是�Q?BR>�Q?�Q�、在事务开始时调用
pCnn->BeginTrans();
�Q?�Q�、在事务�l�束�q�成功时调用
pCnn->CommitTrans ();
�Q?�Q�、在事务�l�束�q�失败时调用
pCnn->RollbackTrans ();
在��用事务处理时�Q�应��量减小事务的范��_��卛_��从事务开始到�l�束�Q�提交或回滚�Q�之间的旉��间隔�Q�以便提高系�l�效率。需要时也可在调用BeginTrans()�Ҏ��之前�Q�先讄��Connection对象的IsolationLevel属性��|��详细内容参见MSDN中有关ADO的技术资料�?BR>三、��用ADO�~�程常见问题解答
以下均是针对MS SQL 7.0�~�程时所遇问题进行讨论�?BR>1、连接失败可能原�?BR>Enterprise Managemer内，打开��服务器的属性对话框�Q�在Security选项卡中�Q�有一个选项Authentication�?BR>如果该选项是Windows NT only�Q�则你的�E�序所用的�q�接字符串就一定要包含Trusted_Connection参数�Q��ƈ且其值必��Mؓyes�Q�如�Q?BR>"Provider=SQLOLEDB;Server=888;Trusted_Connection=yes"
  ";Database=master;uid=lad;";
如果不按上述操作�Q�程序运行时�q�接必然��p�|�?BR>如果Authentication选项是SQL Server and Windows NT�Q�则你的�E�序所用的�q�接字符串可以不包含Trusted_Connection参数�Q�如�Q?BR>"Provider=SQLOLEDB;Server=888;Database=master;uid=lad;pwd=111;";
因�ؓADO�l�该参数取的默认值就是no�Q�所以可以省略。我认�ؓ�q�是取默认值比较安全一些�?BR>2、改变当前数据库的方�?BR>使用Tansct-SQL中的USE语句卛_��?BR>3、如何判断一个数据库是否存在
(1)、可打开master数据库中一个叫做SCHEMATA的视图，其内容列��Z��该服务器上所有的数据库名�U��?BR>(2) 、更��便的�Ҏ��是��用USE语句�Q�成功了��存在；不成功，��׃��存在。例如：
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、判断一个表是否存在
�Q?�Q�、同样判断一个表是否存在�Q�也可以用是否成功地打开它来判断�Q�十分方便，例如�Q?BR> 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)、要不然可以采用�ȝ��一点的办法�Q�就是在MS-SQL服务器上的每个数据库中都有一个名为sysobjects的表�Q�查看此表的内容即知指定的表是否在该数据库中�?BR>(3)、同��P��每个数据库中都有一个名为TABLES的视�?View)�Q�查看此视图的内容即知指定的表是否在该数据库中�?BR>5、类型�{换问�?BR>�Q?�Q�、类型VARIANT_BOOL
�c�d��VARIANT_BOOL�{��h于short�c�d��。The VARIANT_BOOL is equivalent to short. see it's definition below:
typdef short VARIANT_BOOL
�Q?�Q�、_com_ptr_t�cȝ��c�d��转换
_ConnectionPtr可以自动转换成IDspatch*�c�d��Q�这是因为_ConnectionPtr实际上是_com_ptr_t�cȝ��一个实例，而这个类有此�c�d��转换函数�?BR>同理�Q�_RecordsetPtr和_CommandPtr也都可以�q�样转换�?BR>�Q?�Q�、_bstr_t和_variant_t�c?BR>在ADO�~�程�Ӟ��_bstr_t和_variant_t�q�两个类很有用，省去了许多BSTR和VARIANT�c�d��转换的麻烦�?BR>6、打开记录集时的问�?BR>在打开记录集时�Q�在调用Recordset的Open�Ҏ��Ӟ��其最后一个参数里一定不能包含adAsyncExecute�Q�否则将因�ؓ是异步操作，在读取数据时无法��d��数据�?BR>7、异常处理问�?BR>�Ҏ��有调用ADO的语句一定要用try和catch语句捕捉异常�Q�否则在发生异常�Ӟ��E�序会异帔R��出�?BR>8、��用SafeArray问题
在初学��用中�Q�我��N��C��个伤脑筋的问题，一定要注意�Q?BR>在定义了SAFEARRAY的指针后�Q�如果打��重复��用多�ơ，则在中间可以调用::SafeArrayDestroyData释放数据�Q�但决不能调�?:SafeArrayDestroyDescriptor�Q�否则必然出错，即��调用SafeArrayCreate也不行。例如：
SAFEARRAY *psa;
......
//When the data are no longer to be used:
::SafeArrayDestroyData( psa);
我分析在定义psa指针�Ӟ��一个SAFEARRAY的实例（也就是SAFEARRAY描述�W�）也同时被自动建立了。但是只要一调用::SafeArrayDestroyDescriptor�Q�描�q�符��p��销毁了�?BR>所以我认�ؓ::SafeArrayDestroyDescriptor可以�Ҏ��׃��调用�Q�即使调用也必须在最后调用�?BR>9、重复��用命令对象问�?BR>一个命令对象如果要重复使用多次�Q�尤其是带参数的命��o�Q�，则在�W�一�ơ执行之前，应将它的Prepared属性设�|��ؓTRUE。这样会使第一�ơ执行减慢，但却可以使以后的执行全部加快�?BR>10、绑定字�W�串型字�D�问�?BR>如果要绑定的字段是字�W�串�c�d��Q�则对应的字�W�数�l�的元素个数一定要比字�D�长度大2�Q�比如m_szau_fname[22]�Q�其�l�定的字�D�au_fname的长度实际是20�Q�，不这��L��定就会失败�?BR>11、��用AppendChunk的问�?BR>当用AddNew�Ҏ��刚刚向记录集内添加一个新记录之后�Q�不能首先向一个长数据字段�Q�image�c�d��Q�写入数据，必须先向其他字段写入�q�数据之后，才能调用AppendChunk写该字段�Q�否则出错。也��是��_��AppendChunk不能紧接在AddNew之后。另外，写入其他字段后还必须紧接着调用AppendChunk�Q�而不能调用记录集的Update�Ҏ��后，才调用AppendChunk�Q�否则调用AppendChunk时也会出错。换句话��_��是必须AppendChunk在前�Q�Update在后。因而这个时候就不能使用带参数的AddNew了，因�ؓ带参数的AddNew会自动调用记录集的Update�Q�所以AppendChunk��p��到Update的后面了�Q�就只有出错了！因此�Q�这时应该用不带参数的AddNew�?BR>我推��这可能是MS SQL 7.0的问题，在MS SQL 2000中则不存在这些问题，但是AppendChunk仍然不能在Update之后�?BR>四、小�l?BR>一般情况下�Q�Connection和Command的Execute用于执行不��生记录集的命令，而Recordset的Open用于产生一个记录集�Q�当然也不是�l�对的。特别Command主要是用于执行参数化的命令，可以直接由Command对象执行�Q�也可以��Command对象传递给Recordset的Open�?BR>本文中的代码片断均在VC++ 6.0、Windows NT 4.0 SP6和MS SQL 7.0中调试通过。相信您读过之后�Q�编写简单的数据库程序应该没有问题了。当然要�~�写比较实用的、复杂一点的�E�序�Q�还需要对OLE DB、ADO以及数据库��^台再多了解一点，希望您��l�努力，一定会很快成功的！详细参考资料请参见微��YMSDN July 2000光盘或MS SQL 7.0在线文档资料�Q�Books online�Q�。文中难免有错误和不妥之处，敬请各位批评指正�Q?FONT color=#ffffcc>www.chinai tp 采吧采吧不是�|?ow er.comJuJIe

参考文献：
1�?微��YMSDN Library - July 2000 / Platform SDK / Data Services / Microsoft Data Access Components (MDAC) / Microsoft ActiveX Data Objects (ADO)
2�?微��YMS SQL 7.0在线文档资料�Q�Books online�Q?--- Building SQL Server Applications / ADO and SQL Server
3�?微��YMS SQL 7.0在线文档资料�Q�Books online�Q?--- Building SQL Server Applications / Transact �?SQL Reference
4�?微��YMSDN Library - July 2000 / Platform SDK / Data Services / Microsoft Data Access Components (MDAC) / Microsoft OLE DB

爱饭�?/a> 2005-12-15 11:03 发表评论

Fri, 11 Nov 2005 06:31:00 GMT

VC数据库编�E�中的打印控�?/TD>

2003-12-4加入  来自赛��_�|?/FONT>  作�?FONT color=#00ff00>李佑�?/FONT>  1条评�?nbsp; 点击2287��?/TD>


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

　　Document/View框架之外的打�?nbsp;

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

　　�ȝ��h��Q�一�ơ打印操作要遵��@以下步骤�Q?nbsp;

　　1.得到或生成打印设备场景，可通过昄��打印对话框让用户选择打印��Z��U�张�{�设�|�，也可在程序中直接取系�l�缺省打印机讄��Q�然后根据报表格式设�|�纸张大��和打印方向�Q?nbsp;

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

　　3.清除打印讑֤�场景�Q�完成本�ơ打印操作�?nbsp;

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

　　BOOL CMyDialog::DoPreparePrintDC()

　　// 准备打印场景

　　{

　　 �Q�define　　FONTSIZE 14

　　 // 获取打印机的讑֤�属�?nbsp;

　　 CPrintDialog dlgPrint( FALSE );

　　 // 得到当前�pȝ��~�省打印��|?nbsp;

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

　　 LPDEVMODE pDM=dlgPrint.GetDevMode();

　　 if(pDM==NULL) return FALSE;

　　 ::GlobalUnlock(pDM);

　　 // 联结打印DC�Q�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);

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

　　 if(!m—fontPrint.CreateFont(MulDiv(FONTSIZE, �Q�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;

　　 // 开始一�ơ打��C��?nbsp;

　　 CString str;

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

　　 DOCINFO di;

　　 ::ZeroMemory (�Q�di, sizeof (DOCINFO));

　　 di.cbSize=sizeof (DOCINFO);

　　 di.lpszDocName=str;

　　 m—DC.StartDoc(�Q�di);

　　 m—DC.StartPage();

　　 // ��打印字体选进讑֤�场景

　　 CFont�Q?nbsp;pOldFont=m—DC.SelectObject(�Q�m—fontPrint);

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

　　 ...

　　 // �l�止打印作业

　　 m—DC.EndPage();

　　 m—DC.EndDoc();

　　 m—DC.SelectObject(pOldFont);

　　 // 清除打印场景

　　 DoClearPrintDC();}

　　表格问题

　　�Ҏ��式固定或表头、表体比较复杂的情况�Q�特别是有嵌套表格的情况下，我们认�ؓ先将打印�l�果以文本�Ş式写入一临时文�g�Q�然后再�Ҏ��件进行打印输出的�Ҏ��会��事情��单一些。因��样在�E�序中就可以只关心数�?表体)的输出，而表头则可以固定格式存入数据库�?nbsp;

　　但是�Q�我们在�Ҏ��本�Ş式的报表�q�行打印输出时却发现一个有��的现象�Q�有时输出结果的盔R��两行表格竖线不能寚w��Q�而有时又可以。原来是 Windows 囑�Ş输出的问题，只要我们在徏立打印字体时�Q�字体的高度是偶数就可保证竖�U�对齐，如果是奇数则不能寚w��。知道了原因�Q�在建立打印字体时只需加入如下代码卛_��Q?nbsp;

　　...

　　�Q�define　　FONTSIZE 14

　　�Q�define　　HFONTNAME ‛_��体�?nbsp;

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

　　int nFontHeight=MulDiv(FONTSIZE,�Q�cyInch, 72);

　　if(nFontHeight �Q?nbsp;2) nFontHeight�Q�＋;

　　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;

　　...

　　�q�有一点小技巧，输出文本形式的报表时�Q�对报表的横�U�只需要输出其正常高度的二分之一或三分之一�Q�这��h��表看��h��更紧凑美观。这也是我们在前面徏议用CDC::DrawText()�q�行�l�制输出的原因�?nbsp;

爱饭�?/a> 2005-11-11 14:31 发表评论

Fri, 11 Nov 2005 03:09:00 GMT

1. 代码说明
(1)�?stdafx.h 加入如下代码引入 ADO 库定�?A target=_blank>文�g�Q?PRE>#import "c:\program files\common files\system\ado\msado15.dll" no_namespace rename ("EOF", "adoEOF") (2)初始化COM库，在BOOL CGetFieldNameApp::InitInstance()中添加AfxOleInit();

(3)在类 CgetFieldNameDlg 中添加两个用于打开数据�?/A>�q�接和打开记录集的变量�Q?PRE>_ConnectionPtr m_pConnection; _RecordsetPtr m_pRecordset; (4) 在CgetFieldNameDlg的构造函��C��d��数据�?/A>�q�接和记录集初始化代码；
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("数据�?/A>�q�接��p�|!"); } m_pRecordset.CreateInstance(__uuidof(Recordset));
(5) �l�Listbox控�g��d��控�g变量m_FieldsList�Q?BR>(6) 在按钮的单击事�g中添加相应代码；
_bstr_t mStrSQL; CString strColName; BSTR bstrColName; long ColCount,i; Field * field = NULL; HRESULT hr; Fields * fields = NULL; LPCTSTR nameField; //打开记录集，得到字段名，�q�将字段名信息添加到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); //得到记录集的字段集合中的字段的��M��? for(i=0;iItem[i]->get_Name(&bstrColName); //得到记录�?/中的字段�? strColName=bstrColName; nameField = strColName; m_FieldsList.AddString(nameField); } if(SUCCEEDED(hr)) fields->Release();//释放指针

 爱饭�?/a> 2005-11-11 11:09 发表评论

Wed, 09 Nov 2005 08:25:00 GMT

新徏一个udl文�g。选择提供�E�序。如下图

选择下一步�?BR>

数据源�ؓ利用 sybase ase ole Configuration Manager所建立的数据源�?/P>

爱饭�?/a> 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 �q�接�Q�用Network Library=dbmssocn�Q�通过MSDASQL
     provider�q�接�Q�用Network=dbmssocn
    IV.声明�Ҏ��Q?
     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;"
   呵呵�Q�Data Shape没用�q�，请参�?
    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�q�接�Q?
    II.声明�Ҏ��Q?
      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 (没听说过�q�个东东)
  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;"

爱饭�?/a> 2005-11-09 15:16 发表评论

利用UDL文�g来徏立ADO�q�接

Wed, 09 Nov 2005 07:04:00 GMT

使用通用数据�q�接文�g�Q?.UDL�Q�以下简�U�文�Ӟ��来创建ADO�q�接�Q�可以和ODBC一样可视化地定义要�q�接的数据源�Q�从而实现数据访问的透明性�?

　　 1.使用UDL文�g来创建ADO�q�接

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

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

　　上述的连接属性设�|�标准随着数据源的�c�d��不同而变化，软�g用户常常不习惯这�U�设�|�方式，都希望有可视化的数据源设�|�方法。�ؓ此Microsoft提供了通用数据�q�接文�g�Q?UDL�Q�来建立和测试ADO�q�接属性。ADO�q�接对象可以很方便地使用UDL文�g来连接数据源�Q�下面例子��用my_data1.udl来创建ADO�q�接�?

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

　　 �q�样一来无论数据源如何变化�Q�在软�g中都可以用统一的方法编�E�。当数据源改变时�Q�只要双�ȝ��应的udl文�g卛_��可视化地讄��数据源，无需更改软�g�?

　　因�ؓADO是COM接口�Q��ؓ了��Y件的可靠性，打开ADO�q�接�Ӟ��可以加入异常处理代码�?

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

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

　　如果不出现异常，只要在��用完m_pDBConn�Q�只要引用Close�Ҏ��卛_��?

　　 2.创徏你所需的UDL文�g

　　在你所惛_��建UDL文�g的目录中单击右键�Q�选择从菜�?新徏|Microsoft 数据�q�接�Q�然后将新创建的UDL文�g更改��Z��所希望的文件名�Q?UDL扩展名不能改变）�?

爱饭�?/a> 2005-11-09 15:04 发表评论

在Visual C++中用ADO�q�行数据库编�E?

Wed, 09 Nov 2005 02:49:00 GMT
�?wnchg 整理

　

　1. 生成应用�E�序框架�q�初始化OLE/COM库环�?

　　创徏一个标准的MFC AppWizard(exe)应用�E�序�Q�然后在使用ADO数据�?/A>的InitInstance函数中初始化OLE/COM库（因�ؓADO库是一个COM DLL库）�?BR>本例为：

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

�E�序最后要调用 ::CoUninitialize()�Q?/释放�E�序占用的COM 资源�?BR>另外�Q?/TD>

m_pRecordset->Close(); 注意�Q�！�Q�不要多�ơ关闭！�Q�！�Q�！�Q�！�Q�！�Q�！�Q? m_pConnection->Close(); m_pRecordset = NULL; m_pConnection = NULL;

　2. 引入ADO�?A target=_blank>文�g

　　使用ADO前必��d��工程的stdafx.h文�g最后用直接引入�W�号�Q�import引入ADO�?A target=_blank>文�g�Q�以使编译器能正��编译。代码如下：
#import "C:\Program Files\common files\system\ado\msado15.dll" no_namespace rename("EOF","adoEOF")
　 ADO�cȝ��定义是作��Z��U�资源存储在ADO DLL(msado15.dll�Q�中�Q�在其内部称为类型库。类型库描述了自��L��口，以及C�Q�＋使用的COM vtable接口。当使用�Q�import指��o�Ӟ��在运行时Visual C�Q�＋需要从ADO DLL中读取这个类型库�Q��ƈ以此创徏一�l�C�Q�＋�?A target=_blank>文�g。这些头文�g��h��.tli �?tlh扩展名，读者可以在��目的目录下扑ֈ��q�两�?A target=_blank>文�g。在C�Q�＋�E�序代码中调用的ADO�c�要在这�?A target=_blank>文�g中定义�?
　�E�序的第三行指示ADO对象不��用名�U�空间。在有些应用�E�序中，�׃��应用�E�序中的对象与ADO中的对象之间可能会出现命名冲�H�，所以有必要使用名称�I�间。如果要使用名称�I�间�Q�则可把�W�三�?A target=_blank>�E�序修改为： rename_namespace("AdoNS")。第四行代码��ADO中的EOF(文�g�l�束)更名为adoEOF�Q�以避免与定义了自己的EOF的其他库冲突�?

　3�Q�利用智能指针进�?A target=_blank>数据�?/A>操作

　　在CaboutDlg�?A target=_blank>文�g中定义两个ADO��指针�c�d��?�q�在对话框中加入一个ListCtrl�?BR>　

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

ADO库包含三个智能指�?_ConnectionPtr、_CommandPtr和_RecordsetPtr�?BR>
_ConnectionPtr通常被用来创��Z��个数据连接或执行一条不�q�回��M��l�果的SQL语句�Q�如一个存储过�E��?BR>_CommandPtr�q�回一个记录集。它提供了一�U�简单的�Ҏ��来执行返回记录集的存储过�E�和SQL语句。在使用_CommandPtr接口�Ӟ��可以利用全局_ConnectionPtr接口�Q�也可以在_CommandPtr接口里直接��用连接串。_RecordsetPtr是一个记录集对象。与以上两种对象相比�Q�它对记录集提供了更多的控制功能�Q�如记录锁定、游标控制等�?

　　在��用ADO�E�序的事件响应中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); //�q�接叫作ADOTest的ODBC数据�? //注意�Q�这是连接不需要用户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�Q�动�?adLockOptimistic乐观��锁�?adCmdText�Q�文本查询语�? while(!m_pRecordset->adoEOF)//遍历所有记�? { //取纪录字�D�值方式之一 _variant_t TheValue; //VARIANT数据�c�d�� TheValue = m_pRecordset->GetCollect("BIG_NAME");//得到字段BIG_NAME的�? if(TheValue.vt!=VT_NULL) m_List.AddString((char*)_bstr_t(TheValue)); //��该值加入到列表控�g�? //取纪录字�D�值方式之�? // _bstr_t TheValue1=m_pRecordset->Fields->GetItem("BIG_NAME")->Value; // CString temp=TheValue1.copy(); // m_List.AddString(temp); //数据�c�d��转换 _variant_t vUsername,vBirthday,vID,vOld; TRACE("id:%d,姓名:%s,�q�龄:%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(); //注意�Q�！�Q�不要多�ơ关闭！�Q�！�Q�否则会出错 m_pConnection->Close(); m_pRecordset = NULL; m_pConnection = NULL; }

　　�E�序中通过_variant_t和_bstr_t转换COM对象和C�Q�＋�c�d��的数�? _variant_t�c�d��装了OLE自治VARIANT数据�c�d��。在C++中��用_variant_t�c�要比直接��用VARIANT数据�c�d��Ҏ��得多�?

　　好，�~�译后该�E�序��p��q�行了，但记住运行前要创��Z��个叫ADOTest的ODBC数据源。该�E�序��把表middle中的BIG_NAME字段值显�C�在列表控�g中�?BR>

　4�Q�执行SQL命��o�q�取得结果记录集

    ��Z��取得�l�果记录集，我们定义一个指向Recordset对象的指�?_RecordsetPtr m_pRecordset;
�q��ؓ其创建Recordset对象的实�? m_pRecordset.CreateInstance("ADODB.Recordset");
SQL命��o的执行可以采用多�U��Ş式，下面我们一�q�行阐述�?BR>
(1)利用Connection对象的Execute�Ҏ��执行SQL命��o
Execute�Ҏ��的原型如下所�C?

_RecordsetPtr Connection15::Execute ( _bstr_t CommandText, VARIANT * RecordsAffected, long Options ) 其中CommandText是命令字�Ԍ��通常是SQL命��o�? 参数RecordsAffected是操作完成后所影响的行�? 参数Options表示CommandText中内容的�c�d��Q�Options可以取如下��g��一�Q? adCmdText:表明CommandText是文本命�? adCmdTable:表明CommandText是一个表�? adCmdProc:表明CommandText是一个存储过�E? adCmdUnknown:未知 Execute执行完后�q�回一个指向记录集的指针，下面我们�l�出具体代码�q�作说明�? _variant_t RecordsAffected; ///执行SQL命��o�Q�CREATE TABLE创徏表格users,users包含四个字段:整�ŞID,字符串username,整�Şold,日期型birthday m_pConnection->Execute("CREATE TABLE users(ID INTEGER,username TEXT,old INTEGER,birthday DATETIME)", &RecordsAffected, adCmdText); ///往表格里面��d��记录 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�l�计命��o得到包含记录条数的记录集 m_pRecordset = m_pConnection->Execute("SELECT COUNT(*) FROM users",&RecordsAffected,adCmdText); _variant_t vIndex = (long)0; _variant_t vCount = m_pRecordset->GetCollect(vIndex);///取得�W�一个字�D늚�值放入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命��o

_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;///非常关键的一句，��徏立的�q�接赋值给�? m_pCommand->CommandText = "SELECT * FROM users";///命��o字串 m_pRecordset = m_pCommand->Execute(&vNULL,&vNULL,adCmdText);///执行命��o�Q�取得记录集

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

(3)直接用Recordset对象�q�行查询取得记录�?
实例—�?/TD>

void CGmsaDlg::OnDBSelect() { // TODO: Add your control notification handler code here _RecordsetPtr Rs1; //定义Recordset对象 _bstr_t Connect("DSN=GMS;UID=sa;PWD=;");//定义�q�接字符�? _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�Ҏ��的原型是�q�样�? HRESULT Recordset15::Open ( const _variant_t & Source, const _variant_t & ActiveConnection, enum CursorTypeEnum CursorType, enum LockTypeEnum LockType, long Options ) 其中�Q? ①Source是数据查�?A target=_blank>字符�? ②ActiveConnection是已�l�徏立好的连接（我们需要用Connection对象指针来构造一个_variant_t对象) ③CursorType光标�c�d��Q�它可以是以下��g��一,��L��q�个枚�D�l�构: enum CursorTypeEnum { adOpenUnspecified = -1,///不作特别指定 adOpenForwardOnly = 0,///前滚静态光标。这�U�光标只能向前浏览记录集�Q�比如用MoveNext向前滚动,�q�种方式可以提高��览速度。但诸如BookMark,RecordCount,AbsolutePosition,AbsolutePage都不能��? adOpenKeyset = 1,///采用�q�种光标的记录集看不到其它用��L��新增、删除操作，但对于更新原有记录的操作对你是可见的�? adOpenDynamic = 2,///动态光标。所�?A target=_blank>数据�?/A>的操作都会立卛_��各用戯��录集上反应出来�? adOpenStatic = 3///静态光标。它��Z��的记录集产生一个静态备份，但其它用��L��新增、删除、更新操作对你的记录集来说是不可见的�? }; ④LockType锁定�c�d��Q�它可以是以下��g��一�Q�请看如下枚丄��构： enum LockTypeEnum { adLockUnspecified = -1,///未指�? adLockReadOnly = 1,///只读记录�? adLockPessimistic = 2,悲观锁定方式。数据在更新旉��定其它所有动作，�q�是最安全的锁定机�? adLockOptimistic = 3,乐观锁定方式。只有在你调用Update�Ҏ��时才锁定记录。在此之前仍然可以做数据的更新、插入、删除等动作 adLockBatchOptimistic = 4�Q�乐观分�Ҏ��新。编辑时记录不会锁定�Q�更攏V��插入及删除是在批处理模式下完成�? }; ⑤Options可以取如下��g��一�Q? adCmdText:表明CommandText是文本命�? adCmdTable:表明CommandText是一个表�? adCmdProc:表明CommandText是一个存储过�E? adCmdUnknown:未知

5. 记录集的遍历、更�?BR>    �Ҏ��我们刚才通过执行SQL命��o建立好的users表，它包含四个字�D?ID,username,old,birthday
以下的代码实玎ͼ�打开记录集，遍历所有记录，删除�W�一条记录，��d��三条记录�Q�移动光标到�W�二条记录，
更改其年龄，保存�?A target=_blank>数据�?/A>�?/TD>

_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));///取得�W?列的�?�?开始计敎ͼ� ///你也可以直接�l�出列的名称�Q�如下一�? vUsername = m_pRecordset->GetCollect("username");///取得username字段的�? vOld = m_pRecordset->GetCollect("old"); vBirthday = m_pRecordset->GetCollect("birthday"); ///在DEBUG方式下的OUTPUT�H�口输出记录集中的记�? if(vID.vt != VT_NULL && vUsername.vt != VT_NULL && vOld.vt != VT_NULL && vBirthday.vt != VT_NULL) TRACE("id:%d,姓名:%s,�q�龄:%d,生日:%s\r\n", vID.lVal, (LPCTSTR)(_bstr_t)vUsername, vOld.lVal, (LPCTSTR)(_bstr_t)vBirthday); m_pRecordset->MoveNext();///�U�d��下一条记�? } m_pRecordset->MoveFirst();///�U�d��首条记录 m_pRecordset->Delete(adAffectCurrent);///删除当前记录 ///��d��三条新记录�ƈ赋�? for(int i=0;i<3;i++) { m_pRecordset->AddNew();///��d��新记�? 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));///从第一条记录往下移动一条记�?即移动到�W�二条记录处 m_pRecordset->PutCollect(_variant_t("old"),_variant_t((long)45));///修改其年�? m_pRecordset->Update();///保存到库�?

备注�Q�多�ơ查询可把查询过�E�做成一个函数ExecuteSQL让m_pRecordset获得�q�接指针m_pConnection查询�l�果

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�Q�动�? adLockOptimistic乐观��锁�? adCmdText�Q�文本查询语�? } catch(_com_error error) { CString errorMessage; errorMessage.Format("%s",(LPTSTR)error.Description()); AfxMessageBox(errorMessage); } } //出错处理�Q? 3127——没有找到目标表 3092——目标表已经存在例如�Q? catch(const _com_error e) { AfxMessageBox(e.Description()); long errorCode=e.WCode(); if(3127==errorCode) AfxMessageBox("表不存在"); if(3092==errorCode) AfxMessageBox("表已�l�存�?); return FALSE; }

　

爱饭�?/a> 2005-11-09 10:49 发表评论

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 >>

Read more

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

UDL:

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

爱饭�?/a> 2005-10-24 16:19 发表评论

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.

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)

久久人人爽人人爽人人AV东京热,欧美一级久久久久久久大,久久精品一区二区三区不卡

调用存储�q�程

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

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

_variant_t 到 CString 转换

ado 出错处理

用ADO操作数据库的�Ҏ��步骤

Connection大全

利用UDL文�g来徏立ADO�q�接

在Visual C++中用ADO�q�行数据库编�E?

_variant_t 到　CString 转换