你目前正处于脱机状态,正在等待 Internet 重新连接

如何访问在 VB 3.0 中的 SQL 查询中的多个数据库

注意:这篇文章是由无人工介入的微软自动的机器翻译软件翻译完成。微软很高兴能同时提供给您由人工翻译的和由机器翻译的文章, 以使您能使用您的语言访问所有的知识库文章。然而由机器翻译的文章并不总是完美的。它可能存在词汇,语法或文法的问题,就像是一个外国人在说中文时总是可能犯这样的错误。虽然我们经常升级机器翻译软件以提高翻译质量,但是我们不保证机器翻译的正确度,也不对由于内容的误译或者客户对它的错误使用所引起的任何直接的, 或间接的可能的问题负责。

点击这里察看该文章的英文版: 113701
不再更新的 KB 内容免责声明
本文介绍那些 Microsoft 不再提供支持的产品。因此本文按“原样”提供,并且不再更新。
概要
同时在单个查询中的多个数据源中访问数据时, 您可能需要使用最快、 最通用的方法--将表从不同的数据源附加到单个的 Microsoft Access 数据库。此时,可以像所有表,附加或本地,Microsoft Access 数据库的本地构造跨越两个不同的数据库的查询。
附加表具有强大的性能和管理优势--,尤其是如果要重复执行查询。但是,有时您可能需要采取速度较慢的工艺路线时,需要使用包含两个或多个数据库的特殊查询,本文中介绍。本文介绍了如何构造这些速度较慢的跨数据库查询。
更多信息
有两种方法可用于指定之外的当前打开的数据库。

方法 1

Microsoft Access SQL 提供使您得以连接到外部数据库 (而不是当前数据库的数据库) 的 IN 子句。此方法不会但是,限制您只能有一个外部数据库要一次。

IN 子句都有两个数据库名称和连接字符串的部分。数据库名称是完全限定的路径的文件或包含该数据库文件的目录,并在连接字符串包含数据库类型,并根据需要其它参数。

若要外部数据库追加分号 (;) 来连接部件,并将它用单引号或双引号括起来。下面的示例中使用 IN 子句指定的表 (客户),在 dBASE IV 数据库 (销售) 中:
SELECT Customers.CustomerIDFROM CustomersIN "C:\DBASE\DATA\SALES" "dBASE IV;"WHERE Customers.CustomerID Like "A*"				
在 Visual Basic 可以创建动态集从上面的示例通过使用下面的 Visual Basic 代码:
Dim db As DatabaseDim ds As DynasetDim sql As String' Open a database:Set db = OpenDatabase("C:\VB\BIBLIO.MDB")' Build the select statement, referencing the external dBASE IV file:sql = "SELECT Customers.CustomerID, FROM Customers"sql = sql & " IN 'C:\DBASE\DATA\SALES' 'dBASE IV;'"sql = sql & " WHERE Customers.CustomerID Like 'A*'"' Create the recordset:Set ds = db.CreateDynaset(sql)' Loop through and display the records:While Not ds.EOF   For i = 0 To ds.Fields.Count - 1      Print ds(i); "  ";   Next i   Print   ds.MoveNextWend				

方法二

合并到 Visual Basic 版本 3.0,Microsoft Access 引擎可以分析 SQL 查询,以包含用来打开数据库对象在连接字符串。在 SQL 语句的 From 子句接受允许在方括号中表名前在连接字符串的位置的完全限定的表名。在连接字符串是由句点分隔表名中。此方法允许您一次连接到多个外部数据库。

您可以通过使用下面的语法来访问任一单个 select 语句内的两个数据库中的任何表:
SELECT tbl1.fld1,tbl2.fld1FROM [odbc;dsn=datasource;database=pubs;Username= <username>;PWD=<strong password>].tbl1,[dbase iii;database=C:\DBASE3].tbl2WHERE tbl1.fld1 = tbl2.fld1				
本示例连接从两个不同的数据库的两个表,其中一个 ODBC 数据源,另一个 dBASE III 表 C:\DBASE3 的目录中。

一般情况下,在方括号内此处使用的连接字符串与一个 TableDef 附加时的连接属性或 $ OpenDatabase 语句的第四个参数。它将取决于数据库 (ODBC、 ISAM,或 Microsoft Access) 的三种形式之一。

