Discussion :

[Sammy]

Bonjour,

J'utilise la syntaxe suivante pour acceder à une table SAS (J'ai trouvé cette syntaxe ...). Ceci à l'air de fonctionner puisque je vois le nom de mes variables défiler. Je souhaite maintenant enregistrer ma table SAS en table Access, mais je ne sais comment faire. Avez vous une idée ?

Merci.

Sammy

Voici la syntaxe :

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
26
27
28
29
30
31
32
Option Compare Database
 
Sub listSchemaFields(dir, ds)
 
 
    Dim f, i, conn, R, RS
 
    Set conn = CreateObject("ADODB.Connection")
    conn.Open "Provider=sas.LocalProvider.1;Data Source=" & dir
    Set R = conn.OpenSchema(adSchemaColumns, Array(Empty, Empty, ds))
 
    i = 0
    Do While (Not R.EOF)
        i = i + 1
        For Each f In R.Fields
            Debug.Print f.Name; "="; f.Value
        Next
        R.MoveNext
    Loop
 
 
    R.Close
    conn.Close
    Set R = Nothing
    Set conn = Nothing
 
 
End Sub
 
Sub MAIN()
    Call listSchemaFields("C:\Temp", "Class")
End Sub

[Edit] Balises Code powered by Xo, merci d'y penser [/Edit]

[Megaxel]

Et bien, tu ouvres une seconde connexion sur ta base Access, et tu fais des "insert...", des "create table...". Enfin, tu génères les requêtes SQL pour recréer ton schéma dans Access, à partir de ce que tu récupères dans SAS.
Pour le code de l'accès à une base Access, regardes dans les post en cours en ce moment, il-y-en a un qui pourrait t'aider.

[Sammy]

Je vais essayer de le faire ... Merci