ADO VC++ SQL server

MSDN:http://msdn.microsoft.com/en-us/library/windows/desktop/ms677516(v=vs.85).aspx

===========================================

基本步驟：

1.建立一個基於對話方塊的應用程式ADODatabase。
2.建立一個用來串連的ADO類庫。系統功能表中Insert->New Class項，class type選擇Generic Class; 在Name後輸入類名“ADOConn”，點OK。這樣，在工程上自動產生ADOConn.h和ADOConn.cpp兩個檔案。
3.在ADOConn.h中匯入一個ADO動態連結程式庫msado15.dll，添加代碼：#import "c:\Program Files\Common Files\System\ado\msado15.dll" no_namespace rename("EOF","adoEOF") rename("BOF","adoBOF")，同時在ADOConn.h中定義 public：//添加一個指向Connection對象的指標: _ConnectionPtr m_pConnection; //添加一個指向Recordset對象的指標:
_RecordsetPtr m_pRecordset。
4.m_pConnection->Open(_bstr_t ConnectionString, _bstr_t UserID, _bstr_t Password, long Options) 操作。ConnectionString為VC++中對SQL SERVER中ADO設定。如，Provider=SQLOLEDB;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=suntest;Data Source=WWW-ED1F301E78B
;User Id=sa;Password=;
其中Data Source為伺服器名稱，可以用Server代替，本機表示為.或者(local)；Initial Catalog為你要使用的資料庫名稱 可以用Database代替；Integrated Security=SSPI表示用整合模式，此時uid 和pwd 設定不起作用；只有當Integrated Security=FALSE表示用混合模式，uid 和pwd 設定才起作用
參數Options表示CommandText的類型：adCmdText-文本命令；adCmdTable-表名 adCmdProc-預存程序；adCmdUnknown-未知
5.添加兩個成員函數：(1)執行查詢函數 _RecordsetPtr& GetRecordSet(_bstr_t bstrSQL);(2)執行SQL語句 BOOL ExecuteSQL(_bstr_t bstrSQL)。

給出兩個檔案的完整代碼：
/*------------------ADOConn.h File-------------------------------------------------*/
// ADOConn.h: interface for the ADOConn class.
#import "c:\Program Files\Common Files\System\ado\msado15.dll" no_namespace rename("EOF","adoEOF") rename("BOF","adoBOF")
#if !defined(AFX_ADOCONN_H__AC448F02_AF26_45E4_9B2D_D7ECB8FFCFB9__INCLUDED_)
#define AFX_ADOCONN_H__AC448F02_AF26_45E4_9B2D_D7ECB8FFCFB9__INCLUDED_
#if _MSC_VER > 1000
#pragma once
#endif // _MSC_VER > 1000
class ADOConn  
{
// 定義變數
public:
//添加一個指向Connection對象的指標:
_ConnectionPtr m_pConnection;
//添加一個指向Recordset對象的指標:
_RecordsetPtr m_pRecordset;
// 定義方法

public:
ADOConn();
virtual ~ADOConn();
// 初始化—串連資料庫
void OnInitADOConn();
// 執行查詢
_RecordsetPtr& GetRecordSet(_bstr_t bstrSQL);
// 執行SQL語句，Insert Update _variant_t
BOOL ExecuteSQL(_bstr_t bstrSQL);
void ExitConnect();
};

#endif // !defined(AFX_ADOCONN_H__AC448F02_AF26_45E4_9B2D_D7ECB8FFCFB9__INCLUDED_)
/*--------------------------------------------------------------------------------*/