对于 ODBC 数据库:
   [odbc;dsn=datasource;database=thedatabasename;Username=<username>;PWD=<strong password>]				
的 ISAM 数据库:
   [paradox 3.X;database=C:\DATABASE\PARADOX3]   [foxpro 2.5;database=C:\DATABASE\FOX25]   [dbase iv;database=C:\DATABASE\DBASEIV]   [btrieve;database=C:\DATABASE\BTRIEVE\FILE.DDF]				
有关 Microsoft Access 数据库:
   [;database=C:\VB\BIBLIO.MDB]				
注意 前导分号用于 Microsoft Access 数据库是非常重要。 这是完全相同的字符串所需填充之前附加到 Microsoft Access 格式数据库的表的 TableDef 对象的连接属性。前导分号是不需要的数据库格式规范的占位符,并允许在"数据库 ="遵循的子句。

多个数据库查询的代码示例

本示例创建一个联接两个表从一个一个 SQL Server 和其他 Microsoft Access 数据库中的两个数据源的动态集。TestTab 表是在 SQL Server 和 T1 表是在 Microsoft Access 数据库中。

注意您必须更改 <username>和 < 强密码 > 到正确的值在运行此代码之前。请确保用户名具有适当的权限在数据库上执行此操作。
Dim db As databaseDim ds As dynasetDim sql As String, Uid$, Pwd$Set db = OpenDatabase("C:\VB\BIBLIO.MDB")' This obtains a valid database object. It does not have to be a Microsoft' Access database; the following works equally as well:' Set db = OpenDatabase("C:\FOXPRO25\", 0, 0, "foxpro 2.5")' The values here are hard-coded, but you could prompt the user for their' user id and password.Uid$ = <username>Pwd$ = <strong password>' Build the select statement, concatenating the user's id and password:sql = "SELECT T1.F2, TestTab.F2, TestTab.F3"sql = sql & " FROM [;database=C:\ACCESS\DB1.MDB].T1 , "sql = sql & " [odbc;dsn=texas;database=playpen;Username=" & Uid$sql = sql & ";PWD=" & Pwd$ & "].TestTab"sql = sql & " WHERE T1.F1 = TestTab.F1"' Execute the select query:Set ds = db.CreateDynaset(sql)' Loop through and display the records:While Not ds.EOF   For i = 0 To ds.Fields.Count - 1      Print ds(i); "  ";   Next i   Print   ds.MoveNextWend				

特殊说明关于安全 Microsoft Access 数据库

如果在 Microsoft Access 数据库安全,Visual Basic 应用程序必须执行在 SetDataAccessOption 和 SetDefaultWorkspace 命令之前执行的任何数据访问相关的代码。这是必需的成功登录的因为不使用 Microsoft Access 在"用户名 ="和"PWD ="在连接字符串的部分。例如:
   ' Establish the location of the SYSTEM.MDA files if in another   ' directory other than the \WINDOWS directory:   SetDataAccessOption 1, "C:\MYDIR\MYAPP.INI"   ' Log on to a valid account:   SetDefaultWorkspace "admin", "<password>"				
时这样做是受保护的 Access 数据库的查询将会成功。但是,请注意由于这一过程对于此特殊的技术的内置限制 ; 只有一个安全的 Microsoft Access 数据库中可以使用特别查询进行访问。这是因为这些值与一个特定的用户的名称和密码组合的会话在初始化后,Microsoft Access 引擎将保留直到会话 (Visual Basic 可执行程序或在的环境 VB.EXE 的会话) 结束。

但是,如果两个以上受保护的 Microsoft Access 数据库需要访问查询,最好的方法是将实际的表从受保护的数据库移动到一个受保护的数据库。若要这样做,您需要为以管理员帐户更改密码""暂时在传输操作期间。然后可以使用如的数据访问示例 Visdata 中的 vba 代码将复制的表。
参考
有关 Access 安全的其他信息,请单击下面的文章编号,以查看 Microsoft 知识库中相应的文章:
105990信息: 如何 Visual Basic 3.0 Handles 安全设置 Microsoft access

属性

文章 ID:113701 - 上次审阅时间:09/01/2006 03:47:52 - 修订版本: 3.1

Microsoft Visual Basic 3.0 Professional Edition

  • kbmt kbhowto kbsqlprog KB113701 KbMtzh
反馈