Discussion :

[mike_28]

Bonjour à tous,

je suis un p'tit nouveau sur ce forum. (encore un).
je vous fais part de mon soucis, j'aimerai savoir si il est possible de récuperer la composition d'une table réalisé sous Access en SQL.
Si oui, quels sont les méthodes ?
Merci pour votre participation.

[DMboup]

Tu peux parcourir la table pour récupérer tous les champs ainsi que leur type. Ensuite tu crée le code sql adéquat.

Exemple

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
33
34
35
36
37
38
39
40
41
42
43
44
 
 
Dim mbd As Database, MaTable as TableDef
Dim MesChamps As Field, msql As String, i As Integer, MonType as String
 
Set mbd = CurrentDb()
MaTable=mbd.OpenTableDef("TaTable")
i = 1
For Each MesChamps In MaTable
    'Récupération du type
        Select Case MesChamps.Type
                Case dbBoolean
                    MonType = "Booleen"
 
                Case dbInteger
                    MonType = "Entier"
 
                Case dbLong
                    MonType = "Entier long"
 
                Case dbCurrency
                    MonType = "Monétaire"
 
                Case dbSingle
                    MonType = "réel simple"
 
                Case dbDouble
                    MonType = "Réel long"
 
                Case dbDate
                    MonType = "Date Heure"
 
                Case dbText
                    MonType = "Texte"
 
                Case dbMemo
                    MonType = "Memo"
 
             End Select
    msql=msql & MesChamps.Name "("& MonType &")"
Next
'Contruction du code SQL
 
MonSql="Create table NomTable " & msql

PS : C'est juste une indication. La saisie est faite à la va vite. A toi de l'adapter. Voila

[Jean-Philippe André]

bonjour mike_28,
bienvenue sur DVP

je rajoute une proposition s'il s'agit pour toi de recopier la structure de la table A dans une table B.

Code :

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

CurrentDb.Execute "SELECT A.* INTO B FROM A;"

pour info, la variable i de DMboup n'est pas utilisée

[DMboup]

pour info, la variable i de DMboup n'est pas utilisée

Oui c'est juste pour savoir quand concacténer ou non

Code :

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

1
2
3
4
5
 
  'si début de la boucle i=?
        msql=MesChamps.Name "("& MonType &")"
  'sinon 
        msql=msql & MesChamps.Name "("& MonType &")"

i doit être initialiser quelque part.

[Jean-Philippe André]

ok,
moi j'aurais mis dès le début du code

Code :

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

msql = ""

[DMboup]

msql = ""