二、使用非Access數據庫時的參數設置及配置文件的參數讀取
如果在vb的程序中使用了數據庫的操作,將應用程序生成exe文件或打包生成安裝程序後,則必須提供一個配置(.ini)文件,在ini文件中可以對不同類型的數據庫進行設置。如果找不到這個ini文件,將會導致不能訪問數據庫。通常情況下,ini文件的文件名和應用程序的名稱相同,所以如果沒有指明,vb的程序會在Windows子目錄中去找和應用程序同名的ini文件。可以使用vb中的setdataAccessoptions語句來設置ini文件。
setdataAccessoptions語句的用法如下:
setdataAccessoptions1,inifilename
其中inifilename參數指明的是ini文件的帶路徑的文件名。值得注意的是,當應用程序找不到這個ini文件時,或在調用opendatabase函數時對其connect參數值沒有設定為vb規定的標准值,如對foxpro2.5格式設定為了“foxpro;”(應為“foxpro2.5;”),或者沒有安裝相應的isam驅動程序,則此時vb會顯示一條錯誤信息“not found installable isam”。
通常,ini文件在應用程序分發出去以前已經生成,或者在安裝時動態生成,也可以在應用程序中自己生成。通常這種ini文件中有“[options]”、“[isam]”、“[installed isams]”、“ [foxpro isam] ” 、 “ [DBase isam] ” 、 “ [paradox isam] ”等設置段,對於一個完整的應用程序則還應有一個屬於應用程序自己的設置段如“[mydb]”。可在其中設置datatype、server、database、openonstartup、displaysql、querytimeout等較為重要的數據庫參數,並以此限定應用程序一般的運行環境。
windows api接口函數在kernel.exe動態鏈接庫中提供了一個oswriteprivateprofilestring函數,此函數能按Windows下配置文件(.ini)的書寫格式寫入信息。在通常情況下,應用程序還需要在運行時讀取配置文件內相關項的參數。比如pagetimeout(頁加鎖超時時限)、maxbuffersize(緩沖區大小)、lockretry(加鎖失敗時重試次數)等參數,通過對這些參數的讀取對應用程序運行環境的設定、潛在錯誤的捕獲等均會有很大的改善。
設此應用程序的配置文件為mydb.ini,則具體過程如下 :
funtion getinistring$( byval fname$ , byval szitem$ , byval szdefault$ ) ’ 此 自定義子函數實現ini文件內設置段內參數的讀取
dim tmp as string , x as integer
tmp = string( 2048,32 )
x = osgetprivateprofilestring( fname$ , szitem$ , szdefault$ , tmp , len(tmp) , “ mydb.ini ” )
getinistring = mid$( tmp,1,x )
end function
以下這些函數的聲明可寫在模塊文件內,且每個函數的聲明必須在一行內
declare function osgetprivateprofilestring% lib "kernel" alias "getprivateprofilestring" (byval appname$, byval keyname$, byval keydefault$, byval returnstring$, byval numbytes as integer, byval filename$)
declare function oswriteprivateprofilestring% lib "kernel" alias "writeprivateprofilestring" (byval appname$, byval keyname$, byval keydefault$, byval filename$)
declare function osgetwindowsdirectory% lib "kernel" alias "getWindowsdirectory" (byval a$, byval b%)
sub form1_load( )
dim st as string dim x as integer
dim tmp as string tmp = string$( 255, 32 )
’ 在 ini 文 件 內 為 各 種 數 據 庫 格 式 指 明 已 安 裝 的 相 應 isam 驅 動 程 序
x = oswriteprivateprofilestring(" installable isams", "paradox 3.x", "pdx110.dll", "mydb.ini" )
x = oswriteprivateprofilestring( "installable isams", "DBase iii", "xbs110.dll", "mydb.ini" )
x = oswriteprivateprofilestring( "installable isams", "DBase iv", "xbs110.dll", "mydb.ini" )
x = oswriteprivateprofilestring( "installable isams", "foxpro 2.0", "xbs110.dll", "mydb.ini" )
x = oswriteprivateprofilestring( "installable isams", "foxpro 2.5", "xbs110.dll", "mydb.ini" )
x = oswriteprivateprofilestring( "installable isams", "btrIEve", "btrv110.dll", "mydb.ini" )
x = oswriteprivateprofilestring( "DBase isam", "deleted", "on", "mydb.ini" )
’ 指 明 ini 文 件 的 位 置
x = osgetWindowsdirectory( tmp, 255 )
st = mid$( tmp, 1, x ) setdataAccessoption 1, st + "\mydb.ini"
’ 獲 得 ini 文 件 一 些 參 數
gwmaxgridrows = val(getinistring( “ mydb.ini ” ,"maxrows", "250" ))
glquerytimeout = val(getinistring( “ mydb.ini ” ,"querytimeout", "5" ))
gllogintimeout = val(getinistring( “ mydb.ini ” ,"logintimeout", "20" ))
end sub