《2022年在VB中兼容非ACCESS数据库的技巧access教程.docx》由会员分享，可在线阅读，更多相关《2022年在VB中兼容非ACCESS数据库的技巧access教程.docx（10页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、2022年在VB中兼容非ACCESS数据库的技巧access教程摘要：本文从VB数据库体系结构的角度动身，结合一个详细实例，阐述了在VB中兼容非ACCESS格式数据库的详细方法和技巧。关键词：VB、非ACCESS数据库、数据存取对象一个完整的数据库管理系统(DBMS)应是能兼容市面上各种较流行数据格式的系统，它充分考虑了不同用户的实际要求。鉴于目前市面上有多种数据库格式（如Foxpro、DBase、Paradox等）流行，因而在VB数据库应用程序中兼容非Access数据库就显得尤为重要了。作为一种流行的开发平台，VB供应了强大的数据库功能。主要有以下三种：数据控件法:运用数据存取对象（Data
2、 Access Object ）法；干脆调用ODBC 2.0 API接口函数法。其中调用数据存取对象的方法相对其它两种方法具有便利敏捷、功能强大的突出优点。本文即从调用数据库存取对象的方法动身，实现了非Access格式数据库（以FoxPro数据库为例）的建新库、拷贝数据库结构、动态调入等操作，阐述了从编程技巧上弥补VB对这些外来数据库支持不足的可行性。一、VB数据库的体系结构VB数据库的核心结构是所谓的MicroSoft JET数据库引擎，它为VB与数据库的接口供应了基本的方法和手段。JET引擎被Visual Basic、Microsoft Access和其它Microsoft产品所共享。因而
3、在VB中Access数据库格式是一种标准的内置格式，全部的非Access数据库都被称为外来数据库。JET引擎的作用就像是一块“面板”，在其上可以插入多种索引依次存取方法（即ISAM）数据驱动程序。这就是VB对非Access数据库具有丰富支持的真正缘由。VB专业版中供应了FoxPro、dBASE（或Xbase）、Paradox、Btrieve等数据库的ISAM驱动程序，这就使得VB能支持这些数据库格式。另外，其他的很多兼容ISAM的驱动程序也可以通过从厂商的售后服务得到。因而从理论上说，VB能支持全部兼容ISAM的数据库格式（前提是只需获得这些数据库的ISAM驱动接口程序）。二、运用非Acces
4、s数据库时的参数设置及配置文件的参数读取值得留意的是，大多数的程序员都不注意数据库配置文件的运用，殊不知这是极为重要的。假如在VB的程序中运用了数据库的操作，将应用程序生成EXE文件或打包生成安装程序后，则必需供应一个数据库配置（.INI）文件，在INI文件中可以对不同类型的数据库进行设置。假如找不到这个INI文件，将会导致不能访问数据库。通常状况下，INI文件的文件名和应用程序的名称相同，所以假如没有指明，VB的程序会在Windows子书目中去找和应用程序同名的INI文件。可以运用VB中的SetDataAccessOptions语句来设置INI文件。SetDataAccessOptions语
5、句的用法如下：SetDataAccessOptions 1，IniFileName其中IniFileName参数指明的是INI文件的带路径的文件名。值得留意的是，当应用程序找不到这个INI文件时，或在调用OpenDataBase函数时对其Connect参数值没有设定为VB规定的标准值，如对FoxPro 2.5格式设定为了“FoxPro;”（应为“FoxPro 2.5;”），或者没有安装相应的ISAM驱动程序，则此时VB会显示一条错误信息“Not Found Installable ISAM”。通常，INI文件在应用程序分发出去以前已经生成，或者在安装时动态生成，也可以在应用程序中自己生成。通常
6、这种INI文件中有“Options”、“ISAM”、“Installed ISAMs”、“FoxPro ISAM”、“dBASE ISAM”、“Paradox ISAM”等设置段，对于一个完整的应用程序则还应有一个属于应用程序自己的设置段如“MyDB”。可在其中设置DataType、Server、DataBase、OpenOnStartup、DisplaySQL、QueryTimeOut等较为重要的数据库参数，并以此限定应用程序一般的运行环境。Windows API接口函数在Win95系统供应的动态链接库中供应了一个OSWritePrivateProfileString函数，此函数能按Wind
7、ows下配置文件（.INI）的书写格式写入信息。在通常状况下，应用程序还须要在运行时读取配置文件内相关项的参数。比如PageTimeOut（页加锁超时时限）、MaxBufferSize（缓冲区大小）、LockRetry（加锁失败时重试次数）等参数，通过对这些参数的读取对应用程序运行环境的设定、潜在错误的捕获等均会有很大的改善。设此应用程序的数据库配置文件为MyDB.INI，则详细过程如下：Funtion GetINIString$( Byval Fname$，Byval szItem$，Byval szDeFault$ )此自定义子函数实现INI文件内设置段内参
8、数的读取Dim Tmp As String， x As IntegerTmp = String( 2048,32 )x = OSGetPrivateProfileString( Fname$，szItem$，szDefault$，Tmp，Len(Tmp)，“MyDB.INI”)GetINIString = Mid$( Tmp,1,x )End Function通过此函数就能实现对各种数据库格式的读取。三、调用数据存取对象对非Access数据库编程的方法及其实例VB专业版中运用数据库存取对象变量（DAO）的方法最具有功能强大、编程敏捷的特点。它能够在程序中存取OD
9、BC 2.0的管理函数；可以限制多种记录集类型：Dynaset，Snapshot及Table记录集合对象；可以存储过程和查询动作；可以存取数据库集合对象，例如TableDefs，Fields，Indexes及QueryDefs；具有真正的事物处理实力。这种方法对数据库处理的大多数状况都特别适用。从VB的程序代码的角度来看，供应给VB程序员的记录集对象（RecordSet）同所运用的数据库格式及类型是相互独立的。即对FoxPro等数据库仍旧可以运用众多的数据库存取对象变量，这就为非Access数据库的访问供应了最重要的前提和方法。在VB中从一种数据库类型转化为另一种数据库类型几乎不须要或只须要很
10、少的代码修改。而且，尽管dBASE、Paradox本身的DDL（Data Definition Language，即数据定义语言）和DML（Data Manipulation Language，即数据操纵语言）是非结构化查询的，但它们仍旧可以运用VB的SQL语句和JET引擎来操纵。因而对FoxPro等非Access数据库而言，调用数据库存取对象的方法同样也是一种最佳的选择。（一）非Access数据库的新建及库结构的修改VB专业版中的数据库存取对象变量可以分为两类，一类用于数据库结构的维护和管理，另一类用于数据的存取。其中表示数据库结构时可以运用下面的对象：DataBase、TableDef、F
11、ield、Index，以及三个集合（Collection）：TableDefs、Fields和Indexes。每一个集合都是由若干个对象组成的，这些数据对象的集合可以完全看作是一个数组，并按数组的方法来调用。一旦数据库对象建立后，就可以用它对数据库的结构进行修改和数据处理。对于非Access数据库，大部分都是对应于一个书目，所以可以运用VB的MkDir语句先生成一个书目，亦即新建一个数据库。而每一个非Access数据库文件可看作是此书目下的一个数据表（Table），但事实上它们是相互独立的。下面是新建一个FoxPro 2.5格式数据库的程序实例。Sub CreateNew ( )Dim Db1
12、 As database， Td As TableDefsDim T1 As New Tabledef，F1 As New Field， F2 As New Field， F3 As New FieldDim Ix1 As New IndexDim Path As StringConst DB_TEXT = 10，DB_INTEGER = 3ChDir Path$ = InputBox( 请输入新路径名：, 输入对话框 )MkDir Path$ 新建一个子书目Set Db1 = OpenDatabase(Path$, True, False, FoxPro 2.5;)S
13、et Td = Db1.TableDefsT1.Name = MyDB 新建一个数据表，数据表名为MyDBF1.Name = Name， F1.Type = DB_TEXT， F1.Size = 20F2.Name = Class， F2.Type = DB_TEXT， F2.Size = 20F3.Name = Grade， F3.Type = DB_INTEGERT1.Fields.Append F1 向数据表中添加这些字段T1.Fields.Append F2T1.Fields.Append F3Ix1.Name = Name ，Ix1.Fields = Name， Ix1.Primar
14、y = True 新建索引T1.Indexes.Append Ix1 向数据库的Indexes集合中添加新的索引Td.Append T1 向TableDefs集合中添加新表Db1.Close 必需先关闭数据库对象再退出End Sub在此段程序中值得留意的是，对非Access数据库的新建不用CreateDatabase函数，而是用OpenDatabase函数，这点与Access数据库大不一样，但也仅仅是针对非Access数据库而言才能用OpenDatabase函数来新建一个数据库对象。在VB中，外来数据库的不同格式只在OpenDatabase函数的最终一个参数Connect中有所体现，不同格式的
15、外来数据库其Connect参数值也不同，除此以外，在VB专业版中其编程的方法和步骤及技巧是基本相同的。新建子书目后，不能用ChDir语句进入它，否则会出现“MyDB is not a valid path”的错误。同时，对F1、F2、F3等新建字段对象的定义也必需分别定义，否则会出现“Element not defined”（变量未定义）的错误。通过肯定的编程技巧还可以实现非Access数据库的库结构的拷贝，下面是一段相应的程序。Function GetPos( TFname$ ) 此自定义函数完成对带路径文件名中最终一个“”符号的定位Dim I As Integer，Tmp As S
16、tringTmp$ = TFname$For I = 0 To 255Pos% = Pos% + InStr( 1, Tmp$, )E1% = InStr( 1, Tmp$, )Tmp$ = Right$( Tmp$, Len(TFname$) - Pos% )If E1% = 0 Then 找到最终一个“”符号的位置，并登记来GetPos = Pos%Exit ForEnd IfNext IEnd FuntionSub CopyStruc( )Dim Db1 As database, Ds1 As Dynaset，Td As T
17、ableDefs， Fld As FieldsDim Fname，SourceF，DestF，Path As String，Pos1 As IntegerCMD1.Filter = FoxPro数据库文件(*.DBF)|*.DBF|全部文件|*.* CMD1为一个对话框的限制名CMD1.DialogTitle = 调入Ms FoxPro数据库文件CMD1.FilterIndex = 1CMD1.Action = 1DestF$ = InputBox$( 请输入目标文件名:, 输入对话框 )If CMD1.FileName = “ ”Or DestF$ = ThenMsgBox 源文件或目标文件名为空Exit SubEl