在VB中兼容非ACCESS数据库的技巧

核心提示： Windows API接口函数在Win95系统提供的动态链接库中提供了一个OSWritePrivateProfileString函数，此函数能按Windows下配置文件（.INI）的书写格式写入信息，在VB中兼容非ACCESS数据库的技巧(3)， 在通常情况下，应用程序还需要在运行时读取配置文件

Windows API接口函数在Win95系统提供的动态链接库中提供了一个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

通过此函数就能实现对各种数据库格式的读取。

三、调用数据存取对象对非ACCESS数据库编程的方法及其实例

VB专业版中使用数据库存取对象变量（DAO）的方法最具有功能强大、编程灵活的特点。它能够在程序中存取ODBC 2.0的管理函数；可以控制多种记录集类型：Dynaset，Snapshot及Table记录集合对象；可以存储过程和查询动作；可以存取数据库集合对象，例如TableDefs，Fields，Indexes及QueryDefs；具有真正的事物处理能力。这种方法对数据库处理的大多数情况都非常适用。

从VB的程序代码的角度来看，提供给VB程序员的记录集对象（RecordSet）同所使用的数据库格式及类型是相互独立的。即对FoxPro等数据库仍然可以使用众多的数据库存取对象变量，这就为非ACCESS数据库的访问提供了最重要的前提和方法。