非access数据库在vb中的编程及应用(2)

来源：eNet学院作者：出处：巧巧读书 2005-11-06 进入讨论组

　　设此应用程序的配置文件为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 　
浏览地址： http://www.qqread.com/vb/b220566010.html