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

《非Access数据库在VB中的编程及应用.docx》由会员分享，可在线阅读，更多相关《非Access数据库在VB中的编程及应用.docx（8页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、非Access数据库在VB中的编程及应用 存取对象变量库结构作为一个功能较完备的Windows软件开发平台，VisualBasic专业版供应了对数据库应用的强大支持。尤其供应了运用数据控件和绑定限制项，运用数据库存取对象变量(DataAccessObjectVariable)，干脆调用ODBC2.0API接口函数等三种访问数据库的方法。对其标准内置的MsAccess数据库，它可以供应不弱于专业数据库软件的支持，可以进行完整的数据库维护、操作及其事务处理。在VB中，将非Access数据库称为外来数据库。对于FoxPro、dBASE、Paradox等外来数据库。虽然借助VB的DataManager

2、能够对这些数据库进行NEW、OPEN、DESIGN、DELETE等操作，但在应用程序的运行状态中并不能从底层真正实现这些功能。本文从运用数据库存取对象变量的方法动身，实现了非Access格式数据库(以FoxPro数据库为例)的建新库、拷贝数据库结构、动态调入等操作，阐述了从编程技巧上弥补VB对这些外来数据库支持不足的可行性。一、VB数据库的体系结构详细的VB的数据库结构。VB数据库的核心结构是所谓的MicroSoftJET数据库引擎，JET引擎的作用就像是一块"面板"，在其上可以插入多种ISAM(IndexedSequentialAccessMethod，即索引依次存取方法

3、)数据驱动程序。JET引擎为Access格式数据库供应了干脆的内部(build-in)支持，这就是VB对Access数据库具有丰富支持的真正缘由。VB专业版中供应了FoxPro、dBASE(或Xbase)、Paradox、Btrieve等数据库的ISAM驱动程序，这就使得VB能支持这些数据库格式。另外，其他的很多兼容ISAM的驱动程序也可以通过从厂商的售后服务得到。因而从理论上说，VB能支持全部兼容ISAM的数据库格式(前提是只需获得这些数据库的ISAM驱动接口程序)。由上可见，MsJET引擎实质上供应了：一个符合ANSI标准的语法分析器;为查询结果集的运用而供应的内存管理功能;同所支持的数据

4、库的外部接口;为应用代码供应的内部接口。事实上，在VB中从一种数据库类型转化为另一种数据库类型几乎不须要或只须要很少的代码修改。而且，尽管dBASE、Paradox本身的DDL(DataDefinitionLanguage，即数据定义语言)和DML(DataManipulationLanguage，即数据操纵语言)是非结构化查询的，但它们仍旧可以运用VB的SQL语句和JET引擎来操纵。从VB的程序代码的角度来看，ODBC，ISAM驱动程序以及MsAccess数据库的整个外部结构够可以统一为一个一样的编程接口。也即是说，供应给VB应用程序员的记录集对象视图同所运用的数据库格式及类型是相互独立的。

5、即对FoxPro等数据库仍旧可以运用众多的数据库存取对象变量，这就为非Access数据库的访问供应了最重要的方法。二、运用非Access数据库时的参数设置及配置文件的参数读取假如在VB的程序中运用了数据库的操作，将应用程序生成EXE文件或打包生成安装程序后，则必需供应一个配置(.INI)文件，在INI文件中可以对不同类型的数据库进行设置。假如找不到这个INI文件，将会导致不能访问数据库。通常状况下，INI文件的文件名和应用程序的名称相同，所以假如没有指明，VB的程序会在Windows子书目中去找和应用程序同名的INI文件。可以运用VB中的SetDataAccessOptions语句来设置INI

6、文件。SetDataAccessOptions语句的用法如下：SetDataAccessOptions1，IniFileName其中IniFileName参数指明的是INI文件的带路径的文件名。值得留意的是，当应用程序找不到这个INI文件时，或在调用OpenDataBase函数时对其Connect参数值没有设定为VB规定的标准值，如对FoxPro2.5格式设定为了"FoxPro;"(应为"FoxPro2.5;")，或者没有安装相应的ISAM驱动程序，则此时VB会显示一条错误信息"NotFoundInstallableISAM"。通常，

7、INI文件在应用程序分发出去以前已经生成，或者在安装时动态生成，也可以在应用程序中自己生成。通常这种INI文件中有"Options"、"ISAM"、"InstalledISAMs"、"FoxProISAM"、"dBASEISAM"、"ParadoxISAM"等设置段，对于一个完整的应用程序则还应有一个属于应用程序自己的设置段如"MyDB。可在其中设置DataType、Server、DataBase、OpenOnStartup、DisplaySQL、QueryTime

8、Out等较为重要的数据库参数，并以此限定应用程序一般的运行环境。WindowsAPI接口函数在Kernel.exe动态链接库中供应了一个OSWritePrivateProfileString函数，此函数能按Windows下配置文件(.INI)的书写格式写入信息。在通常状况下，应用程序还须要在运行时读取配置文件内相关项的参数。比如PageTimeOut(页加锁超时时限)、MaxBufferSize(缓冲区大小)、LockRetry(加锁失败时重试次数)等参数，通过对这些参数的读取对应用程序运行环境的设定、潜在错误的捕获等均会有很大的改善。设此应用程序的配置文件为MyDB.INI，则详细过程如下：

