Office中国论坛/Access中国论坛

标题: 动态建立SQLSERVER链接表 [打印本页]

作者: tianya0073 时间: 2016-3-25 13:28
标题: 动态建立SQLSERVER链接表
本帖最后由 roych 于 2016-3-27 20:35 编辑

各位老师，用下面这段代码可动态建立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 时间: 2016-3-26 21:52
表要有主键才行

作者: tianya0073 时间: 2016-3-28 08:54
但通过ACCESS向导建立链接表时,会要求选择唯一识别标识,选择后,没有主键的表链接后也是可读写的啊.

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)