【導(dǎo)讀】{ "error_code": 17, "error_msg": "Open api daily request limit reached" }

　　

【正文】 = New = New = New = New = New = New = New = New = New = New () = New (40, 28) = Label1 = New (114, 23) = 0 = 數(shù)據(jù)庫服務(wù)器名： = New (64, 59) = Label2 = 1 = 數(shù)據(jù)庫名稱： = New (64, 90) = Label3 計算機(jī)科學(xué)與技術(shù)學(xué)院本科學(xué)位論文 33 = 2 = 數(shù)據(jù)表名稱： = New (88, 121) = Label4 = 3 = 用戶名： = New (98, 152) = Label5 = 4 = 口令： = New (160, 26) = TextBox1 = New (148, 21) = 5 = = New (160, 56) = TextBox2 = New (148, 21) = 6 = = New (160, 86) = TextBox3 = New (148, 21) = 7 = = New (160, 146) = TextBox5 = (42) = New (148, 21) = 9 = = New (120, 198) = Button1 = New (126, 36) = 10 = 導(dǎo)出 Excle表格 = New (160, 116) = TextBox4 = New (148, 21) = 8 = = New (6, 14) = New (374, 271) () 計算機(jī)科學(xué)與技術(shù)學(xué)院本科學(xué)位論文 34 () () () () () () () () () () = = False = Form1 = Visual Basic .Net導(dǎo)入數(shù)據(jù)庫數(shù)據(jù)到 Excel表格 (False) End Sub Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles 39。創(chuàng)建一個 DataSet Dim myDataSet As DataSet = New DataSet 39。連接數(shù)據(jù)庫，得到數(shù)據(jù)集 Try 39。 設(shè)定數(shù)據(jù)連接字符串，此字符串的意思是打開 Sql server數(shù)據(jù)庫，服務(wù)器名稱為本地 ,數(shù)據(jù)庫為 temp Dim strCon As String = Provider = 。 Persist Security Info = False。 User ID = amp。 amp。 。PSW= amp。 _ amp。 。 Initial Catalog = amp。 amp。 。Data Source = amp。 39。數(shù)據(jù)連接代碼，對此修改可導(dǎo)入其他類型數(shù)據(jù)庫到 Excle表格 Dim myConn As OleDbConnection = New OleDbConnection(strCon) () Dim strCom As String = SELECT * FROM amp。 Dim myCommand As OleDbDataAdapter = New OleDbDataAdapter(strCom, myConn) (myDataSet, table01) 39。關(guān)閉此 OleDbConnection () Catch ey As Exception (連接錯誤 ! + (), 錯誤 ) End Try Dim table As DataTable = (table01) 39。創(chuàng)建一個空的 Excel電子表格文檔 計算機(jī)科學(xué)與技術(shù)學(xué)院本科學(xué)位論文 35 Dim AppExcel As = New (True) 39。讀取數(shù)據(jù)的字段名稱，并在產(chǎn)生的 Excel表格的第一行顯示出來 Dim colIndex As Integer = 0 Dim col As DataColumn = New DataColumn For Each col In colIndex = colIndex + 1 (1, colIndex) = Next 39。實現(xiàn)數(shù)據(jù)集到 Excel表格的轉(zhuǎn)換 Dim rowIndex As Integer = 1 Dim row As DataRow For Each row In rowIndex = rowIndex + 1 colIndex = 0 Dim col1 As DataColumn For Each col1 In colIndex = colIndex + 1 (rowIndex, colIndex) = row().ToString() Next Next = True End Sub End Class 計算機(jī)科學(xué)與技術(shù)學(xué)院本科學(xué)位論文 36 第六章 測試與維護(hù) 測試與維護(hù) 系統(tǒng)測試與維護(hù) 本數(shù)據(jù)轉(zhuǎn)換系統(tǒng)的測試環(huán)境是一本機(jī) 作為 SQL 數(shù)據(jù)庫的服務(wù)器，以 Windows 系統(tǒng)身份登錄， 測試環(huán)境： 硬件環(huán)境：本地服務(wù)器 AMD Sempron(tm) Processor 2800+,512MB 內(nèi)存 軟件環(huán)境： Microsoft Windows XP Professional 版本 2021 Service Pack2 Visual Studio 2021 / Visual Basic Microsoft SQL Server 2021 Microsoft Office 2021 1. SQL 數(shù)據(jù)庫數(shù)據(jù)源配置的測試 發(fā)現(xiàn)問題：配置 SQL 數(shù)據(jù)庫數(shù)據(jù)源的時候，發(fā)現(xiàn)當(dāng)通過服務(wù)管理器開啟服務(wù)器之后停一兩分鐘，服務(wù)器的狀態(tài)自動從開始變?yōu)橥Ｖ埂? 解決辦法：經(jīng)查看系統(tǒng)進(jìn)程，發(fā)現(xiàn)本地機(jī)器上裝的 360 安全衛(wèi)士對數(shù)據(jù)源運行進(jìn)程有屏蔽作用，當(dāng)把 360 安全衛(wèi)士關(guān)閉之后，一切恢復(fù)正常。 2. VB 環(huán)境下連接數(shù)據(jù)庫的測試 發(fā)現(xiàn)問題：在程序代碼中需要有連接數(shù)據(jù)庫的變量定義要求， Set = New Connection 39。建立數(shù)據(jù)庫連接 39。 provider = 。Persist Security Info=False。User ID=。Initial Catalog=baoyun。Data Source= 如上的代碼調(diào)試程序是會出現(xiàn)錯誤，提示無法連接數(shù)據(jù)庫。 解決辦法 ： 通過查閱網(wǎng)上相關(guān)問題的解決方法之后， driver={sql server}。 server=(local)。 UserID=。 Password=。 Database=baoyun 這樣調(diào)試之后就可以順利解決， 原因在于本機(jī)的數(shù)據(jù)庫 服務(wù)器在建立的時候采用的是 Windows 系統(tǒng)身份登錄，因此 server 應(yīng)該設(shè)置成 (local)。 軟件性能評價 從一個實例來分析一下： 在本地 SQL 服務(wù)器中新建名為 aXLS 的數(shù)據(jù)庫，在其下屬表中建立一個名為 sqlb的數(shù)據(jù)表，內(nèi)容如下設(shè)定： 計算機(jī)科學(xué)與技術(shù)學(xué)院本科學(xué)位論文 37 然后通過數(shù)據(jù)轉(zhuǎn)換系統(tǒng)的轉(zhuǎn)換， 在 Excel 電子表格中得到下面的結(jié)果： 計算機(jī)科學(xué)與技術(shù)學(xué)院本科學(xué)位論文 38 可以當(dāng)在定義 SQL 數(shù)據(jù)表文件的時候，對字段的定義要設(shè)置好類型和長度，最好不要有允許空和識別字段，這是由于 Excel 對數(shù)據(jù)的特殊性要求。 結(jié)論與展望 本系統(tǒng)在設(shè)計 過程中遇到了許多困難，但經(jīng)過導(dǎo)師以及多方面資料和網(wǎng)站的查詢，均被一一克服，最終成功實現(xiàn)了數(shù)據(jù)轉(zhuǎn)換系統(tǒng)。 但是任何一個軟件系統(tǒng)都不是完美的，都有自身的缺陷。由于在 VB 編程方面經(jīng)驗缺乏和時間限制，本系統(tǒng)在測試過程中也發(fā)現(xiàn)了個別不足之處。在本節(jié)內(nèi)容指出來，待老師和同學(xué)參考，并幫助給予一定的指導(dǎo)和幫助，以便于日后系統(tǒng)的完善與更新。 1. 本系統(tǒng)版面簡單清晰，但是真?zhèn)€系統(tǒng)只有一個界面，使系統(tǒng)顯得單調(diào)，死板，所以希望能夠在版面設(shè)計上有所提高，例如把程序的圖標(biāo)定義為一個個性的圖標(biāo)等等。 2. 在系統(tǒng)測試過程中，發(fā)現(xiàn)在重復(fù)點擊“導(dǎo)入開 始 ” 時，系統(tǒng)會在原來的 .xls的輸出文件中連續(xù) 導(dǎo)入數(shù)據(jù)，并不是重新建立一個數(shù)據(jù)表，目前還沒考慮到解決的辦法。只能在轉(zhuǎn)換完成之后，若要進(jìn)行下次的轉(zhuǎn)換，需要把上次的輸出文件刪除或者備份，以防發(fā)生上述的情況。 計算機(jī)科學(xué)與技術(shù)學(xué)院本科學(xué)位論文 39 參考文獻(xiàn) [1]明日科技 安劍 孫秀梅編著， Visual Basic 數(shù)據(jù)庫系統(tǒng)開發(fā)自學(xué)手冊，人民郵電出版社，2021年 3月第一版 [2]王穎 李敏業(yè) 編著， Visual Basic+SQL Server 數(shù)據(jù)庫應(yīng)用實例完全解析，人民郵電出版社， 2021年 4月第一版 [3]劉韜 駱娟 編著， Visual Basic數(shù)據(jù)庫通用模塊及典型系統(tǒng)開發(fā)實例導(dǎo)航，人民郵電出版社， 2021年 2月第一版 [4]劉珊編著， Visual ，人民郵電出版社， 2021年 2月第一版 [5]張智毅 溫才燚 編著， Visual +SQL Server 數(shù)據(jù)庫開發(fā)從基礎(chǔ)到實踐 ,2021 年3月， 電子工業(yè)出版社 計算機(jī)科學(xué)與技術(shù)學(xué)院本科學(xué)位論文 40 致謝 特別感謝指導(dǎo)教師楊瀛濤，指導(dǎo)教師不僅傳授了我專業(yè)技術(shù)和 知識，最重要的是教會了我如何學(xué)習(xí)和一些實用的學(xué)習(xí)方法，也提高了我的學(xué)習(xí)能力。 最后我還要感謝我的一些朋友和同學(xué)，雖然工作組目前只有我一個人，但是在我遇到問題和困難的時候，我的周圍凝聚了集體的力量，他們在課題設(shè)計中給了我許多的幫助，才使得我的畢業(yè)設(shè)計能夠順利的完成。