巧用VB的ADO處理各類數(shù)據(jù)庫故障解析

馬亮

(甘肅省天水市職業(yè)技術(shù)學(xué)校，甘肅 天水 741000)

巧用VB的ADO處理各類數(shù)據(jù)庫故障解析

馬亮

(甘肅省天水市職業(yè)技術(shù)學(xué)校，甘肅 天水 741000)

操作系統(tǒng)從W in7開始變成了64位系統(tǒng)，導(dǎo)致VB下基本的界面操作都變得很卡，原先提供的眾多命令、函數(shù)等不能正常運行。幸好快捷而且強(qiáng)大的數(shù)據(jù)庫連接工具ADO依然正常，但操作系統(tǒng)、數(shù)據(jù)庫版本、鏈接庫版本、數(shù)據(jù)庫信息量都會對數(shù)據(jù)產(chǎn)生影響，教程的理論分析與實際情況往往存在差異，對此本文主要分析筆者在編寫程序時遇到的實際問題、困惑以及解決方法。

VB；ADO；數(shù)據(jù)庫；故障

1 引言

隨著各類數(shù)據(jù)庫版本的不斷升級，VB的功能不斷遭到拋棄。Access、VB默認(rèn)版本是97，Excel版本不能超過2003。尤其操作系統(tǒng)從Win7開始變成了64位系統(tǒng)，導(dǎo)致VB下基本的界面操作都變得很卡，原先提供的眾多命令、函數(shù)等不能正常運行。幸好快捷而且強(qiáng)大的數(shù)據(jù)庫連接工具ADO依然正常，但理論和實際往往差別很大，操作系統(tǒng)、數(shù)據(jù)庫版本、鏈接庫版本、數(shù)據(jù)庫信息量都會對數(shù)據(jù)產(chǎn)生影響，教程一般使用幾條信息演示處理過程，而實際情況卻千差萬別，以下就是作者在編寫程序時遇到的實際問題、困惑以及解決方法。

2 數(shù)據(jù)庫的基本操作

2.1 讀寫數(shù)據(jù)庫準(zhǔn)備工作

（1）引用

M icrosoftActiveX Data Objects2.5 Library

M icrosoftDAO 3.6Object Library

M icrosoftData Formatting Object Library

（2）添加控件

MSHFlexGrid1’表格_控件

Time1 ’計時器_控件

ProgressBar1’進(jìn)度條_控件

（3）變量定義

Public Cn As New ADODB.Connection

Public RsAsNew ADODB.Recordset

Public路徑As String’數(shù)據(jù)庫文件的存放位置

2.2 鏈接數(shù)據(jù)庫

（1）打開Excel文件,擴(kuò)展名xls

Cn.ConnectionString="Provider=M icrosoft.Jet.OLEDB.4.0; Persist Security Info=false;Data Source="&路徑&";Extended Properties='Excel8.0;HDR=Yes'" ’路徑字符串變量表示數(shù)據(jù)庫文件存放位置

Cn.Open

Rs.Open"select*from["&表冊&"$]",cn,adOpenKeyset,adLockOptim istic’表冊字符串變量表示Excel文件包含表冊（Sheet）的名稱

（2）打開Vf文件,擴(kuò)展名mdb

cn.ConnectionString="provider=msdasql;DRIVER=M icrosoftVisual FoxPro Driver;UID=;Deleted=yes;Null=no;

Collate=Machine;BackgroundFetch=no; Exclusive=No; SourceType=DBF;SourceDB="&路徑&";"

cn.Open

Rs.Open"select*from"&路徑&"",cn

（3）打開Acess文件

Cn.open"Provider=M icrosoft.Jet.OLEDB.4.0;Data Source=" &路徑

strSQL="SELECT*FROM"&表冊名rs.Open strSQL,conn,3,3

也可直接使用Data控件就可實現(xiàn)操作。

注：以上過程只是打開或鏈接數(shù)據(jù)庫文件，并非讀取數(shù)據(jù)。

Excel因其易學(xué)、操作簡單，所以用戶量很大，但Excel算不上數(shù)據(jù)庫軟件。Excel2003以下版本數(shù)據(jù)量只有6萬多條（65536）。Excel2007數(shù)據(jù)量可達(dá)1百萬（1048576）。

Vf屬于專業(yè)數(shù)據(jù)庫軟件，信息量可到10億條，但使用者并不太多。

