Office中国论坛/Access中国论坛

标题: 到目前为止无人能解,用某数据库中的窗体控制多个数据库 [打印本页]

作者: duyu19810000 时间: 2005-7-31 20:33
标题: 到目前为止无人能解,用某数据库中的窗体控制多个数据库
如果实现此操作,请高手指点一二,谢谢!!![em06]

作者: 想不通 时间: 2005-8-1 00:06
用ADO进行链接操作

作者: 李寻欢 时间: 2005-8-1 00:20
用代码打开Access文件的两种方法

1、只需打开,不需控制打开后的文件:

Application.FollowHyperlink "D:\db1.mdb"

2、打开后可控制所打开数据库及其中的对象:

'当指向 Application 对象的变量超出范围时，它所表示的 Microsoft Access 实例也将关闭。所以，必须在模块级说明这个变量。

Dim appAccess As Access.Application

Sub CreateForm()

'打开D:\DB1.MDB文件并创建一个窗体之后关闭

Const strConPathToSamples = "D:\"

Dim frm As Form, strDB As String

'把文件路径赋给变量

strDB = strConPathToSamples & "db1.mdb"

' 创建一个新的Access对象

Set appAccess = CreateObject("Access.Application")

' 打开指定的Access文件

appAccess.OpenCurrentDatabase strDB

'用下面这句可显示被打开的文件,否则不显示

appAccess.Visible = True

' 创建新窗体

Set frm = appAccess.CreateForm

' 保存新窗体

appAccess.DoCmd.Save , "NewForm1"

' 关闭Access文件

appAccess.CloseCurrentDatabase

Set appAccess = Nothing

End Sub

原文链接：http://www.accfans.net/showart.asp?art_id=187&cat_id=6

[此贴子已经被作者于2005-7-31 16:20:57编辑过]

作者: secowu 时间: 2005-8-1 17:26

以下是引用李寻欢在2005-7-31 16:20:00的发言：

用代码打开Access文件的两种方法

1、只需打开,不需控制打开后的文件:

Application.FollowHyperlink "D:\db1.mdb"

2、打开后可控制所打开数据库及其中的对象:

'当指向 Application 对象的变量超出范围时，它所表示的 Microsoft Access 实例也将关闭。所以，必须在模块级说明这个变量。

Dim appAccess As Access.Application

Sub CreateForm()

'打开D:\DB1.MDB文件并创建一个窗体之后关闭

Const strConPathToSamples = "D:\"

Dim frm As Form, strDB As String

'把文件路径赋给变量

strDB = strConPathToSamples & "db1.mdb"

' 创建一个新的Access对象

Set appAccess = CreateObject("Access.Application")

' 打开指定的Access文件

appAccess.OpenCurrentDatabase strDB

'用下面这句可显示被打开的文件,否则不显示

appAccess.Visible = True

' 创建新窗体

Set frm = appAccess.CreateForm

' 保存新窗体

appAccess.DoCmd.Save , "NewForm1"

' 关闭Access文件

appAccess.CloseCurrentDatabase

Set appAccess = Nothing

End Sub

原文链接：http://www.accfans.net/showart.asp?art_id=187&cat_id=6

楼主的标题应该改改啦

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)