vc通过ADO连接sql server 2000的核心代码

vc通过ADO连接sql server 2000的核心代码

建立一个mfc对话框工程，一切都默认然后完成，接下照我的方法做吧，一定可以的！

注： ***** 代表你所建立的工程名称

先在stdafx.h中导入#import  " c:\program files\common files\system\ado\msado15.dll "  no_namespace rename( " EOF " , " adoEOF " )
加入头文件
#include  " icrsint.h "
#include  " adoid.h "
然后进行下面的书写,必须要初始化COM 即::CoInitialize(NULL); 
还要加入成员变量
_RecordsetPtr pRec;
_ConnectionPtr pCon;

// ==========                   ============ //

BOOL C ***** App::InitInstance()
{
if (!AfxSocketInit())
{
    AfxMessageBox(IDP_SOCKETS_INIT_FAILED);
    return FALSE;
}

AfxEnableControlContainer();
    

CString str;
::CoInitialize(NULL);    //初始化com 必须为NULL
str.Format("Provider=sqloledb;Network Library=DBMSSOCN;Initial Catalog=Test;User ID=sa;Password=1234;Data Source=192.168.0.20,1433");

pCon.CreateInstance(__uuidof(Connection));
try{
    pCon->Open(_bstr_t(str),"","",adModeUnknown);

}
catch(_com_error e)
{
    MessageBox(NULL,"连接数据库失败！","警告",MB_OK|MB_ICONHAND);
    return FALSE;
}
}

// ==========                   ============ //
在C **** App中添加执行sql语句的方法
bool  C ***** App::OpenSQL(CString  & strRec)
{
pRec.CreateInstance(__uuidof(Recordset));

if ( pRec->State )// 如果记录集打开的话，把它关了
    pRec->Close();

try{// 正常的SQL语句
    pRec->Open(_variant_t(strRec),pCon.GetInterfacePtr(),adOpenDynamic,adLockOptimistic,adCmdText);
    return true;
}
catch(_com_error e)
{
    MessageBox(NULL,"连接表出错！","警告",MB_OK|MB_ICONHAND);
    return false;
}
}
在退出的时候关闭数据库连接

// ==========                   ============ //
// ==========小狮子落落============ //
int  C **** App::ExitInstance() 
{
try
{          // 关闭数据库
if ( pCon->State )
    pCon->Close();
    pCon.Release();
}
catch(_com_error e)
{
}
::CoUninitialize();    

return CWinApp::ExitInstance();
}