VB課程設(shè)計(jì)論文

1、 課程設(shè)計(jì) 學(xué) 號(hào) -班 級(jí) -姓 名 指導(dǎo)教師 年 月 日課程設(shè)計(jì)任務(wù)書學(xué)院：xxxxxxxxxx 專業(yè)：xxxx 班級(jí)：xxxxxxx學(xué)號(hào)：xxxxxxxxxxxxx 題目：數(shù)據(jù)庫(kù)數(shù)據(jù)的導(dǎo)入與導(dǎo)出一、課程設(shè)計(jì)時(shí)間2012年3月5日17日（第1、2周），共計(jì)2周。二、課程設(shè)計(jì)內(nèi)容將一個(gè)文本文件（file01_數(shù)據(jù)的導(dǎo)入.txt）中的數(shù)據(jù)導(dǎo)入到access的某個(gè)數(shù)據(jù)表中，并顯示相應(yīng)的內(nèi)容；再將數(shù)據(jù)庫(kù)的某一個(gè)表中的數(shù)據(jù)導(dǎo)出到一個(gè)文本文件中，并顯示相應(yīng)的內(nèi)容。要求使用commondialog控件和datagrid控件。導(dǎo)入提示： 依據(jù)文本文件內(nèi)容，先在access數(shù)據(jù)庫(kù)中創(chuàng)建出相應(yīng)的表。一方面，用

2、ado數(shù)據(jù)控件打開表；另一方面用文件訪問技術(shù)讀取給定的文本文件中的內(nèi)容，并添加到數(shù)據(jù)庫(kù)表中。三、課程設(shè)計(jì)要求程序質(zhì)量： 貫徹事件驅(qū)動(dòng)的程序設(shè)計(jì)思想。 用戶界面友好，修飾適宜，功能明確，操作方便；適當(dāng)增加12項(xiàng)其它功能。 代碼應(yīng)規(guī)范(適當(dāng)縮進(jìn)、必要的注釋)，以增強(qiáng)程序的可讀性。課程設(shè)計(jì)說明書： 課設(shè)結(jié)束后，上交課程設(shè)計(jì)說明書和源程序。課程設(shè)計(jì)說明書的內(nèi)容參見提供的模板。四、指導(dǎo)教師和學(xué)生簽字指導(dǎo)教師：_ 學(xué)生簽名：_五、成績(jī)目 錄一、需求分析4二、設(shè)計(jì)分析5三、技術(shù)要點(diǎn)6四、總結(jié)10五、完整的源程序11六、參考文獻(xiàn)12一、需求分析 將一個(gè)文本文件（file01_數(shù)據(jù)的導(dǎo)入.txt）中的數(shù)據(jù)導(dǎo)入到

3、access的數(shù)據(jù)表中，并顯示相應(yīng)的內(nèi)容；再將數(shù)據(jù)庫(kù)access表中的數(shù)據(jù)導(dǎo)出到一個(gè)文本文件中，并顯示相應(yīng)的內(nèi)容。要求：使用commondialog控件使用datagrid控件。分析：導(dǎo)入：依據(jù)文本文件內(nèi)容，先在access數(shù)據(jù)庫(kù)中創(chuàng)建出相應(yīng)的表；一方面，用ado數(shù)據(jù)控件打開表；另一方面用文件訪問技術(shù)讀取給定的文本文件中的內(nèi)容，并添加到數(shù)據(jù)庫(kù)表中。導(dǎo)出：用sql語(yǔ)句，將數(shù)據(jù)庫(kù)的每個(gè)字段的記錄讀取出來(lái)，依次寫入文本文檔中。二、設(shè)計(jì)分析基本原理：用sql語(yǔ)句添加數(shù)據(jù)和讀取數(shù)據(jù)?？傮w設(shè)計(jì)：導(dǎo)入：sql語(yǔ)言處理數(shù)據(jù)庫(kù)ado技術(shù)連接導(dǎo)出：保存文件數(shù)據(jù)庫(kù)sql語(yǔ)言處理圖1 總體設(shè)計(jì)詳細(xì)設(shè)計(jì)： 開始讀取數(shù)據(jù)

4、寫入數(shù)據(jù)保存導(dǎo)入表格讀取文件建立數(shù)據(jù)表圖2 詳細(xì)設(shè)計(jì)三、技術(shù)要點(diǎn)建立與數(shù)據(jù)庫(kù)的連接代碼：dim cn as adodb.connection 定義數(shù)據(jù)庫(kù)的連接 private sub form_load()set cn = new adodb.connection 建立新的數(shù)據(jù)庫(kù)連接cn.connectionstring = provider=microsoft.jet.oledb.4.0;data source=biao.mdb;persist security info=false 設(shè)置連接對(duì)象的“連接字符串”屬性cn.open 打開文件end sub讀取文本文檔：dim number$,

5、 name$, price$, store$dim sqlstr$ open file01_數(shù)據(jù)的導(dǎo)入.txt for input as #1 打開文件讀取數(shù)據(jù) do while not eof(1) input #1, number, name, price, store 將文件內(nèi)容賦予變量 sqlstr = insert into 庫(kù)存 values( & trim(number) & , & trim(name) & , & trim(price) & , & trim(store) & ) 用sql語(yǔ)句將數(shù)據(jù)插入到數(shù)據(jù)庫(kù) cn.execute (sqlstr) 執(zhí)行sql語(yǔ)句 loop

