sábado, 10 de octubre de 2015

¿Cómo cambiar la cadena de conexión en tablas vinculadas de MS Access?

Function displayLinks()
    Dim tdf As TableDef
    Dim db As Database
        Set db = CurrentDb
        For Each tdf In CurrentDb.TableDefs
            If tdf.Connect <> vbNullString Then
               Debug.Print tdf.Name; " -- "; tdf.SourceTableName; " -- "; tdf.Connect
            End If
        Next
End Function

Function cambiarLinks()
    Dim tdf As TableDef
    Set db = CurrentDb
        For Each tdf In CurrentDb.TableDefs
            If tdf.Connect <> vbNullString Then
                tdf.Connect = "ODBC;DSN=xx;APP=Microsoft Office 2010;DATABASE=xx;TABLE=" & tdf.Name
                tdf.RefreshLink
            End If
        Next
End Function

No hay comentarios:

Publicar un comentario