ADO编程总结

1）引入ADO库定义文件

# import “c:/program files/common files/system/ado/msado15.dll” no_namespace

rename (“EOF”,”adoEOF”)

使得编译的时候，为我们的工程文件生成两个头文件:

msado15.tlh和ado15.tli

注意，msado15.dll的路径可能有所区别，请核对自己的电脑所在的路径

2）初始化COM库

在工程的App类的InitInstance ( )函数里面加上

AfxOleInit ( );//MFC用法

C++的常规方法是--------

:::CoInitialize(NULL);

….

::CoUninitialize();

3)使用记录集对象得到一个纪录集的基本步骤

//生成一个Connection对象，并连结上数据库

_ConnectionPtr m_pConnection;

HRESULT hr;

try

{

hr=m_pConnection.CreateInstance(__uuidof(Connection));

if(SUCCEEDED(hr))

{

m_pConnection->Open("Provider=Microsoft.Jet.OLEDB.4.0;

Data Source=小学.mdb","","",adModeUnknown);

}

}

catch(_com_error e)

{

CString errormessage;

errormessage.Format("连接数据库失败!/r/n/错误信息:%s",e.ErrorMessage());

AfxMessageBox(errormessage);

}

//生成RecordSet对象，并得到纪录集

_RecordsetPtr m_pRecordset;

m_pRecordset.CreateInstance("ADODB.Recordset");

CString temp="SELECT * FROM "+tablename;//tablename假设是一个CString类型的表名

_variant_t sql;

sql.SetString(temp);

m_pRecordset->Open(sql,

m_pConnection.GetInterfacePtr( ),

adOpenDynamic,adLockOptimistic,adCmdText );

4）动态查询

CString tablename;

tablename=_T("学籍");

CString temp=_T("SELECT * FROM ")+tablename+_T(" WHERE NAME='")+

dlg.m_name+_T("'");

_variant_t sql;

sql.SetString(temp);

m_pRecordset->Open(sql,m_pConnection.GetInterfacePtr(),

adOpenDynamic,adLockOptimistic,adCmdText);

5)遍历纪录集

int line=0;

while(!m_pRecordset->adoEOF)//遍历记录集，并将所有纪录显示在列表视图中

{

。。。。。。

line++;

m_pRecordset->MoveNext();

}

其余操作都很简单，可以参见其他文章，最关键的是，不要忘了关闭纪录集，因为这通常会造成异常

6）使用ADO连接不同的数据库的方式：

根据不同的数据提供者可以分为ODBC和OLEDB等若干种方式，ODBC兼容性更好，支持OLEDB的数据库相对少一点；

连接SQL Server数据库：

1） Microsoft OLE DB Provider for ODBC

m_pConnection->Open(“Provider=SQLOLEDB.1;DRIVER=SQLServer;SERVER=lzhm;DATABASE=haitang”,"sa","sa",adModeUnknown);

2）未知方法，但是可行，注意Initial Catalog用空格分开

m_pConnection->Open(“Provider=SQLOLEDB.1;Data Source=lzhm;Initial Catalog=haitang”,"sa","sa",adModeUnknown);

m_pConnection->Open ("Provider=SQLOLEDB;Data Source=172.20.2.97;Network Library=DBMSSOCN;Initial Catalog=haitang",”sa”,”sa”,adModeUnknown);

m_pConnection->Open ("Provider=SQLOLEDB;Network Address=172.20.2.97;Initial Catalog=haitang",”sa”,”sa”,adModeUnknown);

m_pConnection->Open ("Provider=SQLOLEDB;Network Address=172.20.2.97; Network Library=DBMSSOCN;Initial Catalog=haitang",”sa”,”sa”,adModeUnknown);

3）Microsoft OLE DB Provider for SQL Server

m_pConnection->Open(“Provider=SQLOLEDB.1;Data Source=lzhm;Initial Catalog=haitang”,"sa","sa",adModeUnknown);

4）不使用DSN进行连接

m_pConnection->Open("driver={SQL Server};server=lzhm;database=haitang”,"sa","sa",adModeUnknown);

连接ACCESS 2000数据库的方式：

m_pConnection->Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=小学.mdb","","",adModeUnknown);

连接ACCESS 97数据库的方式：

m_pConnection->Open("Provider=Microsoft.Jet.OLEDB.3.51;Data Source=小学.mdb","","",adModeUnknown);

7)一个常用的函数，传递一句SQL语句，然后打开一个记录集，假设记录集对象m_pRecordset存在：

