VC++下使用ADO编写数据库程序(关键文章)
| 标题 VC++下使用ADO编写数据库程序 |
| 类别 编程珠矶 |
| 日期 07年02月09日 |
| 长度 9298 Bytes [Copy to clipboard] |
|
VC
++下使用
ADO
编写数据库程序
准备： ( 1 )、引入 ADO 类 #import "c:\program files\common files\system\ado\msado15.dll" \ no_namespace \ rename ( "EOF" , "adoEOF" ) ( 2 )、初始化 COM 在 MFC 中可以用 AfxOleInit ();非 MFC 环境中用: CoInitialize ( NULL ); CoUnInitialize (); ( 3 ) #import 包含后就可以用3个智能指针了:_ConnectionPtr、_RecordsetPtr和_CommandPtr 1 .连接和关闭数据库 ( 1 )连接 一般在 App 类成员函数 InitInstance ()里初始化 例子:连接 Access 数据库 AfxOleInit (); //初始化 HRESULT hr ; try { hr = m_pConnection . CreateInstance ( "ADODB.Connection" ); ///创建Connection对象 if ( SUCCEEDED ( hr )) { m_pConnection -> ConnectionTimeout = 0 ; hr = m_pConnection -> Open ( "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db.mdb" , "" , "" , adModeUnknown ); //m_pConnection->PutDefaultDatabase ((_bstr_t)"DB");//设置默认数 据库 m_pCommand . CreateInstance ( __uuidof ( Command )); m_pCommand -> CommandTimeout = 5 ; m_pCommand -> ActiveConnection = m_pConnection ; } } catch ( _com_error e ) ///捕捉异常 { CString errormessage ; errormessage . Format ( "连接数据库失败!\r\n错误信息:%s" , e . ErrorMessage ()); AfxMessageBox ( errormessage ); ///显示错误信息 return FALSE ; } ( 2 )、关闭 一般在 App 类成员函数 InitInstance ()里关闭数据库连接 //如果数据库连接有效 if ( m_pConnection -> State ) m_pConnection -> Close (); m_pConnection = NULL ; ( 3 )、设置连接时间 //设置连接时间----------------------------------- pConnection -> put_ConnectionTimeout ( long ( 5 )); 2 .打开一个结果集 ( 1 )打开,首先创建一个 _RecordsetPtr 实例,然后调用 Open ()得到一条 SQL 语句的执行结果 _RecordsetPtr m_pRecordset ; m_pRecordset . CreateInstance ( __uuidof ( Recordset )); // 在ADO操作中建议语句中要常用try...catch()来捕获错误信息， // 因为它有时会经常出现一些意想不到的错误。jingzhou xu try { m_pRecordset -> Open ( "SELECT * FROM DemoTable" , // 查询DemoTable表中所有字段 m_pConnection . GetInterfacePtr (), // 获取库接库的IDispatch指针 adOpenDynamic , adLockOptimistic , adCmdText ); } catch ( _com_error * e ) { AfxMessageBox ( e -> ErrorMessage ()); } ( 2 )关闭结果集 m_pRecordset -> Close (); m_pRecordset = NULL ; 3 .操作一个结果集 ( 1 )、遍历(读取) a )、用 pRecordset -> adoEOF 来判断数据库指针是否已经移到结果集的末尾了； m_pRecordset -> BOF 判断是否 在第一 条记录前面： while (! m_pRecordset -> adoEOF ) { var = m_pRecordset -> GetCollect ( "Name" ); if ( var . vt != VT_NULL ) strName = ( LPCSTR ) _bstr_t ( var ); var = m_pRecordset -> GetCollect ( "Age" ); if ( var . vt != VT_NULL ) strAge = ( LPCSTR ) _bstr_t ( var ); m_AccessList . AddString ( strName + " --> " + strAge ); m_pRecordset -> MoveNext (); } b )、取得一个字段的值的办法有两种办法 一是 //表示取得第0个字段的值 m_pRecordset->GetCollect("Name"); 或者 m_pRecordset -> GetCollect ( _variant_t ( long ( 0 )); 二是 pRecordset -> get_Collect ( "COLUMN_NAME" ); 或者 pRecordset -> get_Collect ( long ( index )); ( 2 )、添加 a )、调用 m_pRecordset -> AddNew (); b )、调用 m_pRecordset -> PutCollect ( "Name" , _variant_t ( m_szName ));给每个字段赋值( m_szName 为控件所对应的字符串变量) c )、调用 m_pRecordset -> Update ();确认 // 添加完后可读取显示 对于 MFC 有些控件显示需要更新(比如 ListBox ) ( 3 )、修改 ( 4 )、删除 a )、把记录指针移动到要删除的记录上,然后调用 Delete ( adAffectCurrent ) try { // 假设删除第二条记录 m_pRecordset -> MoveFirst (); m_pRecordset -> Move ( 1 ); // 从0开始 m_pRecordset -> Delete ( adAffectCurrent ); // 参数adAffectCurrent为删除当前记录 m_pRecordset -> Update (); } catch ( _com_error * e ) { AfxMessageBox ( e -> ErrorMessage ()); } 4 .直接执行 SQL 语句,除了要用到结果集其余的大部分功能都可以直接用 SQL 语言实现 ( 1 )、用 _CommandPtr 和 _RecordsetPtr 配合 _CommandPtr m_pCommand ; m_pCommand . CreateInstance ( __uuidof ( Command )); // 将库连接赋于它 m_pCommand -> ActiveConnection = m_pConnection ; // SQL语句 m_pCommand -> CommandText = "SELECT * FROM DemoTable" ; // 执行SQL语句，返回记录集 m_pRecordset = m_pCommand -> Execute ( NULL , NULL , adCmdText ); ( 2 )、直接用 _ConnectionPtr 执行 SQL 语句 _RecordsetPtr Connection15 :: Execute ( _bstr_t CommandText , VARIANT * RecordsAffected , long Options ) 其中 CommandText 是命令字串，通常是 SQL 命令。 参数 RecordsAffected 是操作完成后所影响的行数, 参数 Options 表示 CommandText 中内容的类型， Options 可以取如下值之一： adCmdText :表明 CommandText 是文本命令 adCmdTable :表明 CommandText 是一个表名 adCmdProc :表明 CommandText 是一个存储过程 adCmdUnknown :未知 例子: _variant_t RecordsAffected ; m_pConnection -> Execute ( "UPDATE users SET old = old+1" ,& RecordsAffected , adCmdText ); 5 .调用存储过程 ( 1 )、利用 _CommandPtr _CommandPtr m_pCommand ; m_pCommand . CreateInstance ( __uuidof ( Command )); m_pCommand -> ActiveConnection = m_pConnection ; // 将库连接赋于它 m_pCommand -> CommandText = "Demo" ; m_pCommand -> Execute ( NULL , NULL , adCmdStoredProc ); ( 2 )、直接用 _ConnectionPtr 直接调用(见 4 .( 2 )) 6 .遍历数据库中的所有表名 _ConnectionPtr m_pConnect ; _RecordsetPtr pSet ; HRESULT hr ; try { hr = m_pConnect . CreateInstance ( "ADODB.Connection" ); if ( SUCCEEDED ( hr )) { CString dd ; dd . Format ( "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s" , file ); hr = m_pConnect -> Open (( _bstr_t ) dd , "" , "" , adModeUnknown ); pSet = m_pConnect -> OpenSchema ( adSchemaTables ); while (!( pSet -> adoEOF )) { //获取表格 _bstr_t table_name = pSet -> Fields -> GetItem ( "TABLE_NAME" )- > Value ; //获取表格类型 _bstr_t table_type = pSet -> Fields -> GetItem ( "TABLE_TYPE" )- > Value ; //过滤一下，只输出表格名称，其他的省略 if ( strcmp ((( LPCSTR ) table_type ), "TABLE" )== 0 ){ CString tt ; tt . Format ( "%s" ,( LPCSTR ) table_name ); AfxMessageBox ( tt ); } pSet -> MoveNext (); } pSet -> Close (); } m_pConnect -> Close (); } catch ( _com_error e ) ///捕捉异常 { CString errormessage ; errormessage . Format ( "连接数据库失败!rn错误信息:%s" , e . ErrorMessage ()); AfxMessageBox ( errormessage ); return - 1 ; } 7 .遍历一个表中的所有字段 Field * field = NULL ; HRESULT hr ; Fields * fields = NULL ; hr = m_pRecordset -> get_Fields (& fields ); //得到记录集的字段集和 if ( SUCCEEDED ( hr )) fields -> get_Count (& ColCount ); //得到记录集的字段集合中的字段的总个数 for ( i = 0 ; iItem [ i ]-> get_Name (& bstrColName ); //得到记录集//中的字段名 strColName = bstrColName ; nameField = strColName ; m_FieldsList . AddString ( nameField ); } if ( SUCCEEDED ( hr )) fields -> Release (); //释放指针 附: 1 、 _variant_t ( 1 )、一般传给这 3 个指针的值都不是 MFC 直接支持的数据类型,而要用 _variant_t 转换一下 _variant_t ( XX )可以把大多数类型的变量转换成适合的类型传入： ( 2 )、 _variant_t var ; _variant_t -> long : ( long ) var ; _variant_t -> CString : CString strValue = ( LPCSTR ) _bstr_t ( var ); CString -> _variant_t : _variant_t ( strSql ); 2 、 BSTR 宽字符串与 CString 相互转换 BSTR bstr ; CString strSql ; CString -> BSTR : bstr = strSql . AllocSysString (); BSTR -> CString : strSql = ( LPCSTR ) bstr ; 3 、 _bstr_t 与 CString 相互转换 _bstr_t bstr ; CString strSql ; CString -> _bstr_t : bstr = ( _bstr_t ) strSql ; _bstr_t -> CString : strSql = ( LPCSTR ) bstr ; 4 、关于时间 Access :表示时间的字符串 #2004-4-5# Sql :表示时间的字符串 '' 2004 - 4 - 5 '' DateField (时间字段) select * from my_table where DateField > #2004-4-10# try { m_pCommand -> CommandText = "INSERT INTO tTest(age) VALUES('23f2') " ; m_pRecordset = m_pCommand -> Execute ( NULL , NULL , adCmdText ); } catch ( _com_error e ) ///捕捉异常 { CString errormessage ; errormessage . Format ( "连接数据库失败!\r\n错误信息:%s" , e . ErrorMessage ()); AfxMessageBox ( errormessage ); ///显示错误信息 } |
|
CopyRight By CoolDiyer All Rights Reserved
|