《非Access数据库在VB中的编程及应用》由会员分享，可在线阅读，更多相关《非Access数据库在VB中的编程及应用（4页珍藏版）》请在金锄头文库上搜索。
1、非Access数据库在VB中的编程及应用 摘要 Visual Basic有着强大的数据库存取能力，不仅能够直接支持Ms Access数据库，而且通过其内部安装的ISAM驱动程序使它能间接支持FoxPro、dBA SE等外来数据库。本文不仅从VB数据库体系结构的角度探讨了VB对这些外来数据 库的支持，还结合了一些实例具体阐述了使用数据库存取对象变量的方法实现这些 外来数据库的新建、库结构修改、显示及其运行环境设置。关键词Visual Basic Access, 外来数据库,数据库正文存取对象变量库结构作为一个功能较完备的Windows软件开发平台，Visual Basic专业版提供了对数据库应用
2、的强大支持。尤其提供了使用数据控件和绑定控制 项，使用数据库存取对象变量（Data Access Object Variable），直接调用ODBC 2.0 API接口函数等三种访问数据库的方法。对其标准内置的Ms Access数据库，它可以提供不弱于专业数据库软件的支持，可以进行完整的数据库 维护、操作及其事务处理。在VB中，将非Access数据库称为外来数据库。对于FoxPro 、dBASE、Paradox等外来数据库。虽然借助VB的Data Manager 能够对这些数据库进行NEW、OPEN、DESIGN、DELETE等操作，但在应用程序的运 行状态中并不能从底层真正实现这些功能。本文
3、从使用数据库存取对象变量的方法 出发，实现了非Access格式数据库（以FoxPro数据库为例）的建新库、拷贝数据库结 构、动态调入等操作，阐述了从编程技巧上弥补VB对这些外来数据库支持不足的可 行性 。 一 、 VB数据库的体系结构具体的VB的数据库结构。VB数据库的核心结构是所谓的MicroSoft JET数据库引擎，JET引擎的作用就像是一块“面 板“，在其上可以插入多种ISAM（Indexed Sequential Access Method，即索引顺序存取方 法） 数据驱动程序。JET引擎为Access格式数据库提供了直接的内部（build- in）支持，这就是VB对Access数据
4、库具有丰富支持的真正原因。VB专业版中提供了FoxPro、dBASE（或 Xbase）、Paradox、Btrieve等数据库的ISAM驱动程序，这就使得VB能支持这些数据 库格 式。另外，其他的许多兼容ISAM的驱动程序也可以通过从厂商的售后服务得到。因而从理论上说，VB能支持所有兼容ISAM的数据库格式（前提是只需获得这些数据 库的ISAM驱动接口程序）。由上可见，Ms JET引擎实质上提供了：一个符合ANSI标准的语法分析器；为查询结果集的使用而提 供的内存管理功能；同所支持的数据库的外部接口；为应用代码提供的内部接口。实 际上，在VB中从一种数据库类型转化为另一种数据库类型几乎不需要或
5、只需要很 少的代码修改。而且，尽管dBASE、Paradox本身的DDL （Data Definition Language，即数据定义语言）和DML（Data Manipulation Language，即数据操纵语言）是非结构化查询的，但它们仍然可以使用VB的SQL语 句和JET引擎来操纵。从VB的程序代码的角度来看，ODBC，ISAM驱动程序以及Ms Access数据库的整个外部结构够可以统一为一个一致的编程接口。也即是说，提供 给VB应用程序员的记录集对象视图同所使用的数据库格式及类型是相互独立的。 即对FoxPro等数据库仍然可以使用众多的数据库存取对象变量，这就为非Access数
6、据库的访问提供了最重要的方法。 二 、使用非Access数据库时的参数设置及配置文件的参数读取如果在VB的程序中使用 了数据库的操作，将应用程序生成EXE文件或打包生成安装程序后，则必须提供一 个配置 （.INI）文件，在INI文件中可以对不同类型的数据库进行设置。如果找不到这个INI文 件， 将会导致不能访问数据库。通常情况下，INI文件的文件名和应用程序的名称相同， 所以如果没有指明，VB的程序会在Windows子目录中去找和应用程序同名的INI文 件。可以使用VB中的SetDataAccessOptions语句来设置INI文件。 SetDataAccessOptions语句的用法如下：S
7、etDataAccessOptions 1 ，IniFileName其中IniFileName参数指明的是INI文件的带路径的文件名。值得注意的 是，当应用程序找不到这个INI文件时，或在调用 OpenDataBase函数时对其Connect参数值没有设定为VB规定的标准值，如对FoxPro 2.5格式设定为了“ FoxPro;“（应为“ FoxPro 2.5; “），或者没有安装相应的ISAM驱动程序，则此时VB会显示一条错误信息“ Not Found Installable ISAM “。通常，INI文件在应用程序分发出去以前已经生成，或者在安装时动态生成，也可 以在应用程序中自己生成。
8、通常这种 INI文件中有“ Options“、“ISAM“、“ Installed ISAMs“、“FoxPro ISAM“、“dBASE ISAM “ 、“ Paradox ISAM “等设置段，对于一个完整的应用程序则还应有一个属于应用 程序自己的设置段如“ MyDB”。可在其中设置DataType、Server、DataBase、 OpenOnStartup、DisplaySQL、QueryTimeOut等较为重要的数据库参数，并以此限定 应用程序一般的运行环境。 Windows API接口函数在Kernel.exe动态链接库中提供了一个OSWritePrivateProfileStri
9、ng函数 ，此函数能按Windows下配置文件（.INI）的书写格式写入信息。在通常情况下，应用程序还需要在运行时读取配置文件内相关项的参数。比如PageT imeOut（页加锁超时时限）、MaxBufferSize（缓冲区大小）、LockRetry（加锁失败时重 试次数）等参数，通过对这些参数的读取对应用程序运行环境的设定、潜在错误的捕 获等均会有很大的改善。 设此应用程序的配置文件为MyDB.INI，则具体过程如下：Funtion GetINIString$( Byval Fname$ ，Byval szItem$ ，Byval szDeFault$ ) 此自定义子函数实现INI 文件内设
10、置段内参数的读取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 “GetPrivateP
11、rofileString“ (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
12、 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
13、“, “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
14、= 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(
15、 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
16、Sub 三 、数据存取对象变量对外来数据库编程的方法及其实例在VB专业版数据库编程的 三种方法中，第二种- 使用数据库存取对象变量（DAO）的方法最具有功能强大、灵活的特点。 它能够在程序中存取ODBC 2.0的管理函数；可以控制多种记录集类型：Dynaset，Snapshot 及Table记录集合对象；可以存储过程和查询动作；可以存取数据库集合对象，例如 TableDefs，Fields，Indexes及QueryDefs；具有真正的事物处理能力。因而，这种方法 对数据库处理的大多数情况都非常适用。由于VB中的记录集对象与所使用的数据库格式及类型是相互独立的，所以在非Acc ess数据库中也可以使用数据库存取对象变量的方法。因而 对FoxPro等外来数据库而言，使用数据库存取对象变量的方法同样也是一种最佳的 选择。 有一点需要注意的是，VB的标准版中仅能使用数据控件（Data Control）对数据库中的记
