Question

VB大神：求VB DAO或ADO动态创建Access链接表详细代码

因为Access数据库单个文件限制最大2G，所以我在主数据库中做了几个外部链接表。这样就可以无视数据库最大2G的限制了。现想在VB中以代码动态完成这部分。
注：不是SQL Join，是Access获取外部数据>链接表。最好用ADO接口，当然DAO也可以。

Answer 1

Public Sub CreateSQLlinkTable(ByVal SQLServerName As String, ByVal Database As String, ByVal SQLTable As String, ByVal accTable As String, Optional ByVal SQLID As String = "SA", Optional ByVal SQLPASS As String = "")
'建链接表 SQLServerName为SQL服务器名称可以为IP地址，Database为数据库名称，SQLTable为SQL被连接的源表，accTable要新建的连接表名称，SQLID为SQL服务器ID默认为“SA”，SQLPASS为数据库密码默认为空
'调用方法如： call CreateSQLlinkTable2("192.168.1.200","UfNote_001_2009","Person","c123","sa","")
'调用参数全部要加双引号
        Dim db    As Database
        Dim tdef  As TableDef
        Set db = CurrentDb()
        Set tdef = db.CreateTableDef(accTable)
        tdef.Connect = "ODBC;Driver=SQL Server;server=" & SQLServerName & ";UID=" & SQLID & ";PWD=" & SQLPASS & ";DATABASE=" & Database
        tdef.SourceTableName = SQLTable
        db.TableDefs.Append tdef
End Sub

追问

我是用Access，链接另一个Access数据库里面的一个表，不是链接SQL数据库。上面的例子是用DAO接口。能否用ADO？

追答

tdef.Connect = "ODBC;Driver=SQL Server;server=" & SQLServerName & ";UID=" & SQLID & ";PWD=" & SQLPASS & ";DATABASE=" & Database
改成ACCESS的路径不就OK...
你自己再ACCESS里建一个SQL远程链接表和一个ACCESS本地连接表，把鼠标放上面看一下他连接地址到底是个什么样