MFC使用ado连接SQLserver

做个小工具，记录MFC中用ado连接sqlserver2008的简要步骤。
首先还是简要介绍一下吧（一下这段为网上摘抄）
ADO接口简介

ADO库包含三个基本接口:_ConnectionPtr接口、_CommandPtr接口和_RecordsetPtr接口。
　　_ConnectionPtr接口返回一个记录集或一个空指针。通常使用它来创建一个数据连接或执行一条不返回任何结果的SQL语句，如一个存储过程。使用_ConnectionPtr接口返回一个记录集不是一个好的使用方法。对于要返回记录的操作通常用_RecordserPtr来实现。而用_ConnectionPtr操作时要想得到记录条数得遍历所有记录，而用_RecordserPtr时不需要。
　　_CommandPtr接口返回一个记录集。它提供了一种简单的方法来执行返回记录集的存储过程和SQL语句。在使用_CommandPtr接口时，你可以利用全局_ConnectionPtr接口，也可以在_CommandPtr接口里直接使用连接串。如果你只执行一次或几次数据访问操作，后者是比较好的选择。但如果你要频繁访问数据库，并要返回很多记录集，那么，你应该使用全局_ConnectionPtr接口创建一个数据连接，然后使用_CommandPtr接口执行存储过程和SQL语句。
　　_RecordsetPtr是一个记录集对象。与以上两种对象相比，它对记录集提供了更多的控制功能，如记录锁定，游标控制等。同_CommandPtr接口一样，它不一定要使用一个已经创建的数据连接，可以用一个连接串代替连接指针赋给_RecordsetPtr的connection成员变量，让它自己创建数据连接。如果你要使用多个记录集，最好的方法是同Command对象一样使用已经创建了数据连接的全局_ConnectionPtr接口
，然后使用_RecordsetPtr执行存储过程和SQL语句。

首先建了个对话框工程，编辑好如下界面：

注意：要把ListControl的View属性设置成Report。

首先，引入ADO库文件。在StdAfx.h头文件中添加如下一行：

#import "C://Program Files//Common Files//System//ado//msado15.dll" no_namespace rename("EOF","adoEOF")rename("BOF","adoBOF")

然后自定义数据库类，如AdoSql

class AdoSql  
{
public:
    AdoSql();
    virtual ~AdoSql();

    void InitialConn();  //连接数据库
    void ExitConn();     //断开数据库
    void GetRecordSet(CString bstrSqlCmd);  //获得记录集
    void ExcuteCmd(CString bstrSqlCmd);     //执行sql语句

public:
    _bstr_t m_bstrConn;  //存储连接数据库的字符串
    _bstr_t m_sqlCmd;    //存储sql语句
    _ConnectionPtr m_pConnection;  //连接数据库对象指针
    _RecordsetPtr  m_pRecordSet;   //数据集对象指针
};

各个成员函数的实现直接贴代码吧。

AdoSql::AdoSql()
{
   m_pConnection = NULL;
   m_pRecordSet = NULL;
   InitialConn();
}

AdoSql::~AdoSql()
{

}

void AdoSql::InitialConn()
{
    //初始化COM组件
    ::CoInitialize(NULL);
    HRESULT hr = NULL;

    try
    {
        hr = m_pConnection.CreateInstance("ADODB.Connection");  //创建Connection对象
        //hr = m_pConnection.CreateInstance(__uuidof(Connection));作用同上

        //1、新建一个文件，名字任意取，后缀名必须为udl（如何hello.udl）
        //2、双击hello.udl文件，进入数据连接属性面板，填写好数据源（选择自己创建的数据源名字的）
        //3、再以记事本方式打开，第三行的数据就是连接字符

        //m_bstrConn = "Provider=SQLNCLI10.1;Integrated Security="";Persist Security Info=False;User ID=sa;Password=123456;Initial Catalog=WORK;Data Source="";Initial File Name="";Server SPN=""";
        m_bstrConn = "Provider=SQLNCLI10.1;Integrated Security="";Persist Security Info=False;Initial Catalog=WORK;Data Source="";Initial File Name="";Server SPN=""";

        hr = m_pConnection->Open(m_bstrConn, "sa", "123456", adModeUnknown);
        if (!SUCCEEDED(hr)) {
            AfxMessageBox("连接数据库失败");
        }
    }
    catch (_com_error e)
    {
        CString strErr;
        strErr.Format("连接数据库失败\n%s", e.ErrorMessage());
        AfxMessageBox(strErr);
    }
}