Access讀寫最為簡潔、方便，但目前已被大家遺忘。

2.3 讀取數(shù)據(jù)庫信息

（1）一次性讀取到表格中

SetMSHFlexGrid1.DataSource=Rs

優(yōu)點：操作簡單、讀取速度極快，即便用戶對該數(shù)據(jù)庫內(nèi)容一無所知，也不影響數(shù)據(jù)的讀取。

缺點：每一列數(shù)據(jù)類型必須保持一致，不然會出現(xiàn)信息缺失，且只顯示信息的前2048條。（解決方法將在后面敘述）

（2）按順序逐條讀取

1)讀取第R條（行），第C列數(shù)據(jù)至變量S中

Dim Sas String

Rs.Move(R)

S=Rs.Fields(C).Value

2)將數(shù)據(jù)庫中的數(shù)據(jù)全部讀取到表格MSHFlexGrid1中

假設(shè)此數(shù)據(jù)庫有R條數(shù)據(jù)，C個字段。

Dim ias Long:dim jas Long

Rs.MoveFirst

For i=1 to R

For j=1 to C

Rs.MoveNext

MSHFlexGrid1.TextMatrix(R-1,C-1)=Rs.Fields(C).Value

Next j

Next i優(yōu)點：不用將數(shù)據(jù)庫的全部數(shù)據(jù)讀取，只選擇所需的數(shù)據(jù)。

缺點：需要全部讀取且數(shù)據(jù)庫非常龐大時，非常耗時，還會出現(xiàn)假死或死機(jī)的現(xiàn)象。在讀取過程中也不能中斷或取消。（解決方法將在后面敘述）

注：數(shù)據(jù)庫第一行為字段，并非數(shù)據(jù)，可不讀取，以下是數(shù)據(jù)庫操作的幾條常用命令。

Rs.Move(Num)’移動到第Num條信息

Rs.MoveFirst’移動到第一條信息

Rs.MoveLast ’移動到最后一條信息

Rs.MoveNext ’移動到下一條信息

Rs.MovePrevious’移動到上一條信息

（3）按字段讀取

例：讀取“姓名”字段中的前5條數(shù)據(jù)，保存至List1中

List1.Clear’清空記錄列表

Rs.MoveFirst

for i=1 to 5

list1.AddItem Rs.Fields("姓名"),i

Rs.MoveNext

next i

優(yōu)點：數(shù)據(jù)信息與列無關(guān)，只要確定字段名稱，就可任意讀取。

2.4 寫入數(shù)據(jù)庫信息

將MSHFlexGrid1中的所有信息保存在Excel表冊中，且表冊名稱為“數(shù)據(jù)”，列表中的第一行視為字段名稱。

Dim路徑as String

路徑=“****”’文件存放位置和名稱。例：路徑=“C:data文件.xls”

Cn.Open"Provider=M icrosoft.Jet.OLEDB.4.0;"&"Data Source="&路徑&";Extended Properties=""Excel 8.0;HDR= YES;"""

’------------------如果文件需要新建則加入以下代碼------------------------

cn.Execute"CREATETABLE["&路徑&"]."&表頭Rs.Open"select*from[中考成績庫$]",cn,adOpenKeyset,adLockOptim istic

’---------------------------------------------------------------------其中表頭部分格式包括：字符串chr，數(shù)字int

字符串，數(shù)字：表示字段名稱，chr表示數(shù)據(jù)類型為字符型，int表示數(shù)字類型，如果有多個字段則用逗號隔開。

2.5 斷開數(shù)據(jù)鏈接

Rs.Close

Cn.Close

數(shù)據(jù)讀寫完后要斷開連接，否則后面的程序可能出現(xiàn)不可預(yù)料的錯誤。

易出現(xiàn)故障：如果數(shù)據(jù)沒有正常打開，則關(guān)閉時會引發(fā)系統(tǒng)故障，所以在關(guān)閉前應(yīng)先判斷數(shù)據(jù)庫狀態(tài)。

3 故障處理

(1)一次性讀取數(shù)據(jù)時，不能全部讀取

問題敘述：讀取數(shù)據(jù)時用Set MSHFlexGrid1.Data-Source=Rs命令，方法最為簡潔，但讀取的數(shù)據(jù)量不能超過2048條（根據(jù)系統(tǒng)的不同，數(shù)據(jù)量也不相同），網(wǎng)上有很多人想了很多解決方法，但均無效果。最終只能采取逐行讀取的方法，費時費力。

