动态建立SQLSERVER链接表

tianya0073

各位老师，用下面这段代码可动态建立SQLSERVER链接表，但这样建立的链接表是只读的，有什么办法吗？

Public Sub CreateSQLlinkTable(ByVal SQLTable As String, ByVal accTable As String)
'QLTable为SQL被连接的源表，accTable要新建的连接表名称
        Dim db    As Database
        Dim tdef  As TableDef
        Set db = CurrentDb()
        Set tdef = db.CreateTableDef(accTable)
        tdef.Connect = "ODBC;DSN=K3;UID=SA;PWD=;DATABASE=AIS21180117135111"
        tdef.SourceTableName = SQLTable
        
        db.TableDefs.Append tdef
End Sub

tmtony

表要有主键才行

tianya0073

但通过ACCESS向导建立链接表时,会要求选择唯一识别标识,选择后,没有主键的表链接后也是可读写的啊.