Discussion :

[milou_puce]

Bonjour,

Au démarrage d'une base Access 2007, je lie les tables d'une base oDbLiee par le code suivant, qui marche bien :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
For Each oTbl In oDbLiee.TableDefs
    Set oTbl = oDb.CreateTableDef(oTbl.Name)
    If Not oTbl.Name Like "MSys*" And oTbl.Name <> "TMGV" Then
        With oTbl
            .Connect = strConnect
            .SourceTableName = oTbl.Name
            'Debug.Print oTbl.Name
        End With
        'Ajoute la table à la base de données
        oDb.TableDefs.Append oTbl
        oDb.TableDefs.Refresh
    End If
Next oTbl

Ayant migré de la base oDbLiee vers une base MS SQL Server 2008, je n'arrive pas à trouver par quel code je peux désormais lier les tables de cette nouvelle base.

Une idée, svp ?

[loufab]

Bonjour,

Le même code mais avec une chaine Connect pour SQL Server.

Soit tu lies une table et tu observes le Connect créé.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

? currentdb.tabledefs("tableSql").connect

Soit tu vas sur ce site chercher la chaine SS que tu adaptes suivant ta configuration.

http://www.connectionstrings.com/

Cordialement,