From d97d9ce778823714fda3f7f324e170334f134cc2 Mon Sep 17 00:00:00 2001 From: Raoul Jacobs Date: Thu, 24 Mar 2022 13:13:10 +0100 Subject: [PATCH] add function to link a table/view using the connectionstring of an existing table/view --- M_omSSMAAConnector.def | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/M_omSSMAAConnector.def b/M_omSSMAAConnector.def index a4b01ce..100c392 100644 --- a/M_omSSMAAConnector.def +++ b/M_omSSMAAConnector.def @@ -116,6 +116,12 @@ Dim strDatabaseName As String Debug.Print Now End Function +Public Sub LinkTableViewUsingSSMA(existingTableName As String, toLinkName As String) +Dim cn As String + cn = GetConnectionStringByProperty(existingTableName) + AttachTable cn, toLinkName, toLinkName +End Sub + Sub UpdateSSMAConnectionString(Optional Group As String = "", Optional ConnectionType As ConnectionTypes = ConnectionTypes.Default) Dim rs As New ADODB.Recordset Dim cmd As New ADODB.Command