一个关于远程数据访问的问题。众在参与。分多多！

Question

Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;UID=USERNAME;PWD=PASSWORD;Data Source=\\机器名\共享名\数据库名

Answer 1

用dao访问远程数据库
用opendatabase方法打开将要包含该链接的本地microsoft jet数据库 
用createtabledef方法在该数据库中创建一个新的tabledef对象 
将tabledef对象的connect属性设置为一个合法的连接字符串，标识要访问的远程数据库类型、数据文件的路径以及用户名和远程数据源密码等。 
将tabledef对象的sourcetablename属性设置为远程数据库中要访问的表的名称。 
添加tabledef对象到tabledefs集合中。 
实现链接远程表操作的过程如下： 
   Private Sub linktable(ByVal strdb As String, ByVal strrodb As String, ByVal strcn As String, ByVal strtdf As String, ByVal linktdfname As String)
        Dim linktdf As New TableDef
        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
        linktdf = dbs.createtabledef(linktdfname)     ' 链 接 远 程 表
        linktdf.Connect = ";database=" + strcn
        linktdf.sourcetablename = strtdf
        dbs.tabledefs.Append (linktdf)
    End Sub
注：以上这些出自别人之手