/*---------------------ADOConn.cpp File---------------------------*/
#include "stdafx.h"
#include "ADOConn.h"
#ifdef _DEBUG
#undef THIS_FILE
static char THIS_FILE[]=__FILE__;
#define new DEBUG_NEW
#endif
ADOConn::ADOConn()
{
}
ADOConn::~ADOConn()
{
}
// 初始化—串連資料庫
void ADOConn::OnInitADOConn()
{
// 初始化OLE/COM庫環境
::CoInitialize(NULL);
try
{
// 建立Connection對象
m_pConnection.CreateInstance("ADODB.Connection");
// 設定連接字串，必須是BSTR型或者_bstr_t類型
_bstr_t strConnect = "Provider=SQLOLEDB; Server=CZ;Database=HrSys; uid=sa; pwd=sa;";
m_pConnection->Open(strConnect,"","",adModeUnknown);
}
// 捕捉異常
catch(_com_error e)
{
// 顯示錯誤資訊
AfxMessageBox(e.Description());
}
}
// 執行查詢
_RecordsetPtr& ADOConn::GetRecordSet(_bstr_t bstrSQL)
{
try
{
// 串連資料庫，如果Connection對象為空白，則重新串連資料庫
if(m_pConnection==NULL)
  OnInitADOConn();
// 建立記錄集對象
m_pRecordset.CreateInstance(__uuidof(Recordset));
// 取得表中的記錄
m_pRecordset->Open(bstrSQL,m_pConnection.GetInterfacePtr(),adOpenDynamic,adLockOptimistic,adCmdText);
}
// 捕捉異常
catch(_com_error e)
{
// 顯示錯誤資訊
AfxMessageBox(e.Description());
}
// 返回記錄集
return m_pRecordset;
}
// 執行SQL語句，Insert Update _variant_t
BOOL ADOConn::ExecuteSQL(_bstr_t bstrSQL)
{
// _variant_t RecordsAffected;
try
{
// 是否已經串連資料庫
if(m_pConnection == NULL)
  OnInitADOConn();
// Connection對象的Execute方法:(_bstr_t CommandText,
// VARIANT * RecordsAffected, long Options )
// 其中CommandText是命令字串，通常是SQL命令。
// 參數RecordsAffected是操作完成後所影響的行數,
// 參數Options表示CommandText的類型：adCmdText-文本命令；adCmdTable-表名
// adCmdProc-預存程序；adCmdUnknown-未知
m_pConnection->Execute(bstrSQL,NULL,adCmdText);
return true;
}
catch(_com_error e)
{
AfxMessageBox(e.Description());
return false;
}
}

void ADOConn::ExitConnect()
{
// 關閉記錄集和串連
if (m_pRecordset != NULL)
m_pRecordset->Close();
m_pConnection->Close();
// 釋放環境
::CoUninitialize();

}

=========================================================

=========================================================

