Bonjour,
J'aurais besoin d'importer (en VBA) une table d'une base sql server dans Access.
J'arrive bien à me connecter à ma base sqlserver et à récuperer un recordset de ma table.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Dim cnx As ADODB.Connection
    Dim rst As ADODB.Recordset
 
    Set cnx = New ADODB.Connection
    Set rst = New ADODB.Recordset
    'parametre de connection
    cnx.ConnectionString = "Driver={SQL Server};server=KALAN\SQLEXPRESS;UID=ADS;PWD=net;database=test"
    cnx.Open
    'test de connection
    If cnx.State = adStateOpen Then
        'connexion ok
        'Initialisation du RecordSet
        If rst.State <> adStateClosed Then
            rst.Close
        Else
            'Ouvre une transaction pour ne pas à avoir à réaliser de commit en fin de traitement
            cnx.BeginTrans
            'Positionne le curseur côté client
            rst.CursorLocation = adUseClient
            'Exécute la requête
            rst.Open "Select * FROM User", cnx
            'Valide la transaction
            cnx.CommitTrans
       End If
    End If
Mais je ne sais pas comment à partir de mon recordset pour copier les enregistrements dans une table access existante ou créer une nouvelle table access.

Merci