VB代码ACCESS连接.docVIP

VB6.0外来数据库的访问 大家知道，VB6.0最引人注目的特点，也是其最令程序员关心的地方，就是它访问多种数据库的强大功能。VB中将非MS Access数据库称为外来数据库(External Database)，如dBASE、FoxPro、ODBC等。VB6.0中使用数据控制访问外来数据库同访问Access数据库类似，这里不再赘述。访问外来数据库(以dBASE为例)大致可分为以下几步： 一：建立一个Access型数据库，并在数据库中创建新表—即为附加表。通过设置 附加表的各属性值，使其与你所要访问的数据库建立链接关系。程序代码如下： DimDbasDatabase DimTdasNewTabledef SetDb=OpenDatabase(MYDB.MDB) Td.Connect=dBASE:DATABASE=c:\DATADIR Td.SourceTableName=AU THOR Td.Name=dBASEAuthorTable Db.tabledefsAppendTd Db.close 二：设置INI文件路径。在VB的程序中使用了访问外来数据库操作，将应用程序生成EXE文件后，必须提供一个INI文件。若找不到这个INI文件，将会导致不能访问数据库，并出现“NOTFOUNDIN STOLLABKISAMS’的错误信息。设置INI文件路径后，VB的程序会在WINDOWS子目录中寻找与应用程序同名的INI文件。设置INI文件路径代码为： SetDataAccessOption1,“Path\Filename” 三：编辑.INI文件可对不同种类的数据库进行设置，下面为一INI文件代码： 〔Options〕 SystemDB=c: \MyPATH\SYSTEM.MDA 〔ISAM〕 PageTimeout=5 MaxBufferSize=128 LockRetry=20 CommitLockPetry=20 ReadAheadPages=16 〔InstallableISAMs〕 Paradox3.x=C:\VB\pdx110.DLL FoxPro2.0=C:\VB\xbs110.DLL FoxPro2.5=C:\VB\pdx110.DLL dBASE=C:\VB\pdx110.DLL dBASE=C:\VB\pdx110.DLL Btrieve=C:\VB\btrv110.DLL 〔ParadoxISAM〕 PageTimeout=600 ParadoxUsername=BaiUser ParadoxNetPath=P:\PDXDB\ CollatingSeguence=Ascii 〔dBASE〕 centry=off Data=American Mark=47 Deleted=on 这样通过访问新数据库MYDB.MDB和表“DBASEAU THORTABK”即可访问你所要访问的外来数据库了。 使用这种方法访问外来数据库应该注意的是，附加表在所加到的数据库中只是建立了一个链接关系，表的实际所在，仍然存在于原数据库中，该表在所附加到的数据库中被删除时，只是删掉了链接关系，实际的表并没有被删除。 VB数据库记录查询方法 大家知道，在VB6.0中进行数据库记录的实际查询操作，必需根据打开数据库的方式来确定。以VB3．0为例，数据集对象有Table、Dynaset、Snapshot三种，下面几种查询方法分别适用于以上面不同的对象方式打开的数据库。 1．用SQL查询。SQL是一种结构化数据查询语言，SQL也只能适用Dynaset和Snapshot数据集对象，这种方法是根据SQL条件生成一个数据集对象。例如： s＝”select * from demo where 姓名 like ’刘*’” set dy＝db.createDynaset（s） 〖注〗：本文中的db为数据库对象，打开方式为： 例如：set db＝OpenDatabase（”C：＼VB＼SAMPLE．MDB”）。 2．用FILTER属性查询。Filter属性是Dynaset和Snapshot对象才具备的，所以也只能适用于这两者，不能用于Table。Filter是用来过滤数据的，只要我们给定过滤条件就可以将所需的记录筛选出来。需要说明的是，我们需要将以Filter属性筛选出来的数据集打开才能对其操作。例如： set dy1＝db．createDynaset（”demo”） dy1．filter＝”姓名 like ’刘*’” set dy2＝dy1．createDynaset（） 3．用FIND方法查询。FIND适用于Dynaset和Snapshot对象，有Fi