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]