Office中国论坛/Access中国论坛

标题: 关于刷新表的链接后台方法的疑问？ [打印本页]

作者: eio 时间: 2003-1-17 17:18
标题: 关于刷新表的链接后台方法的疑问？
请问该法可以应用在局域网上吗？路径怎样表达？

如果用在www上呢？[em01][em01]

作者: eio 时间: 2003-1-17 19:36
为何没有人回应？

作者: zhengjialon 时间: 2003-1-17 20:58
www上根本不能用。

作者: eio 时间: 2003-1-17 21:44
局域网呢？

作者: zhengjialon 时间: 2003-1-17 21:48
不知是不是和你所述是一样的：
Private Sub DAO远程链接_Click()

Call linktable("D:\ACCESS\OTHER\ACCESS.MDB", "版号本", "\\Master\三维资料\版号本.MDB", "Switchboard Items", "ADP")
'本例中是将\\Master\三维资料\版号本.MDB中的Switchboard Items表链接至D:\ACCESS\OTHER\ACCESS.MDB中，并命名为adp。

End Sub

'  * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
'*                                                                                              *
'* 下例过程用来实现远程表的连接，它有5个参数，其中strrodb是要访问的远程数据库名(包括路径)；    *
'* strtdf是该数据库中的表名；strdb是要链接的本地数据库(包括路径)；                            *
'* linktdfname是本地数据库的一个新表名，用来建立远程表的链接；                               *
'* strcn是指定连接信息的字符串。需要特别注意的是，除了在访问远程microsoft jet数据库时，       *
'* 连接字符串要以分号(;)开头外，指定连接信息的字符串都必须以所访问的远程数据库类型开头。       *
'* DAO可以访问的远程数据源有以下三类：                                                       *
'*    1.Microsoft jet数据源，如：Access数据。                                                    *
'*    2.iisam(可安装的索引化顺序访问方法)格式数据源，如：foxpro、paradox、dbase数据。          *
'*    3.ODBC数据源，如：SQLServer数据、Oracle数据。                                              *
'* 例如:设网络服务器名为server，共享目录为c:\sales的foxpro3.0数据库，连接字符串应为          *
'* strcn = "foxpro3.0;database=\\server\c$\sales\region1"                                     *
'*                                                                                              *
'  * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

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

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