设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 827|回复: 4
打印 上一主题 下一主题

关于刷新表的链接后台方法的疑问?

[复制链接]
跳转到指定楼层
1#
发表于 2003-1-17 17:18:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
请问该法可以应用在局域网上吗?路径怎样表达?

如果用在www上呢?[em01][em01]
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
 楼主| 发表于 2003-1-17 19:36:00 | 只看该作者
为何没有人回应?

点击这里给我发消息

3#
发表于 2003-1-17 20:58:00 | 只看该作者
www上根本不能用。
4#
 楼主| 发表于 2003-1-17 21:44:00 | 只看该作者
局域网呢?

点击这里给我发消息

5#
发表于 2003-1-17 21:48:00 | 只看该作者
不知是不是和你所述是一样的:
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

您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-1 11:36 , Processed in 0.077730 second(s), 29 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表