非Access数据库在VB中的编程及应用

ize（缓冲区大小）、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 ) EndFunction以下这些函数的声明可写在模块文件内，且每个函数的声明必须在一行内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 　

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

由于VB中的记录集对象与所使用的数据库格式及类型是相互独立的，所以在非Access数据库中也可以使用数据库存取对象变量的方法。因而 对FoxPro等外来数据库而言，使用数据库存取对象变量的方法同样也是一种最佳的选择。 有一点需要注意的是，VB的标准版中仅能使用数据控件（Data Control）对数据库中的记录进行访问，主要的数据库存取对象中也仅有Database、Dynaset对象可通过数据控件的属 性提供，其它的重要对象如TableDef、Field、Index、QueryDef、Snapshot、Table等均不能在VB的标准版中生成，所以使用数据存取对象变量的方法只能用VB 3.0以上的专业版。

（一）、非Access数据库的新建及库结构的修改VB专业版中的数据库存取对象变量可以分为两类，一类用于数据库结构的维护和管理，另一类用于数据的存取。其中表示数据库结构时可以使用下面的对象：

DataBase、TableDef、Field、Index，以及三个集合 （Collection）： TableDefs、Fields和Indexes 。每一个集合都是由若干个对象组成的，这些数据对象的集合可以完全看作是一个数组，并按数组的方法来调用。一旦数据库对象建立后，就可以用它对数据库的结构进行修改和数据处理。对于非Access数据库，大部分都是对应于一个目 录，所以可以使用VB的MkDir语句先生成一个目录，亦即新建一个数据库。而每一个非 Access数据库文件可看作是此目录下的一个数据表（Table），但实际上它们是互相独立的。
下面是新建一个FoxPro 2.5格式数据库的程序实例。

Sub CreateNew ( ) Dim Db1 As database ， Td As TableDefs Dim T1 As New Tabledef ， F1 As New Field ，

上一页  [1] [2] [3]  下一页