6、close #1用sql語(yǔ)句讀取數(shù)據(jù)庫(kù)并導(dǎo)出：open commondialog1.filename & .txt for output as #1 打開文件寫入數(shù)據(jù) for n = 0 to cnn.fields.count - 1 conct = conct & cnn.fields(n).name & 通過循環(huán)將每個(gè)字段的名字串聯(lián)起來(lái) next print #1, conct 寫出每個(gè)字段名 cnn.movefirst 移動(dòng)到第一條記錄 do while not cnn.eof 循環(huán)讀取記錄 conct = 清空連接字符的變量 for n = 0 to cnn.fields.count

7、- 1 conct = conct & cnn.fields(n) & , 通過循環(huán)將每條記錄的不同字段連在一起 next cnn.movenext 移動(dòng)到下一條記錄 print #1, conct 寫出每條記錄的內(nèi)容 loop截圖：access表格：窗體設(shè)計(jì)：運(yùn)行中的窗體：導(dǎo)入后的表格：導(dǎo)出：四、總結(jié)本次我的vb課程設(shè)計(jì)的題目是數(shù)據(jù)庫(kù)數(shù)據(jù)的導(dǎo)入和導(dǎo)出?？梢灾苯討?yīng)用ado控件建立與數(shù)據(jù)庫(kù)的鏈接，使用sql語(yǔ)句可以直接對(duì)數(shù)據(jù)庫(kù)進(jìn)行更改。剛開始時(shí)，一點(diǎn)頭緒也沒有。在查看了教材以及其他類書籍后，有了些頭緒。在編輯數(shù)據(jù)的導(dǎo)入的過程中，在執(zhí)行cnn.execute(sqlstr)時(shí)，總是出錯(cuò)。將數(shù)據(jù)庫(kù)的

8、建立更改之后，程序可以運(yùn)行。剩下的部分在同學(xué)的幫助下以及參考了謝書籍后，終于將程序編完了。在設(shè)計(jì)的過程中雖然遇到了諸多困難，但最終的成功很有成就感。此次課設(shè)讓我體會(huì)到vb的重要性以及它存在的意義。 五、完整的源程序dim cn as adodb.connection 定義數(shù)據(jù)庫(kù)的連接private sub command1_click()dim number$, name$, price$, store$dim sqlstr$ open file01_數(shù)據(jù)的導(dǎo)入.txt for input as #1 打開文件讀取數(shù)據(jù) do while not eof(1) input #1, number,

9、 name, price, store 將文件內(nèi)容賦予變量 sqlstr = insert into 庫(kù)存 values( & trim(number) & , & trim(name) & , & trim(price) & , & trim(store) & ) 用sql語(yǔ)句將數(shù)據(jù)插入到數(shù)據(jù)庫(kù) cn.execute (sqlstr) 執(zhí)行sql語(yǔ)句 loop close #1msgbox 導(dǎo)入完畢!set datagrid1.datasource = adodc1 顯示數(shù)據(jù)庫(kù)內(nèi)容adodc1.refreshend subprivate sub command2_click()set cnn

10、 = new adodb.recordset 定義記錄集dim sqlstr$, conct$ 定義連接字符串和連接字符的變量 sqlstr = select * from 庫(kù)存 查詢數(shù)據(jù)庫(kù)的所有內(nèi)容 cnn.open sqlstr, cn, 1, 3 執(zhí)行sql語(yǔ)句 if cnn.eof then msgbox 數(shù)據(jù)庫(kù)沒有記錄,請(qǐng)先進(jìn)行導(dǎo)入: exit sub commondialog1.showsave 打開另存對(duì)話框 if commondialog1.filename = then exit sub open commondialog1.filename & .txt for outpu

11、t as #1 打開文件寫入數(shù)據(jù) for n = 0 to cnn.fields.count - 1 conct = conct & cnn.fields(n).name & 通過循環(huán)將每個(gè)字段的名字串聯(lián)起來(lái) next print #1, conct 寫出每個(gè)字段名 cnn.movefirst 移動(dòng)到第一條記錄 do while not cnn.eof 循環(huán)讀取記錄 conct = 清空連接字符的變量 for n = 0 to cnn.fields.count - 1 conct = conct & cnn.fields(n) & , 通過循環(huán)將每條記錄的不同字段連在一起 next cnn.m

12、ovenext 移動(dòng)到下一條記錄 print #1, conct 寫出每條記錄的內(nèi)容 loop cnn.close 關(guān)閉記錄集 msgbox (導(dǎo)出完畢!)end subprivate sub command3_click()cn.execute (delete from 庫(kù)存)msgbox 已清空end subprivate sub command4_click()endend subprivate sub form_load()set cn = new adodb.connection 建立新的數(shù)據(jù)庫(kù)連接cn.connectionstring = provider=microsoft.jet.oledb.4.0;data source=biao.m