如何用代码在折分数据库中建一个新表

jynj

拆分数据库，一般主库做链接表，链接到后台数据库，如何在主库中用代码在后台库中建一个新表，在主库中同时生成一个相应的链接表呢？

haemon

'=======================================================================
' 函 数：adoLinkTable(strMdbPath, strPWD, strLinkName, strTblName)
' 参数说明：strMdbPath 为要链接的数据库的路径
' strPWD 为打开数据库的密码
' strLinkName 为链接表名称
' strTblName 为链接的表的名称
' 返 回：True 成功，False 失败
' 调用举例：
' OK = adoLinkTable("c:\123.mdb", "123", "订单", "订单")
' 作者：朱亦文
' 日期：2002.11.21
'=======================================================================
Public Function adoLinkTable(ByVal strMdbPath As String, _
ByVal strPWD As String, _
ByVal strLinkName As String, _
ByVal strTblName As String) As Boolean

On Error Resume Goto errh

Dim catDB As ADOX.Catalog
Dim tblLink As ADOX.Table

Set catDB = New ADOX.Catalog
catDB.ActiveConnection = CurrentProject.Connection

' 建立一个新的表对象
Set tblLink = New ADOX.Table

With tblLink
' 链接表名称
.Name = strLinkName
Set .ParentCatalog = catDB

.Properties("Jet OLEDB:Create Link") = True
' 数据库的路径和名称
.Properties("Jet OLEDBink Datasource") = strMdbPath
' 提供者及密码
.Properties("Jet OLEDBink Provider String") = "MS AccessWD=" & strPWD & ";"
' 原数据库中的表
.Properties("Jet OLEDB:Remote Table Name") = strTblName
End With

catDB.Tables.Append tblLink ' 添加到库中
Set tblLink = Nothing

adoLinkTable = True
Exit Function

errh:
adoLinkTable = False
End Function

jynj

好象不能用啊，On Error Resume Goto errh 这句有问题，修改后Dim catDB As ADOX.Catalog又出现定义错误，从整体上看，像是修正链接表，新建一个表，表的结构什么的都无法定义？

haemon

新建表是用CREATTABLE吧

haemon

需要引用Microsoft ADO Ext. 2.5 For DDL and Stcurity 的