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

文章翻译 文章翻译
文章编号: 113701 - 查看本文应用于的产品
展开全部 | 关闭全部

本文内容

概要

同时在单个查询中的多个数据源中访问数据时, 您可能需要使用最快、 最通用的方法--将表从不同的数据源附加到单个的 Microsoft Access 数据库。此时,可以像所有表,附加或本地,Microsoft Access 数据库的本地构造跨越两个不同的数据库的查询。
附加表具有强大的性能和管理优势--,尤其是如果要重复执行查询。但是,有时您可能需要采取速度较慢的工艺路线时,需要使用包含两个或多个数据库的特殊查询,本文中介绍。本文介绍了如何构造这些速度较慢的跨数据库查询。

更多信息

有两种方法可用于指定之外的当前打开的数据库。

方法 1

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

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

若要外部数据库追加分号 (;) 来连接部件,并将它用单引号或双引号括起来。下面的示例中使用 IN 子句指定的表 (客户),在 dBASE IV 数据库 (销售) 中:
SELECT Customers.CustomerID
FROM Customers
IN "C:\DBASE\DATA\SALES" "dBASE IV;"
WHERE Customers.CustomerID Like "A*"
				
在 Visual Basic 可以创建动态集从上面的示例通过使用下面的 Visual Basic 代码:
Dim db As Database
Dim ds As Dynaset
Dim 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.MoveNext
Wend
				

方法二

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

您可以通过使用下面的语法来访问任一单个 select 语句内的两个数据库中的任何表:
SELECT tbl1.fld1,tbl2.fld1
FROM [odbc;dsn=datasource;database=pubs;Username= <username>;PWD=<strong password>].tbl1,
[dbase iii;database=C:\DBASE3].tbl2
WHERE 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 database
Dim ds As dynaset
Dim 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.MoveNext
Wend
				

特殊说明关于安全 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

属性

文章编号: 113701 - 最后修改: 2006年9月1日 - 修订: 3.1
这篇文章中的信息适用于:
  • Microsoft Visual Basic 3.0 Professional Edition
关键字:?
kbmt kbhowto kbsqlprog KB113701 KbMtzh
机器翻译
注意:这篇文章是由无人工介入的微软自动的机器翻译软件翻译完成。微软很高兴能同时提供给您由人工翻译的和由机器翻译的文章, 以使您能使用您的语言访问所有的知识库文章。然而由机器翻译的文章并不总是完美的。它可能存在词汇,语法或文法的问题,就像是一个外国人在说中文时总是可能犯这样的错误。虽然我们经常升级机器翻译软件以提高翻译质量,但是我们不保证机器翻译的正确度,也不对由于内容的误译或者客户对它的错误使用所引起的任何直接的, 或间接的可能的问题负责。
点击这里察看该文章的英文版: 113701
Microsoft和/或其各供应商对于为任何目的而在本服务器上发布的文件及有关图形所含信息的适用性,不作任何声明。 所有该等文件及有关图形均"依样"提供,而不带任何性质的保证。Microsoft和/或其各供应商特此声明,对所有与该等信息有关的保证和条件不负任何责任,该等保证和条件包括关于适销性、符合特定用途、所有权和非侵权的所有默示保证和条件。在任何情况下,在由于使用或运行本服务器上的信息所引起的或与该等使用或运行有关的诉讼中,Microsoft和/或其各供应商就因丧失使用、数据或利润所导致的任何特别的、间接的、衍生性的损害或任何因使用而丧失所导致的之损害、数据或利润不负任何责任。
不再更新的 KB 内容免责声明
本文介绍那些 Microsoft 不再提供支持的产品。因此本文按“原样”提供,并且不再更新。

提供反馈

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com