【導(dǎo)讀】一個(gè)數(shù)據(jù)庫智能檢索接口系統(tǒng)—錄取分?jǐn)?shù)查詢。利用Ado實(shí)現(xiàn)了數(shù)據(jù)的存取。

　　

【正文】 方法獲取數(shù)據(jù)庫的表信息。 Connection 對象是 ADO 的基本對象之一 ,它獨(dú)立于所有其他的對象。如果我們要對數(shù)據(jù)庫進(jìn)行查詢操作 ,既可以使用 Execute 方法 ,也可以使用 Command 對象。使用 Execute 方法比較簡便 ,但用 Command對象可以保存命令的信息 ,以便多次查詢。 (2) Command 對象 Command 對象代表一個(gè)命令 ,可以通過其方法執(zhí)行針對數(shù)據(jù)源的有關(guān)操作 ,比如查詢、修改等。 Command 對象的用法下 : CommandText 屬性設(shè)置命令串。 Parameters 集合屬性和 Parameter 對象定義參數(shù)化查詢或存儲過程的參數(shù)。 Execute 方法執(zhí)行命令 ,可能的話返回 Recordset 對象。 ,可通過設(shè) CommandType 屬性以便優(yōu)化性能。 Prepared 屬性指示底層的提供者為當(dāng)前命令準(zhǔn)備一個(gè)編譯過的版本 ,以后再執(zhí)行時(shí) ,速度會大大加快。 CommandTimeOut 屬性設(shè)置命令執(zhí)行的超時(shí)值 (以秒為單位 )。 ActiveConnection 屬性 ,為命令指定連接串 ,Command 對象將在內(nèi)部創(chuàng)建 C onnection 對象。 Name 屬性 ,這樣以后可以在相應(yīng)的 Connection 對象上按 Name 屬性指定的方法名執(zhí)行。 Command 對象執(zhí)行時(shí) ,既可以通過 ActiveConnection 屬性指定相連的 Connection 對象 ,也可以獨(dú)立于 Connection 對象 ,直接指定連接串 ,即使連接串與 Connection 對象的連接串相同 ,Command 對象仍然使用其內(nèi)部的數(shù)據(jù)源連接。 (3)Recordset 對象 Recordset 對象代表一個(gè)表的記錄集或者命令執(zhí)行的結(jié)果 ,在記錄集中 ,總是有一個(gè)當(dāng)前的記錄。記錄集是 ADO 管理數(shù)據(jù)的基本對象 ,所有的 Recordset 對象都 按照行列方式的表狀結(jié)構(gòu)進(jìn)行管理 ,每一行對應(yīng)一個(gè)記錄 (Record),每一列對應(yīng)一個(gè)域 (Field)。Recordset 對象也通過游標(biāo)對記錄進(jìn)行訪問 ,在 ADO 中 ,游標(biāo)分為以下4 種 : 靜態(tài)游標(biāo)提供對數(shù)據(jù)集的一個(gè)靜態(tài)拷貝 ,允許各種移動操作 ,包括前移、后移等等 ,但其他用戶所做的操作反映不出來。動態(tài)游標(biāo)允許各種移動操作 ,包括前移、后移等等 ,并且其他用戶所做的操作也可以直接反映出來。前向游標(biāo)允許各種前向移動操作 ,不能向后移動 ,并且其他用戶所做的操作也可以直接反映出來。 鍵集 (keyset)游標(biāo) 類似 于動態(tài)游標(biāo) ,也能夠看到其他用戶所做的數(shù)據(jù)修改 ,但不能看到其他用戶新加的記錄 ,也不能訪問其他用戶刪除的記錄。 Recordset 對象的用法如下 : CursorType 屬性設(shè)置游標(biāo)類型。 Open 方法打開記錄集數(shù)據(jù) ,既可以在 Open 之前對ActiveConnection屬性賦值 , 指定 Recordset對象使用連接對象 ,也可以直接在 Open 方法中指定連接串參數(shù) ,ADO 將創(chuàng)建一個(gè)內(nèi)部連接 ,即使連接串與外部的連接對象相同 ,它也使用新的連接對象。 對象剛打開時(shí) ,當(dāng)前記錄被定位在首條記錄 ,并且 BOF和 EOF標(biāo)志屬性為 F alse,如果當(dāng)前記錄集為空記錄集 ,則 BOF 和 EOF標(biāo)志屬性為 True。 MoveFirst、 MoveLast、 MoveNext 和 MovePrevious 方法可以對記錄集的游標(biāo)進(jìn)行移動操作。如果 OLE DB 提供者支持相關(guān)功能的話 ,可以使用 AbsolutePosition、 Absol utePage 和 Filter 屬性對當(dāng)前記錄重新定位。 提供了兩種記錄修改方式 :立即修改和批修改。在立即修改方式 下 ,一旦調(diào)用 U pdate 方法 ,則所有對數(shù)據(jù)的修改立即被寫到底層的數(shù)據(jù)源 。 在批修改方式下 ,可以對多條記錄進(jìn)行修改 ,然后調(diào)用UpdateBatch 方法把所有的修改遞交到底層數(shù)據(jù)源。遞交之后 ,可以用Status 屬性檢查數(shù)據(jù)沖突。 Recordset 對象是 ADO 數(shù)據(jù)操作的核心 ,它既可以作為 Connection對象或 Command 對象執(zhí)行特定方法的結(jié)果數(shù)據(jù)集 ,也可以獨(dú)立于這兩個(gè)對象而使用 ,由此可以看出 ADO 對象在使用上的靈活性。 上面 3 個(gè)對象都包含一個(gè) Property 對象集合的屬性 ,通過 Property對象可使 ADO 動態(tài)暴露出底層 OLE DB 提供者的性能。由于并不是所有的底層提供者都有同樣的性能 ,所以 ADO 允許用戶動態(tài)訪問底層提供者的能力。這樣既使得 ADO 很靈活 ,又提供了很好的擴(kuò)展性。ADO 的其他集合對象及其元素對象 ,都用在特定的上下文環(huán)境中 ,比如 Parameter 對象一定要與某個(gè) Command 對象相聯(lián)系后 ,才能真正起作用。而另外三個(gè)對象 Field、 ErrorProperty 對象只能依附于其父對象 ,不能單獨(dú)創(chuàng)建這些對象。 第四章 總體設(shè)計(jì) 系統(tǒng)模塊分析 整個(gè)系統(tǒng)分為六個(gè)部分。 （ 1）數(shù)據(jù)庫的創(chuàng)建，建立詞典，年份、省份、專業(yè)、科類原始表。考試信息表。 （ 2）數(shù)據(jù)庫操作。 （ 3）同義詞輸入。 （ 4）切詞。 （ 5）生成查詢語言。 （ 6）產(chǎn)生查詢結(jié)果。 系統(tǒng)結(jié)構(gòu)圖 數(shù)據(jù)據(jù) 操 作 作 開始 結(jié)束 數(shù)據(jù)庫創(chuàng)建 同義詞輸 入入 建立詞典 建立年份科類 建立省份專業(yè) 建立考試信息 數(shù)據(jù)存取 輸入檢查 產(chǎn)生查詢結(jié)果傳輸 同義詞入庫 生成查詢語言傳輸 成員變量 CAccountAdo Ado,Adod。 數(shù)據(jù)庫操作類 CString strKeyWord[8]。 輸入自然語言的關(guān)鍵詞 CString strYear[8]。 輸入自然語 言的年份關(guān)鍵詞 第五章 查詢程序系統(tǒng)的實(shí)現(xiàn) 數(shù)據(jù)庫操作類 AccountAdo 讀數(shù)據(jù)庫字段數(shù)據(jù) variant_t CAccountAdo::GetTable(CString TableName) { return m_pRecordsetGetCollect(_variant_t(TableName))。 } 保存數(shù)據(jù)庫字段數(shù)據(jù) bool CAccountAdo::Add_Field(LPCSTR FieldName,LPCSTR RealData,int Data_Type) { try{ switch (Data_Type){ case 0: m_pRecordsetFieldsGetItem(_variant_t(FieldName))Value=RealData。 break。 case 2: m_pRecordsetFieldsGetItem(_variant_t(FieldName))Value=short(atoi(RealData))。 break。 case 3: m_pRecordsetFieldsGetItem(_variant_t(FieldName))Value=long(atol(RealData))； break。 case 4: m_pRecordsetFieldsGetItem(_variant_t(FieldName))Value=atof(RealData)。 break。 } return true。 } catch( __error amp。e ) { dump__error(e)。 } return false。 } 打開數(shù)據(jù)庫 bool CAccountAdo::OpenBase() { HRESULT hr = S_OK。 try{ hr = (_uuidof(Connection))。///創(chuàng)建 Connection 對象 if(SUCCEEDED(hr)) { hr=m_pConnectionOpen(LINK_CHAR,adModeUnknown)。 } else { ::MessageBox(NULL,ERROR 。 , 提示 ,MB_OK | MB_ICONWARNING)。 } hr=()。 m_pRecordsetCursorLocation=adUseClient。 return hr == S_OK。 } catch( __error amp。e ) { dump__error(e)。 } return false。 } 打開表 bool CAccountAdo::OpenRecord(LPCSTR lpSqlstring) { HRESULT hr = S_OK。 try { m_pRecordsetOpen(lpSqlstring \ ,_variant_t((IDispatch*)m_pConnection,true),adOpenStatic, adLockOptimistic,adCmdText)。 return hr == S_OK。 } catch(__error amp。e) { dump__error(e)。 } return false。 } 同義詞典輸入 CString strSQL,strTmp,strBuf。 int intProvince,intWord。 UpdateData(true)。 ()。 ()。 if(()0) { dis_status(類別未選擇 !!)。 return。 } ((),strBuf)。 intProvince=atoi((LPCSTR)(()))。 if(()0) { dis_status(字典未選擇 !!)。 return。 } ((),strBuf)。 strTmp=strBuf。 intWord=atoi((LPCSTR)(()))。 if(()=0) { dis_status(輸入新語義 )。 return。 } (select * from dictionary where trim(name)=39。%s39。 \ and table_id=%d and word_id=%d,(LPCSTR)m_edit3,intProvince,intWord)。 //AfxMessageBox(strSQL)。 ()。 if(!(strSQL)) { dis_status(打開字典表錯(cuò) )。 ()。 return。 } if(()) { dis_status(語義已存在 )。 ()。 return。 } ()。 (name,(LPCSTR)m_edit3,0)。 (%d,intProvince)。 (table_id,(LPCSTR)strBuf,2)。 (%d,intWord)。 (word_id,(LPCSTR)strBuf,2)。 (status,1,2)。 (%d,())。 (length,(LPCSTR)strBuf,2)。 ()。 m_edit4=m_edit3。 m_edit3=。 m_edit5=(()()2)。 UpdateData(false)。 ()。 ()。 查詢實(shí)現(xiàn) 流程圖 CString strBuf,strTmp,strSpace。 char szBuf[10]。 bool bResult。 bool bFind。 unsigned char ch。 int i,len,k,j。 len=0。 //CS