一、ADO簡介 ADO(ActiveX Data Object)是Microsoft資料庫應用程式開發的新介面，是建立在OLE DB之上的高層資料庫訪問技術，請不必為此擔心，即使你對OLE DB，COM不瞭解也能輕鬆對付ADO,因為它非常簡單易用，甚至比你以往所接觸的ODBC API、DAO、RDO都要容易使用，並不失靈活性。本文將詳細地介紹在VC下如何使用ADO來進行資料庫應用程式開發，並給出範例程式碼。 本文範例程式碼 二、基本流程 萬事開頭難，任何一種新技術對於初學者來說最重要的還是“入門”，掌握其要點。讓我們來看看ADO資料庫開發的基本流程吧！ (1)初始化COM庫，引入ADO庫定義檔案 (2)用Connection對象串連資料庫 (3)利用建立好的串連，通過Connection、Command對象執行SQL命令，或利用Recordset對象取得結果記錄集進行查詢、處理。 (4)使用完畢後關閉串連釋放對象。 準備工作: 為了大家都能測試本文提供的例子，我們採用Access資料庫，您也可以直接在我們提供的範例程式碼中找到這個test.mdb。 下面我們將詳細介紹上述步驟並給出相關代碼。 【1】COM庫的初始化 我們可以使用AfxOleInit()來初始化COM庫，這項工作通常在CWinApp::InitInstance()的重載函數中完成，請看如下代碼: BOOL CADOTest1App::InitInstance() { AfxOleInit(); ...... 【2】用#import指令引入ADO類型庫 我們在stdafx.h中加入如下語句：(stdafx.h這個檔案哪裡可以找到?你可以在FileView中的Header Files裡找到) #import "c:\program files\common files\system\ado\msado15.dll" no_namespace rename("EOF","adoEOF") 這一語句有何作用呢？其最終作用同我們熟悉的#include類似,編譯的時候系統會為我們產生msado15.tlh,ado15.tli兩個C++標頭檔來定義ADO庫。 幾點說明: (1) 您的環境中msado15.dll不一定在這個目錄下，請按實際情況修改 (2) 在編譯的時候肯能會出現如下警告，對此微軟在MSDN中作了說明，並建議我們不要理會這個警告。 msado15.tlh(405) : warning C4146: unary minus operator applied to unsigned type, result still unsigned 【3】建立Connection對象並串連資料庫 首先我們需要添加一個指向Connection對象的指標: _ConnectionPtr m_pConnection; 下面的代碼示範了如何建立Connection對象執行個體及如何串連資料庫並進行異常捕捉。 BOOL CADOTest1Dlg::OnInitDialog() { CDialog::OnInitDialog(); HRESULT hr; try { hr = m_pConnection.CreateInstance("ADODB.Connection");///建立Connection對象 if(SUCCEEDED(hr)) { hr = m_pConnection->Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=test.mdb","","",adModeUnknown);///串連資料庫 ///上面一句中串連字串中的Provider是針對ACCESS2000環境的，對於ACCESS97,需要改為:Provider=Microsoft.Jet.OLEDB.3.51; } } catch(_com_error e)///捕捉異常 { CString errormessage; errormessage.Format("串連資料庫失敗!\r\n錯誤資訊:%s",e.ErrorMessage()); AfxMessageBox(errormessage);///顯示錯誤資訊 } 在這段代碼中我們是通過Connection對象的Open方法來進行串連資料庫的，下面是該方法的原型 HRESULT Connection15::Open ( _bstr_t ConnectionString, _bstr_t UserID, _bstr_t Password, long Options ) ConnectionString為串連字串,UserID是使用者名稱, Password是登陸密碼,Options是串連選項,用於指定Connection對象對資料的更新許可權, Options可以是如下幾個常量: adModeUnknown:預設。當前的許可權未設定 adModeRead:唯讀 adModeWrite:唯寫 adModeReadWrite:可以讀寫 adModeShareDenyRead:阻止其它Connection對象以讀許可權開啟串連 adModeShareDenyWrite:阻止其它Connection對象以寫入權限開啟串連 adModeShareExclusive:阻止其它Connection對象開啟串連 adModeShareDenyNone:允許其它程式或對象以任何許可權建立串連 我們給出一些常用的串連方式供大家參考: (1)通過JET資料庫引擎對ACCESS2000資料庫的串連 m_pConnection->Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\\test.mdb","","",adModeUnknown); (2)通過DSN資料來源對任何支援ODBC的資料庫進行串連: m_pConnection->Open("Data Source=adotest;UID=sa;PWD=;","","",adModeUnknown); (3)不通過DSN對SQL SERVER資料庫進行串連： m_pConnection->Open("driver={SQL Server};Server=127.0.0.1;DATABASE=vckbase;UID=sa;PWD=139","","",adModeUnknown); 其中Server是SQL伺服器的名稱，DATABASE是庫的名稱 Connection對象除Open方法外還有許多方法，我們先介紹Connection對象中兩個有用的屬性ConnectionTimeOut與State ConnectionTimeOut用來設定串連的逾時時間，需要在Open之前調用，例如: m_pConnection->ConnectionTimeout = 5;///設定逾時時間為5秒m_pConnection->Open("Data Source=adotest;","","",adModeUnknown); State屬性指明當前Connection對象的狀態，0表示關閉，1表示已經開啟，我們可以通過讀取這個屬性來作相應的處理，例如: if(m_pConnection->State) m_pConnection->Close(); ///如果已經開啟了串連則關閉它 【4】執行SQL命令並取得結果記錄集 為了取得結果記錄集，我們定義一個指向Recordset對象的指標:_RecordsetPtr m_pRecordset; 並為其建立Recordset對象的執行個體: m_pRecordset.CreateInstance("ADODB.Recordset"); SQL命令的執行可以採用多種形式，下面我們一進行闡述。 (1)利用Connection對象的Execute方法執行SQL命令 Execute方法的原型如下所示: _RecordsetPtr Connection15::Execute ( _bstr_t CommandText, VARIANT * RecordsAffected, long Options ) 其中CommandText是命令字串，通常是SQL命令。參數RecordsAffected是操作完成後所影響的行數, 參數Options表示CommandText中內容的類型，Options可以取如下值之一： adCmdText:表明CommandText是文本命令 adCmdTable:表明CommandText是一個表名 adCmdProc:表明CommandText是一個預存程序 adCmdUnknown:未知 Execute執行完後返回一個指向記錄集的指標，下面我們給出具體代碼並作說明。 _variant_t RecordsAffected; ///執行SQL命令：CREATE TABLE建立表格users,users包含四個欄位:整形ID,字串username,整形old,日期型birthday m_pConnection->Execute("CREATE TABLE users(ID INTEGER,username TEXT,old INTEGER,birthday DATETIME)",&RecordsAffected,adCmdText); ///往表格裡面添加記錄 m_pConnection->Execute("INSERT INTO users(ID,username,old,birthday) VALUES (1, ''''''''Washington'''''''',25,''''''''1970/1/1'''''''')",&RecordsAffected,adCmdText); ///將所有記錄old欄位的值加一 m_pConnection->Execute("UPDATE users SET old = old+1",&RecordsAffected,adCmdText); ///執行SQL統計命令得到包含記錄條數的記錄集 m_pRecordset = m_pConnection->Execute("SELECT COUNT(*) FROM users",&RecordsAffected,adCmdText); _variant_t vIndex = (long)0; _variant_t vCount = m_pRecordset->GetCollect(vIndex);///取得第一個欄位的值放入vCount變數 m_pRecordset->Close();///關閉記錄集 CString message; message.Format("共有%d條記錄",vCount.lVal); AfxMessageBox(message);///顯示目前記錄條數 (2)利用Command對象來執行SQL命令 _CommandPtr m_pCommand; m_pCommand.CreateInstance("ADODB.Command"); _variant_t vNULL; vNULL.vt = VT_ERROR; vNULL.scode = DISP_E_PARAMNOTFOUND;///定義為無參數 m_pCommand->ActiveConnection = m_pConnection;///非常關鍵的一句，將建立的串連賦值給它 m_pCommand->CommandText = "SELECT * FROM users";///命令字串 m_pRecordset = m_pCommand->Execute(&vNULL,&vNULL,adCmdText);///執行命令，取得記錄集 在這段代碼中我們只是用Command對象來執行了SELECT查詢語句，Command對象在進行預存程序的調用中能真正體現它的作用。下次我們將詳細介紹。 (3)直接用Recordset對象進行查詢取得記錄集 例如 m_pRecordset->Open("SELECT * FROM users",_variant_t((IDispatch *)m_pConnection,true),adOpenStatic,adLockOptimistic,adCmdText); Open方法的原型是這樣的: HRESULT Recordset15::Open ( const _variant_t & Source, const _variant_t & ActiveConnection, enum CursorTypeEnum CursorType, enum LockTypeEnum LockType, long Options ) 其中： ①Source是資料查詢字串 ②ActiveConnection是已經建立好的串連（我們需要用Connection對象指標來構造一個_variant_t對象) ③CursorType游標類型，它可以是以下值之一,請看這個枚舉結構: enum CursorTypeEnum { adOpenUnspecified = -1,///不作特別指定 adOpenForwardOnly = 0,///前滾靜態游標。這種游標只能向前瀏覽記錄集，比如用MoveNext向前滾動,這種方式可以提高瀏覽速度。但諸如BookMark,RecordCount,AbsolutePosition,AbsolutePage都不能使用 adOpenKeyset = 1,///採用這種游標的記錄集看不到其它使用者的新增、刪除操作，但對於更新原有記錄的操作對你是可見的。 adOpenDynamic = 2,///動態游標。所有資料庫的操作都會立即在各使用者記錄集上反應出來。 adOpenStatic = 3///靜態游標。它為你的記錄集產生一個靜態備份，但其它使用者的新增、刪除、更新操作對你的記錄集來說是不可見的。 }; ④LockType鎖定類型，它可以是以下值之一，請看如下枚舉結構： enum LockTypeEnum { adLockUnspecified = -1,///未指定 adLockReadOnly = 1,///唯讀記錄集 adLockPessimistic = 2,悲觀鎖定方式。資料在更新時鎖定其它所有動作，這是最安全的鎖定機制 adLockOptimistic = 3,樂觀鎖定方式。只有在你調用Update方法時才鎖定記錄。在此之前仍然可以做資料的更新、插入、刪除等動作 adLockBatchOptimistic = 4，樂觀分批更新。編輯時記錄不會鎖定，更改、插入及刪除是在批處理模式下完成。 }; ⑤Options請參考本文中對Connection對象的Execute方法的介紹 【5】記錄集的遍曆、更新 根據我們剛才通過執行SQL命令建立好的users表，它包含四個欄位:ID,username,old,birthday 以下的代碼實現：開啟記錄集，遍曆所有記錄，刪除第一條記錄，添加三條記錄，移動游標到第二條記錄，更改其年齡，儲存到資料庫。 _variant_t vUsername,vBirthday,vID,vOld;_RecordsetPtr m_pRecordset;m_pRecordset.CreateInstance("ADODB.Recordset");m_pRecordset->Open("SELECT * FROM users",_variant_t((IDispatch*)m_pConnection,true),adOpenStatic,adLockOptimistic,adCmdText);while(!m_pRecordset->adoEOF)///這裡為什麼是adoEOF而不是EOF呢?還記得rename("EOF","adoEOF")這一句嗎?{vID = m_pRecordset->GetCollect(_variant_t((long)0));///取得第1列的值,從0開始計數，你也可以直接給出列的名稱，如下一行vUsername = m_pRecordset->GetCollect("username");///取得username欄位的值vOld = m_pRecordset->GetCollect("old");vBirthday = m_pRecordset->GetCollect("birthday");///在DEBUG方式下的OUTPUT視窗輸出記錄集中的記錄if(vID.vt != VT_NULL && vUsername.vt != VT_NULL && vOld.vt != VT_NULL && vBirthday.vt != VT_NULL)TRACE("id:%d,姓名:%s,年齡:%d,生日:%s\r\n",vID.lVal,(LPCTSTR)(_bstr_t)vUsername,vOld.lVal,(LPCTSTR)(_bstr_t)vBirthday);m_pRecordset->MoveNext();///移到下一條記錄}m_pRecordset->MoveFirst();///移到首條記錄m_pRecordset->Delete(adAffectCurrent);///刪除目前記錄///添加三條新記錄並賦值for(int i=0;i<3;i++){m_pRecordset->AddNew();///添加新記錄m_pRecordset->PutCollect("ID",_variant_t((long)(i+10)));m_pRecordset->PutCollect("username",_variant_t("葉爾辛"));m_pRecordset->PutCollect("old",_variant_t((long)71));m_pRecordset->PutCollect("birthday",_variant_t("1930-3-15"));}m_pRecordset->Move(1,_variant_t((long)adBookmarkFirst));///從第一條記錄往下移動一條記錄,即移動到第二條記錄處m_pRecordset->PutCollect(_variant_t("old"),_variant_t((long)45));///修改其年齡m_pRecordset->Update();///儲存到庫中 【6】關閉記錄集與串連 記錄集或串連都可以用Close方法來關閉 m_pRecordset->Close();///關閉記錄集 m_pConnection->Close();///關閉串連 =============================== http://download.csdn.net/detail/jiht594/4557007 ===============================