VB5中远程数据库的访问

原作者:www.upwinder.com 添加时间:2007-09-01 原文发表:2007-08-31 人气:31 来源：未知

本文章共5221字，分4页，当前第1页，快速翻页：

---- 在VB5.0 中，用Microsoft Jet 数据库引擎和数据访问对象DAO（Data ACCESS Object）可以创建功能强大的客户/ 服务器应用程序。对远程数据库的访问是开发这类应用程序的关键环节，本文将介绍在VB5.0 中用DAO 通过Miscrosoft Jet 数据库引擎访问远程数据库的方法。
逆风编程精品

---- 用DAO 访问远程数据库大体上可以通过三步来实现，即数据连接、数据处理和断开连接。下面主要介绍数据连接和数据处理的具体操作。

---- 一、数据连接

---- DAO 一般通过链接远程表的方式来进行数据连接。这样，数据虽然驻留在远程数据源上，但在本地的Microsoft Jet 数据库中可以存储与远程数据的永久性连接，同时缓存链接的表结构信息，从而在下一次访问该表时，不用再次从服务器中检索这些结构信息，加快了连接速度。一旦链接了一个表，该链接便会保留在各会话期间，直到连接断开。链接远程表的具体操作是：

用OpenDatabase 方法打开将要包含该链接的本地Microsoft Jet 数据库

用CreateTableDef 方法在该数据库中创建一个新的TableDef 对象

将TableDef 对象的Connect 属性设置为一个合法的连接字符串，标识要访问的远程数据库类型、数据文件的路径以及用户名和远程数据源密码等。

将TableDef 对象的SourceTableName 属性设置为远程数据库中要访问的表的名称。

添加TableDef 对象到TableDefs 集合中。
---- 　　实现链接远程表操作的过程如下：

Public Sub LinkTable(strDB As String, strRoDB As String,
strCn As String, strTdf As String, _
　　　　　　　　　 linkTdfName As String)
　　 Dim linkTdf As New TableDef
　　 Set dbs = OpenDatabase(strDB)
　　 linkTdf.Name = linkTdfName
100
　　 tempTable = UCase(linkTdf.Name)
　　 For i = 0 To dbs.TableDefs.Count - 1
　　　　 If UCase(dbs.TableDefs(i).Name) = tempTable Then
　　　　　　 If MsgBox(linkTdfName " 已存在，是否删除？", _
　　　　　 vbQuestion vbYesNo) = VBYes Then
　　　　　　　　 dbs.TableDefs.Delete linkTdf.Name
　　　　　　　　 Exit For
　　　　　　 Else: MsgBox "重新输入新表名"
　　　　　　 linkTdfName = InputBox(" 新表名")
　　　　　　 GoTo 100
　　　　　　 End If
　　　　 End If
　　 Next i
Set linkTdf = dbs.CreateTableDef
(linkTdfName)　 '链接远程表
　　 linkTdf.Connect = ";database=" strCn
　　 linkTdf.SourceTableName = strTdf
　　 dbs.TableDefs.Append linkTdf
End Sub

---- 上述过程用来实现远程表的连接，它有5 个参数，其中strRoDB 是要访问的远程数据库名（包括路径）；strTdf 是该数据库中的表名；strDB 是要链接的本地数据库（包括路径）；linkTdfName 是本地数据库的一个新表名，用来建立远程表的链接；strCn 是指定连接信息的字符串。需要特别注意的是，除了在访问远程Microsoft Jet 数据库时，连接字符串要以分号（；）开头外，指定连接信息的字符串都必须以所访问的远程数据库类型开头。DAO 可以访问的远程数据源有以下三类：

Microsoft Jet 数据源，如：ACCESS 数据。

IISAM（可安装的索引化顺序访问方法）格式数据源，如：FoxPro、Paradox、dBASE 数据。

本文章更多内容：1 - 2 - 3 - 4 - 下一页>>

• 用VB 5.0从Recordset中打印列表

• Text 转换为 Access MDB

• VB 神童教程第二章第十一节——滚动条

• 怎样使用有密码的 Access 数据库

• 利用VB进行多媒体程序设计初步