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/) Powered by Discuz! X3.3