解決方法：其實這是VB6.0的一個漏洞，用戶只需打Vb-SP6的補(bǔ)丁即可。

(2)一次性讀取數(shù)據(jù)時，數(shù)據(jù)不完整

問題敘述：整個數(shù)據(jù)一次性讀取時，還有一個錯誤就是數(shù)據(jù)的缺失，故障原因就是信息的格式不統(tǒng)一，例如，數(shù)據(jù)庫中某個字段的第一個數(shù)據(jù)是數(shù)字，而后面非數(shù)字格式的信息就會變成空字段。

解決方法：在建立數(shù)據(jù)庫或保存數(shù)據(jù)庫時將數(shù)據(jù)格式統(tǒng)一成“字符串”格式。讀取之后根據(jù)需要再進(jìn)行轉(zhuǎn)換。對于Excel文件，在保存時數(shù)據(jù)前加一個單引號即可。

(3)數(shù)據(jù)量過大，讀取時死機(jī)

問題敘述：當(dāng)數(shù)據(jù)量為幾萬或幾十萬時，讀取過程中可能因硬件原因?qū)е录偎阑蛩罊C(jī)現(xiàn)象，即便高配置計算機(jī)也會出現(xiàn)卡頓現(xiàn)象，在普通循環(huán)命令中這種現(xiàn)象也比較常見，而且中途無法選擇放棄。

解決方法：

方法1：利用控件-計時器，來完成循環(huán)命令

準(zhǔn)備工作：加入兩個按鈕：command1、command2，用于循環(huán)的開始、暫?；蚪Y(jié)束的控制。

加入一個計時器控件：timer1，用于代替循環(huán)命令。

加入進(jìn)度條:ProgressBar1，用于查看程序運行進(jìn)度。

代碼改寫前：

For i=1 to 10000

<循環(huán)體>

Nexti

代碼改寫后：

Dim計數(shù)as Long’用于控制循環(huán)運行次數(shù)

Private Sub Command1_Click()’控制循環(huán)開始按鈕

Timer1.Interval=10’設(shè)置程序運行速度，單位毫秒

計數(shù)=1 ’初始循環(huán)的次數(shù)

ProgressBar1.Max=10000’定義進(jìn)度條的最大值

ProgressBar1.Value=1’初始進(jìn)度條進(jìn)度

Timer1.Enable=True’循環(huán)開始執(zhí)行

End Sub

Private Sub Timer1_Timer() ’計時器控件、放置循環(huán)體

計數(shù)=計數(shù)+1

If計數(shù)<10000 then

<循環(huán)體>

ProgressBar1.Value=i

Else

Timer1.Enable=False’循環(huán)結(jié)束

End If

End Sub

Private Sub Command2_Click()’控制循環(huán)結(jié)束或暫停按鈕

If Timer1.Enable=False then

Timer1.Enable=True

Else

Timer.Enable=False

End If

End Sub

計時器中可放置多個循環(huán)體，并不需要建立多個計時器插件。例：

Private Sub Timer1_Timer() ’計時器控件、放置循環(huán)體

Selectcase K ’K為循環(huán)控制參數(shù)

Case0:Call函數(shù)A

Case1:Call函數(shù)B

……

End Select

End Sub

注：此方法看似多了很多條命令，讓程序變得復(fù)雜。但讓程序變得可以控制，可根據(jù)硬件配置在<循環(huán)體>中加入小的For循環(huán)，以減少程序的運行時間。而且進(jìn)度條也能顯示流暢的進(jìn)度動畫。

方法2：利用Sleep函數(shù)

Public Declare Sub Sleep Lib"kernel32"(ByVal dwM illisecondsAs Long)’函數(shù)定義

代碼改寫后：

For i=1 to 10000

<循環(huán)體>

Sleep 10’暫停10毫秒

DoEvents’轉(zhuǎn)讓控制權(quán)

Next i

DoEvents的作用是在循環(huán)體執(zhí)行暫停時，可以執(zhí)行其它命令，例如按下暫停按鈕。但此命令在使用時，需注意數(shù)據(jù)的嵌套使用，很容易出現(xiàn)未知的數(shù)據(jù)錯誤。

