vc++中利用ado和listcontrol控件进行数据库应用开发的一点总结

ado，全称 Activex Data Objects,他是微软公司为数据库应用程序开发的com集合。ado模型简单易学，功能强大，数据快。ado中包含7个核心对象，和4个集合：

对象：Connection,Command,Recordset,Field,Parameter,Error,Property
集合：parameters,fields,properties,errors

在本文中我们不对ado本身做太多的描述，只讲解其在vc++中的使用技巧。如果您对ado还很陌生，建议先阅读相关书籍。

如果想使用ADO,需要在要使用ADO的c++程序的头文件(*.h)中加入如下代码,引入ado对象：

#import c:programe filescommon filessystemadomsado15.dll no_namespace rename( " EOF, " ADOEOF " ) rename( " BOF " , " ADOBOF " )

 默认情况下msado15 位于c:/program files/common files/system/ado/ 。 我们一般都是按照上面的写法书写，当然也可以指定一个名称空间，或者将EOF 和 BOF 更名为其他什么的，都可以。

如果想使用ADO，还需要对OLE/COM库进行初始化。

::CoInitialize ( NULL ) ;

定义并实例化一个connection对象的方法如下：注意虽然conn是一个指针，但是依然不用->，因为CreateInstance是指针的方法。

_ConnectionPtr  conn;
conn.CreateInstance( " adodb.connection " );

打开一个数据库连接的方法如下，以access数据库为例。

_bstr_t connsql = " provider=microsoft.jet.oledb.4.0;data source=northsnow.mdb " ;
conn -> Open(connsql, "" , "" ,adModeUnknown);

定义一个记录及对象，初始化，打开一个记录集的方法如下：

_RecordsetPtr rs;
rs.CreateInstance( " adodb.recordset " );
rs -> Open( " select * from t order by a " ,conn.GetInterfacePtr(),adOpenStatic,adLockReadOnly,adCmdText);
        

利用conn对象直接执行sql语句的方法如下：

_variant_t dC;
_bstr_t sql = " delete from t where a= "   +  m_l.GetItemText(nSelected,NULL);

conn -> Execute(sql, & dC,adCmdText);
if (dC.lVal >= 0 )
... {
　　//删除成功;
}

由于ado会经常出现莫名其妙的错误，所以需要用try/catch捕捉错误。

一个相对较完整的代码如下：

 

// 初始化ado
bool  CAdo1Dlg::initAdo()
... {

    if(conn==NULL)
    ...{
        ::CoInitialize(NULL);
        HRESULT hr;
        hr=conn.CreateInstance("adodb.connection");
        try
        ...{
            hr=conn.CreateInstance("adodb.connection");
            if(SUCCEEDED(hr))
            ...{
                conn->Open("provider=microsoft.jet.oledb.4.0;data source=db.mdb","","",adModeUnknown);
            }
            return 1;
        }
        catch(_com_error e)
        ...{
            CString strError;
            strError.Format("error:%s",e.Description());
            AfxMessageBox(strError);
            return 0;
        }
    
    }
    else
    ...{
        return 1;
    }
}



// 添加listcontrol列头
　　　　　m_l.SetExtendedStyle(LVS_EX_GRIDLINES  |  LVS_EX_FULLROWSELECT);
    m_l.InsertColumn( 0 , " code " ,LVCFMT_RIGHT, 50 );
    m_l.InsertColumn( 1 , " name " ,LVCFMT_LEFT, 100 );
    m_l.InsertColumn( 2 , " age " ,LVCFMT_RIGHT, 50 );
    m_l.InsertColumn( 3 , " birth " ,LVCFMT_RIGHT, 200 );

// 向listcontrol添加内容：

void  CAdo1Dlg::LoadData()
... {
    m_l.DeleteAllItems();
    if(initAdo()==1)
    ...{
        _RecordsetPtr rs;
        HRESULT hr;
        int i=0;
        try
        ...{
            rs.CreateInstance("adodb.recordset");
            rs->Open("select * from t order by a",conn.GetInterfacePtr(),adOpenStatic,adLockReadOnly,adCmdText);
            while(!rs->ADOEOF)
            ...{
                m_l.InsertItem(i,(LPCTSTR)(_bstr_t)rs->GetCollect("a"));
                m_l.SetItemText(i,1,(LPCTSTR)(_bstr_t)rs->GetCollect("b"));
                m_l.SetItemText(i,2,(LPCTSTR)(_bstr_t)rs->GetCollect("c"));
                m_l.SetItemText(i,3,(LPCTSTR)(_bstr_t)rs->GetCollect("d"));
                i++;
                rs->MoveNext();
            }
        }
        catch(_com_error e)
        ...{
            AfxMessageBox(e.Description());
        }
    }
}


// 向数据库添加信息
    UpdateData( true );
     if (m_b.GetLength() == 0 )
     ... {
        AfxMessageBox("a项不能为空！",NULL,NULL);
    }
    CString strD  =  m_d.Format( " %Y-%m-%d %H:%M:%S " ); 
    _bstr_t sql = " insert into t(b,c,d) values(' "   +  m_b  +   " ', "   +  CStr(m_c)  +   " ,' "   +  strD  +   " ') " ;
    AfxMessageBox(sql);
     try
     ... {
        if(initAdo()==1)
        ...{
            conn->Execute(sql,NULL,adCmdText);
        }        
    }
     catch (_com_error e)
     ... {
        CString strError;
        strError.Format("error:%s",e.Description());
        AfxMessageBox(strError,NULL,NULL);
    }

// 删除一条信息
     if (MessageBox( " do you really want to delete the infomation? " , " prompt " , 1 ) == IDOK)
     ... {
        int nSelected=-1;
        nSelected=m_l.GetNextItem(nSelected,LVNI_SELECTED);
        if(nSelected>=0)
        ...{
            if(initAdo()==1)
            ...{
                _variant_t dC;
                _bstr_t sql="delete from t where a=" + m_l.GetItemText(nSelected,NULL);
                try
                ...{
                    conn->Execute(sql,&dC,adCmdText);
                    if(dC.lVal>=0)
                    ...{
                        LoadData();
                    }
                }
                catch(_com_error e)
                ...{
                    AfxMessageBox(e.Description());
                }
            }
        }
    }

// 两个类型转换的程序：

CString CAdo1Dlg::CStr( long  s)
... {
   CString mm;
   mm.Format("%d",s);
   return mm;
}

CString CAdo1Dlg::DblToStr( double  s)
... {

   CString mm;
   mm.Format("%f",s);
   return mm;
}

 

上面的程序中只包含了核心的代码。没有包含一些界面设置，变量的定义等细节信息。所以请借用代码的时候注意一下。

代码中还有几项需要注意：

1,catch　捕捉的错误的类型为 _com_error,其产生的错误描述信息为:　e.Description()

2,listcontrol中获得当前选择行的方法为：

int  nSelected =- 1 ;
nSelected = m_l.GetNextItem(nSelected,LVNI_SELECTED);

３，listcontrol中获得当前选择行的某个itemtext的方法为：

m_l.GetItemText ( nSelected,NULL )
// 其中第二个参数表示是第几个subitem。如果为NULL,则表示为Item

当关闭记录集的时候为如下代码：

 

if (rs != NULL)
   rs -> Close();
if (conn != NULL)
   conn -> Close();
::CoUninitialize (); 

 

基本上就是这些。