BOOL CHaiTangView::GetRecordSet(CString sql)

{//如果生成的记录集不为空，就返回TRUE

if(m_pRecordset->GetState()==1)//如果记录集对象已经打开，则先关闭

m_pRecordset->Close();

HRESULT hr;

_variant_t v_sql;

v_sql.SetString(sql);

try

{

hr=m_pRecordset->Open(v_sql,m_pConnection.GetInterfacePtr(),adOpenDynamic,adLockOptimistic,adCmdText);

if(SUCCEEDED(hr))

{

}

}

catch(_com_error e)

{

CString errormessage;

errormessage.Format("查询数据表失败!/r/n错误信息:%s",e.ErrorMessage());

AfxMessageBox(errormessage);

return 0;

}

m_pRecordset->MoveFirst();

if(!m_pRecordset->adoEOF)//用SUCCEEDED(hr)无法判断记录集的生成是否为空

{ //所以要用生成后的纪录集的最大纪录数是否为0来判别

return TRUE; //SUCCEEDED(hr)应该是来判别异常的,纪录集为空不属于异常

}

else

{

MessageBox("对不起，找不到符合条件的纪录，请联系系统管理员");

return FALSE;

}

}

8）调用Recordset::PutCollect出现的问题：

select 岸线属性表.序号,s1.NAME,岸线属性表.岸线性质,岸线属性表.起点桩号,岸线属性表.终点桩号,岸线属性表.岸线长度,岸线属性表.堤顶高程,岸线属性表.结构形式小类,岸线属性表.结构形式大类,岸线属性表.达标标准,岸线属性表.地域位置,岸线属性表.备注 from 岸线属性表,数据字典表 AS s1 where s1.ID=岸线属性表.岸线名 ORDER BY 岸线属性表.序号

select * from 海塘绿化表 ORDER BY 序号

select 岸线属性表.序号,s1.NAME,s2.NAME from 岸线属性表,数据字典表 AS s1,数据字典表 AS s2 where s1.ID=岸线属性表.岸线名 AND s2.ID=岸线属性表.责任单位 ORDER BY 岸线属性表.序号

在海塘开发的过程中，发现如果使用了RecordSet::Open的方法调用SQL语句打开记录集，如果SQL语句中使用了ORDER BY语句，在使用Recordset::PutCollect方法将数据写入就会出错，至少这是使用VC、ADO和

SQL Server7.0或者2000的情况。

9）调用存储过程，在ATL里面的存储过程

STDMETHODIMP CFBGET::GetDataByProc(BSTR bstrProcName, BSTR bstrParam, BSTR* plPower)

