ACCESS MFC ado 连接类 示例代码

  

ifndef ADOCONNECTION_H
#define ADOCONNECTION_H
#include "stdafx.h"
#pragma warning(disable:4146)
#import "C:\Program Files\Common Files\System\ADO\msado15.dll" named_guids rename("EOF","adoEOF"), rename("BOF","adoBOF")
#pragma warning(default:4146)
using namespace ADODB;

//数据库类型定义
#define ACCESS2003 1
#define ACCESS2007 2
#define STDMSSQL2000 3 //MSSQL2000 7.0 Standard Security
#define TRUMSSQL2000 4 //MSSQL2000 7.0 Trusted connection
class CAdoConnection
{
public:
        CAdoConnection(void);
        ~CAdoConnection(void);
        // _ConnectionPtr接口
        _ConnectionPtr m_Connection;
        // 初始化数据库连接
        int InitConnection(void);
        void SetServerAddress(CString& ServerAddress);
        void SetDataBase(CString& DataBase);
        void SetUser(CString& sUser);
        void SetPassword(CString& sPassword);
        void SetDataBaseType(int n);
        int GetDataBaseType();
        void SetSqlString(CString& sSql);
        void ClearSqlString();
        void ClearAllValue();
        void Close();
        BOOL Execute();
        CString& GetErrorString();
        BOOL SetConnectionString();

protected:
        // ADO连接数据库字符串
        CString m_sConnection;
        //出错信息
        CString m_sError;
        //SQL服务器地址
        CString m_sServerAddress;
        //SQL数据库
        CString m_sDataBase;
        //SQL用户名
        CString m_sUser;
        //SQL密码
        CString m_sPassword;
        //数据库类型
        int m_nDataBaseType;
        //SQL语句
        CString m_sSql;
        //产生连接字符串供        _ConnectionPtr,OPEN时候使用
};
#endif

#include "StdAfx.h"
#include "AdoConnection.h"

CAdoConnection::CAdoConnection(void):m_sConnection(_T("")), m_sError(_T("")),
        m_sServerAddress(_T("")), m_sDataBase(_T("")), m_sPassword(_T("")), m_sUser(_T(""))
{
        m_nDataBaseType=0;
}


CAdoConnection::~CAdoConnection(void)
{
}


// 初始化数据库连接
//成功返回1
//失败返回0
int CAdoConnection::InitConnection(void)
{
        if (!SetConnectionString())
        {
                return 0;
        }
        if (m_sConnection.IsEmpty())
        {
                m_sError = _T("连接字符串为空");
                return 0;
        }
        try
        {
                HRESULT hr = m_Connection.CreateInstance(__uuidof(Connection));
                if (FAILED(hr))
                {
                        m_sError = _T("Create _ConnectionPtr Instance failed!");
                        return 0;
                }
                hr = m_Connection->Open(_bstr_t(m_sConnection), _bstr_t(m_sUser), _bstr_t(m_sPassword), -1);
                return 1;
        }
        catch(_com_error &e)
        {
                m_sError.Format(_T("数据库打开失败，错误原因:%s"), (LPCTSTR)e.Description());
                return 0;
        }
}

BOOL CAdoConnection::SetConnectionString()
{
        if (m_nDataBaseType == 0)
        {
                m_sError = _T("未指定数据库类型");
                return FALSE;
        }
        switch (m_nDataBaseType)
        {
        case ACCESS2003:
                if (m_sDataBase.IsEmpty())
                {
                        m_sError = _T("未指定ACCESS数据库文件");
                        return FALSE;
                }
                if (m_sPassword.IsEmpty())
                        m_sConnection.Format(_T("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;User Id=admin;Password=;"), m_sDataBase);
                else
                        m_sConnection.Format(_T("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;Jet OLEDB:Database Password=%s;"),m_sDataBase,m_sPassword);
                break;
        case ACCESS2007:
                if (m_sDataBase.IsEmpty())
                {
                        m_sError = _T("未指定ACCESS数据库文件");
                        return FALSE;
                }
                if (m_sPassword.IsEmpty())
                        m_sConnection.Format(_T("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=%s;Persist Security Info=False;"), m_sDataBase);
                else
                        m_sConnection.Format(_T("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=%s;Jet OLEDB:Database Password=%s;"),m_sDataBase,m_sPassword);
                break;
        case STDMSSQL2000:
                if (m_sServerAddress.IsEmpty())
                        m_sServerAddress = _T("127.0.0.1");
                if (m_sDataBase.IsEmpty())
                {
                        m_sError = _T("未指定SQL数据库");
                        return FALSE;
                }
                if (m_sUser.IsEmpty())
                {
                        m_sError = _T("未指定SQL数据库登陆账号");
                        return FALSE;
                }
                m_sConnection.Format(_T("Provider=sqloledb;Data Source=%s;Initial Catalog=%s;User Id=%s;Password=%s;"),
                        m_sServerAddress, m_sDataBase, m_sUser, m_sPassword);
                break;
        case TRUMSSQL2000:
                if (m_sServerAddress.IsEmpty())
                        m_sServerAddress = _T("127.0.0.1");
                if (m_sDataBase.IsEmpty())
                {
                        m_sError = _T("未指定SQL数据库");
                        return FALSE;
                }
                m_sConnection.Format(_T("Provider=sqloledb;Data Source=%s;Initial Catalog=%s;Integrated Security=SSPI;"),
                        m_sServerAddress, m_sDataBase);
                break;
        default:
                break;
        }
        return TRUE;
}

void CAdoConnection::SetUser( CString& sUser)
{
        m_sUser = sUser;
}

void CAdoConnection::SetPassword( CString& sPassword)
{
        m_sPassword = sPassword;
}

CString& CAdoConnection::GetErrorString()
{
        return m_sError;
}

void CAdoConnection::SetDataBaseType( int n )
{
        m_nDataBaseType = n;
}

int CAdoConnection::GetDataBaseType()
{
        return m_nDataBaseType;
}

void CAdoConnection::SetSqlString( CString& sSql )
{
        m_sSql = sSql;
}

void CAdoConnection::ClearSqlString()
{
        m_sSql = _T("");
}

void CAdoConnection::ClearAllValue()
{
        m_sConnection = _T("");
        m_sError = _T("");
        m_sUser = _T("");
        m_sPassword = _T("");
        m_sDataBase = _T("");
        m_nDataBaseType = 0;
        m_sSql = _T("");
}

void CAdoConnection::Close()
{
        if (m_Connection->State)
                m_Connection->Close();
        m_Connection = NULL;
}

BOOL CAdoConnection::Execute()
{
        COleVariant vtOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
        if(!m_Connection->Execute(_bstr_t(m_sSql), &vtOptional, -1))
        {
                m_sError = _T("SQL执行失败！");
                return FALSE;
        }
        return TRUE;
}

void CAdoConnection::SetServerAddress( CString& ServerAddress )
{
        m_sServerAddress = ServerAddress;
}

void CAdoConnection::SetDataBase( CString& DataBase )
{
        m_sDataBase = DataBase;
}