9、FuntionGetINIString$(ByvalFname$，ByvalszItem$，ByvalszDeFault$)#39;此自定义子函数实现INI文件内设置段内参数的读取DimTmpAsString，xAsIntegerTmp=String(2048,32)x=OSGetPrivateProfileString(Fname$，szItem$，szDefault$，Tmp，Len(Tmp)，"MyDB.INI")GetINIString=Mid$(Tmp,1,x)EndFunction以下这些函数的声明可写在模块文件内，且每个函数的声明必需在一行内DeclareFu

10、nctionOSGetPrivateProfileString%Lib"Kernel"Alias"GetPrivateProfileString"(ByValAppName$,ByValKeyName$,ByValkeydefault$,ByValReturnString$,ByValNumBytesAsInteger,ByValFileName$)DeclareFunctionOSWritePrivateProfileString%Lib"Kernel"Alias"WritePrivateProfileString&quo

11、t;(ByValAppName$,ByValKeyName$,ByValkeydefault$,ByValFileName$)DeclareFunctionOSGetWindowsDirectory%Lib"Kernel"Alias"GetWindowsDirectory"(ByVala$,ByValb%)SubForm1_Load()DimstAsStringDimxAsIntegerDimtmpAsStringtmp=String$(255,32)#39;INI文件内为各种数据库格式指明已安装的相应ISAM驱动程序x=OSWritePrivatePr

12、ofileString("InstallableISAMS","Paradox3.X","PDX110.DLL","MyDB.INI")x=OSWritePrivateProfileString("InstallableISAMS","dBASEIII","XBS110.DLL","MyDB.INI")x=OSWritePrivateProfileString("InstallableISAMS","dBA

13、SEIV","XBS110.DLL","MyDB.INI")x=OSWritePrivateProfileString("InstallableISAMS","FoxPro2.0","XBS110.DLL","MyDB.INI")x=OSWritePrivateProfileString("InstallableISAMS","FoxPro2.5","XBS110.DLL","MyDB.INI&q

14、uot;)x=OSWritePrivateProfileString("InstallableISAMS","Btrieve","BTRV110.DLL","MyDB.INI")x=OSWritePrivateProfileString("dBaseISAM","Deleted","On","MyDB.INI")#39;指明INI文件的位置x=OSGetWindowsDirectory(tmp,255)st=Mid$(tmp,1,x)S

15、etDataAccessOption1,st+"mydb.ini"#39;获得INI文件一些参数gwMaxGridRows=Val(GetINIString("MyDB.INI","MaxRows","250")glQueryTimeout=Val(GetINIString("MyDB.INI","QueryTimeout","5")glLoginTimeout=Val(GetINIString("MyDB.INI","Log

16、inTimeout","20")EndSub三、数据存取对象变量对外来数据库编程的方法及其实例在VB专业版数据库编程的三种方法中，其次种-运用数据库存取对象变量(DAO)的方法最具有功能强大、敏捷的特点。它能够在程序中存取ODBC2.0的管理函数;可以限制多种记录集类型：Dynaset，Snapshot及Table记录集合对象;可以存储过程和查询动作;可以存取数据库集合对象，例如TableDefs，Fields，Indexes及QueryDefs;具有真正的事物处理实力。因而，这种方法对数据库处理的大多数状况都特别适用。由于VB中的记录集对象与所运用的数据库格式及

17、类型是相互独立的，所以在非Access数据库中也可以运用数据库存取对象变量的方法。因而对FoxPro等外来数据库而言，运用数据库存取对象变量的方法同样也是一种最佳的选择。有一点须要留意的是，VB的标准版中仅能运用数据控件(DataControl)对数据库中的记录进行访问，主要的数据库存取对象中也仅有Database、Dynaset对象可通过数据控件的属性供应，其它的重要对象如TableDef、Field、Index、QueryDef、Snapshot、Table等均不能在VB的标准版中生成，所以运用数据存取对象变量的方法只能用VB3.0以上的专业版。非Access数据库的新建及库结构的修改VB

18、专业版中的数据库存取对象变量可以分为两类，一类用于数据库结构的维护和管理，另一类用于数据的存取。其中表示数据库结构时可以运用下面的对象：DataBase、TableDef、Field、Index，以及三个集合(Collection)：TableDefs、Fields和Indexes。每一个集合都是由若干个对象组成的，这些数据对象的集合可以完全看作是一个数组，并按数组的方法来调用。一旦数据库对象建立后，就可以用它对数据库的结构进行修改和数据处理。对于非Access数据库，大部分都是对应于一个书目，所以可以运用VB的MkDir语句先生成一个书目，亦即新建一个数据库。而每一个非Access数据库文件可看作是此书目下的一个数据表(Table)，但事实上它们是相互独立的。