{

// TODO: Add your implementation code here

*plPower = NULL;

USES_CONVERSION;

////////////////////////////////////////////////////////////////////////////

///建立和数据库的连接

_ConnectionPtr m_pCon;

m_pCon.CreateInstance(_uuidof(Connection));

char array[200];

GetWindowsDirectory(array,200);

strcat(array,"//FB_DATA.INI");

char servername[100];

GetPrivateProfileString("ServerName","NAME","",servername,100,array);

char str_con[1024];

wsprintf(str_con,"Provider=SQLOLEDB.1;Data Source=%s;Initial Catalog=haitang;User ID=haitang;PWD=haitang",servername);

m_pCon->Open(str_con,"","",adModeUnknown);

///////////////////////////////////////////////////////////////////////////////

///建立命令对象

_CommandPtr m_pCommand;

m_pCommand.CreateInstance("ADODB.Command");

m_pCommand->ActiveConnection = m_pCon;

_variant_t name="proc_user";

BSTR bname=SysAllocString(OLESTR("proc_user"));

m_pCommand->CommandText=bname;

m_pCommand->CommandType=adCmdStoredProc;

///将参数转换成char*类型,提取出两个char*参数

char *p=W2A(bstrParam);

char* temp=p;

char* p1=temp;

while(*temp!='T')

{

temp++;

}

*temp='/0';

temp++;

char* p2=temp;

while(*temp!='T')

{

temp++;

}

*temp='/0';

//将两个参数转换成BSTR类型

BSTR bstrP1=A2W(p1);

BSTR bstrP2=A2W(p2);

///建立参数对象1

_ParameterPtr p_Param1;

p_Param1.CreateInstance("ADODB.Parameter");

p_Param1->Name="name";

p_Param1->Type=adVarChar;

p_Param1->Size=50;

p_Param1->Direction=adParamInput;

p_Param1->Value=bstrP1;

m_pCommand->Parameters->Append(p_Param1);

///建立参数对象2

_ParameterPtr p_Param2;

p_Param2.CreateInstance("ADODB.Parameter");

p_Param2->Name="key";

p_Param2->Type=adVarChar;

p_Param2->Size=50;

p_Param2->Direction=adParamInput;

p_Param2->Value=bstrP2;

m_pCommand->Parameters->Append(p_Param2);

///建立参数对象3

_bstr_t bstrP3;

_ParameterPtr p_Param3;

p_Param3.CreateInstance("ADODB.Parameter");

p_Param3->Name="power";

p_Param3->Type=adInteger;

p_Param3->Size=10;

p_Param3->Direction=adParamOutput;

// p_Param3->Value=bstrP3; //由于是输出参数，所以千万不能指定Value值

m_pCommand->Parameters->Append(p_Param3);

///执行存储过程,并获得输出参数

m_pCommand->Execute(NULL,NULL,adCmdStoredProc);

_bstr_t value=p_Param3->GetValue();

const char* ppp = value;

*plPower = SysAllocString(A2W(ppp));

return S_OK;

}

注意，如果存储过程里面只写了一个select语句，执行后将返回一个记录集对象，ADO可以通过

m_pRecordet=m_pCommand->Execute (….)来接受，

但是如果存储过程中包含了多个select语句，ADO接受到的记录集对象是不可一使用的。

10）使用命令对象执行SQL语句

_CommandPtr m_pCommand;

m_pCommand.CreateInstance("ADODB.Command");

m_pCommand->ActiveConnection = m_pCon;//m_pCon为数据库连接对象

m_pCommand->CommandText="UPDATE TABLE1 set num_id = '2' WHERE value = '44'";

m_pCommand->CommandType=adCmdText;

m_pCommand->Parameters->Refresh();

///执行存储过程,并获得输出参数

m_pCommand->Execute(NULL,NULL,adCmdUnknown);

11) 得到记录集中字段的数目

m_pRecordset->Fields->GetCount();

也可以通过类似的方式获得字段类型

FieldsPtr fields=m_Rec->GetFields();

* pcActualColSize=fields->GetCount();

VARIANT varIndex;

VariantInit(&varIndex);

varIndex.vt=VT_I4;

FieldPtr field;

DataTypeEnum adoType;

for(long i=0;i<* pcActualColSize;i++)

{

varIndex.lVal=i;

field=fields->GetItem(varIndex);

adoType=field->GetType();

}

下面是类型对应表

enum DataTypeEnum

{ adEmpty = 0,

adTinyInt = 16,

adSmallInt = 2,

adInteger = 3,

adBigInt = 20,

adUnsignedTinyInt = 17,

adUnsignedSmallInt = 18,

adUnsignedInt = 19,

adUnsignedBigInt = 21,

adSingle = 4,

adDouble = 5,

adCurrency = 6,

adDecimal = 14,

adNumeric = 131,

adBoolean = 11,

adError = 10,

adUserDefined = 132,

adVariant = 12,

adIDispatch = 9,

adIUnknown = 13,

adGUID = 72,

adDate = 7,

adDBDate = 133,

adDBTime = 134,

adDBTimeStamp = 135,

adBSTR = 8,

adChar = 129,

adVarChar = 200,

adLongVarChar = 201,

adWChar = 130,

adVarWChar = 202,

adLongVarWChar = 203,

adBinary = 128,

adVarBinary = 204,

adLongVarBinary = 205,

adChapter = 136,

adFileTime = 64,

adPropVariant = 138,

adVarNumeric = 139

} DataTypeEnum;

typedef enum ParameterDirectionEnum

{ dbParamInput = 1,

dbParamOutput = 2,

dbParamInputOutput = 3,

dbParamReturnValue = 4

} ParameterDirectionEnum;