(4)斷開數(shù)據(jù)庫時出現(xiàn)異常錯誤

問題敘述：數(shù)據(jù)庫使用完，必須斷開鏈接。斷開鏈接后不能再次斷開。問題看似簡單，但在使用過程中并非如此，除非程序運行在理想狀態(tài)下。數(shù)據(jù)庫的鏈接、讀取、用戶的誤操作都會產(chǎn)生問題。

解決方法：

使用錯誤檢測跳轉(zhuǎn)命令：On ErrorGoTo

命令含義：程序運行出現(xiàn)錯誤跳轉(zhuǎn)到指定的命令行。

程序如下：

On ErrorGoTo結(jié)束

K=0’變量，用于測試程序執(zhí)行到了第幾步出現(xiàn)了錯誤

<鏈接數(shù)據(jù)庫語句>：K=1

<讀取數(shù)據(jù)庫語句>：K=2

<關(guān)閉數(shù)據(jù)庫>： K=3

結(jié)束：

Select case K’從K的數(shù)值就可看出程序從哪個階段產(chǎn)生的跳轉(zhuǎn)

Case 0：<程序>’數(shù)據(jù)庫打開錯誤

Case1：<程序>’數(shù)據(jù)庫讀取錯誤

Case2：<程序>’數(shù)據(jù)庫沒有正常關(guān)閉

Case 3：<程序>’數(shù)據(jù)庫操作正常

End Select

注：錯誤檢測跳轉(zhuǎn)命令（On ErrorGoTo）會忽略程序產(chǎn)生中所有的錯誤，使用過程中要謹(jǐn)慎。

(5)判斷數(shù)據(jù)庫字段和數(shù)據(jù)量

問題敘述：在讀取數(shù)據(jù)庫數(shù)據(jù)時，如果對內(nèi)容一無所知就必須先判斷字段和數(shù)據(jù)量以及字段名稱，不然一定會產(chǎn)生錯誤。

解決方法：

判斷數(shù)據(jù)條數(shù)，使用軟件自帶命令Rs.Fields.Count即可。

判斷字段數(shù)量，此數(shù)據(jù)不可遇見，只能一一測試，就利用上述的錯誤檢測跳轉(zhuǎn)命令。

添加下拉列表控件List1，用于記錄所有的字段名稱。

Dim Ias interge:i=0’計算字段序號和統(tǒng)計數(shù)量

List1.Clear’清空記錄列表

On ErrorGoTo結(jié)束’循環(huán)體語句出現(xiàn)錯誤時跳出

Do’字段數(shù)量未知，所以需要一個無限的循環(huán)

i=i+1

list1.Add Item Rs.Fields.Item(i).Name,i’將讀取到的字段名稱記錄到列表中

Loop

結(jié)束：

命令解釋：Rs.Fields.Item(i).Name讀取第i個字段名稱，當(dāng)出現(xiàn)數(shù)據(jù)讀取錯誤時，表示字段已經(jīng)讀取結(jié)束。

此時：List1里存放的就是每個字段的名稱，i-1就是字段總數(shù)。

4 結(jié)束語

本文介紹了如何利用VB的ADO處理各類數(shù)據(jù)庫的故障問題，有利于提高數(shù)據(jù)庫的處理速度，以期為相關(guān)技術(shù)人員提供有價值的參考。

[1]柏建普，杜娟.ADO技術(shù)在VB訪問SQL數(shù)據(jù)庫中的應(yīng)用[J]．電腦知識與技術(shù)，2013(29)：6481-6485．

Analysison the Resolution of Database FaultsUsing ADO in VB

Ma Liang
（TianshuiVocationaland TechnicalSchoolof Gansu Province,Tianshui741000,Gansu）

The operating system changing from Win7 into the 64 bit system has lead the VB operation interface to be not smooth,and the commandsand functions cannotwork properly.Fortunately,the database connection toolADO is stillnormal.However,operating system,database version,linking library version and database information w illhave an impacton the data.And there are differencesbetween the theoreticalanalysis and the actualsituation of the tutorial.This papermainly analyzes the practical problemsencountered in programming and itssolutions.

VB;ADO;database;fault

TP311.13

A

1008-6609(2017)06-0068-04

馬亮(1977-)，男，甘肅天水人，本科，助教，研究方向為計算機(jī)應(yīng)用。