Importer table sql server

Version imprimable

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:

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

30/06/2008, 12h31
charliejo

Je prècise que je ne veux pas utiliser la liaison de table.
Je veux vraiment importer les données de sql server dans access
30/06/2008, 12h45
supersnail

Tu as 2 possibilités... Passer par ADO (à coup de requêtes SQL) ou DAO (spécifique à Access)
30/06/2008, 12h48
charliejo

Mais je suis déjà connecté en ADO!!!!!
Et en DAO, je ne sais pas me connecter à un base sql server....
30/06/2008, 12h53
supersnail

Non,il faut se connecter en ADO ou DAO sous la Base Access (CurrentDb...) Pour,plus d'infos,l'ami :google:
30/06/2008, 12h59
charliejo

Je ne comprends rien à ce que tu me dis.
En quoi me connecter me permettra de copier mon recordset?

Alors j'ai bien la solution suivante mais qui m'oblige à parcourir toutes les lignes et tous les champs.
Cela risque d'être très long car j'ai plusieurs tables à importer mensuellement.

Code:

1
2
3
4
5
6
7
8
9
10
11
            rst.Open "Select * FROM User", cnx
            'Connexion sur la table local pour copie
            Set enregCopie = CurrentDb.OpenRecordset("select * from User")
            While Not rst.EOF
                     enregCopie.AddNew
                     For Each vFld In rst.Fields
                        enregCopie.Fields(vFld.Name) = vFld.Value
                     Next
                     enregCopie.Update
                 rst.MoveNext
             Wend

Mais est-qu'il y aurait pas un moyen plus rapide avec la copie complète du Recordset?
Merci