void AdoSql::GetRecordSet(CString bstrSqlCmd)
{
    m_sqlCmd = _bstr_t(bstrSqlCmd);
    //创建记录集指针对象实例
    m_pRecordSet.CreateInstance(__uuidof(Recordset));
    //打开记录集
    m_pRecordSet->Open(m_sqlCmd, m_pConnection.GetInterfacePtr(), adOpenDynamic, adLockOptimistic, adCmdText);
}

void AdoSql::ExcuteCmd(CString bstrSqlCmd)
{
    m_sqlCmd = _bstr_t(bstrSqlCmd);
    _variant_t RecordsAffected;

    try{
        m_pRecordSet = m_pConnection->Execute(m_sqlCmd, &RecordsAffected, adCmdText);
    }
    catch(_com_error e) {
        AfxMessageBox(e.ErrorMessage());
    }
}

void AdoSql::ExitConn()
{
    //关闭记录集和连接
    if (m_pRecordSet != NULL)
    {
        m_pRecordSet->Close();
    }
    m_pConnection->Close();
    ::CoUninitialize();
}

在对话框类里定义了一个显示数据到ListControl控件的函数

void CAdoSqlserverDlg::DispData()
{
    adoSql.GetRecordSet("select * from course");
    //初始化数据表
    m_List.SetExtendedStyle(m_List.GetExtendedStyle()|LVS_EX_FULLROWSELECT|LVS_EX_GRIDLINES);
    //先清空数据表
    m_List.DeleteAllItems();
    m_List.InsertColumn(0, "课程编号", LVCFMT_LEFT, 100);
    m_List.InsertColumn(1, "课程名称", LVCFMT_LEFT, 100);
    m_List.InsertColumn(2, "课程简称", LVCFMT_LEFT, 100);
    m_List.InsertColumn(3, "班级编号", LVCFMT_LEFT, 100);

    int i = 0;
    while(!adoSql.m_pRecordSet->adoEOF)
    {
        m_List.InsertItem(i, "");
        m_List.SetItemText(i, 0, (char*)(_bstr_t)adoSql.m_pRecordSet->GetCollect("课程编号"));
        m_List.SetItemText(i, 1, (char*)(_bstr_t)adoSql.m_pRecordSet->GetCollect("课程名称"));
        m_List.SetItemText(i, 2, (char*)(_bstr_t)adoSql.m_pRecordSet->GetCollect("课程简称"));
        m_List.SetItemText(i, 3, (char*)(_bstr_t)adoSql.m_pRecordSet->GetCollect("班级编号"));

        adoSql.m_pRecordSet->MoveNext();
        i++;
    }
    adoSql.ExitConn();
}

因为我希望打开对话框就显示数据，所以在BOOL CAdoSqlserverDlg::OnInitDialog()函数中我就调用了这个显示函数。

接下来一次编辑界面上4个按钮的响应函数
1、增加按钮：

void CAdoSqlserverDlg::OnButtonAdd() 
{
    // TODO: Add your control notification handler code here
    UpdateData();
    if (m_edit1=="" || m_edit2=="" || m_edit3=="" || m_edit4=="") {
        MessageBox("输入数据不完整！");
        return;
    }
    CString strCmd;
    strCmd.Format("insert into course values('%s','%s','%s','%s')", m_edit1,m_edit2,m_edit3,m_edit4);

    adoSql.InitialConn();
    adoSql.ExcuteCmd(strCmd);
    DispData();
}

2、修改按钮：

void CAdoSqlserverDlg::OnButtonModify() 
{
    // TODO: Add your control notification handler code here
    UpdateData();
    if (m_edit1=="" || m_edit2=="" || m_edit3=="" || m_edit4=="") {
        MessageBox("输入数据不完整！");
        return;
    }
    CString strCmd;
    strCmd.Format("update course set 课程编号='%s', 课程名称='%s', 课程简称='%s', 班级编号='%s' where 课程编号='%s'", m_edit1, m_edit2, m_edit3, m_edit4, m_selectCourseSN);

    adoSql.InitialConn();
    adoSql.ExcuteCmd(strCmd);
    DispData();
}

3、删除按钮：

void CAdoSqlserverDlg::OnButtonDelete() 
{
    // TODO: Add your control notification handler code here
    CString strCmd;
    strCmd.Format("delete from course where 课程编号='%s'", m_selectCourseSN);

    adoSql.InitialConn();
    adoSql.ExcuteCmd(strCmd);
    DispData();
}

4、清空按钮：

void CAdoSqlserverDlg::OnButtonClear() 
{
    // TODO: Add your control notification handler code here
    CString strCmd;
    strCmd.Format("delete from course", m_selectCourseSN);

    adoSql.InitialConn();
    adoSql.ExcuteCmd(strCmd);
    DispData();
}