Discussion :

[VARACH]

Bonjour ,
je souhaite generer des tables access pour toute une annee . ma table original a la nom L1_1_2006 , pour ligne de fab 1 , semaine 1, Annee 2006

Ma connection se fait pas un ado

Si join mon code .. mais qui ne marche pas ..

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Command1_Click()
Dim table As String
 
For I = sd To sf ' Sd pour semaine de debut , Sf semaine de fin .. 1 à 52
 
table = "L" & l & "_" & I & "_" & a  ' Mise en forme du nom  de la table . ex L1_1_2006
sql = "SELECT L1_1_2006.* INTO " & table & " FROM L1_1_2006"
 
 Adodc1.RecordSource = sql
 Adodc1.Refresh
 
 
Next I
End Sub

merci d avance pour vos conseil

[ShortcutZ]

J'ai de la difficulté à comprendre ce que tu veux faire. C'est quoi une ligne de fab ?

Tu veux créer des tables dans une boucle à partir de variables ?

l représente quoi ?

Enfin, si je comprends bien, voici en gros ce que je ferais :

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
 
Private Sub Command1_Click()
Dim table As String
 
'En assumant que la connection à la base de données est établie
 
For I = sd To sf ' Sd pour semaine de debut , Sf semaine de fin .. 1 à 52
 
table = "L" & l & "_" & I & "_" & a  ' Mise en forme du nom  de la table . ex L1_1_2006
sql = "CREATE TABLE " & table & " (Nom_de_colonne1, Type_de_donnée1, Nom_de_colonne2, Type_de_donnée2...etc)"
 
 Adodc1.RecordSource = sql
 Adodc1.Refresh
 
 
Next I
End Sub

Je te mets juste sur une piste car je ne suis pas sur mon ordi de développement, ça se peut bien qu'il y ait une erreur à cause des guillemets.

[VARACH]

Bonjour et avant tout merci pour ton aide .

je ne ve pas creer une table mais recopier ma table de base...

Ligne de fab st des lignes de fabrications dans l usine ...

pour chaque ligne il y a un planning par semaine ...

Donc mes tables se nomment L1( pour la ligne de fabrication ) _1(pour le numero de semaine)_2006 ( pour l annee )

Je cherche a faire une boucle qui va me creer toute l 'annee 2007

L1_1_2007,L1_2_2007 ................L1_52_2007

[Phifi]

En gros, c'est seulement l'année qui change...

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub CreateAnnee(Byval annee as Integer)
    Dim i as Integer, matable as String
 
    For i = 1 to 52
        matable = "L1_" & Trim$(Str$(i)) & "_" & Trim$(Str$(annee))
        maconnex.Execute("CREATE TABLE " & matable & ".......;")
    Next i
 
End Sub

[VARACH]

merci de vos reponses mais ma command sql tourne sous access ; et fait une copie de ma base original . c est ce que je veux faire , et non une nouvelle table ..

la comm se fait grace a un adodc entre vb et ma base ..

merci encore

[Phifi]

Soit plus clair, on ne comprend rien...

Tu veux créer de nouvelles tables ou une nouvelle base ?

[Mymi]

Salut!

Je viens de découvrir une nouvelle façon de faire (c'est nouveau pour moi ) sur le forum. Je pense que ce que j'ai trouvé peut peut-être t'aider, à toi de voir.

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim AcAPP As New Access.Application
Set AcAPP = New Access.Application
AcAPP.OpenCurrentDatabase "CheminETNomBD.mdb"
 
AcAPP.DoCmd.CopyObject , "NomTableResultante", acTable, "NomTableOriginal"
 
AcAPP.CloseCurrentDatabase
Set AcAPP = Nothing

Tu as besoin d'ajouter la référence à Access "Microsoft Access X.X Object Library"

J'espère que ça pourra t'aider. Pour ma part ça fait ce que je veux et assez rapide aussi.

Bonne chance!

Mymi

[Mymi]

Rebonjour c'est encore moi!

Je ne voyais pas ce qu'était un ADODC (ça fait trop longtemps que je n'ai pas eu à l'utiliser) et j'ai vu que c'était un "data control". Bien que je n'ai pas trouvé une confirmation, j'ai un doute quant à la possibilité qu'un contrôle ADODC puisse exécuter une requête de type ajout (select into)... mais c'est à confirmer. Peut-être que quelqu'un peut faire du pouce sur l'idée.

Mymi

[Delbeke]

Je ne connais pas bien ADO mais tes deux lignes suivantes me parraissent douteuses

Code :

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

1
2
    Adodc1.RecordSource = sql
    Adodc1.Refresh

Si çà fonctionne de manière similaire à DAO , il faudrait quelque chose du genre

Code :

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

    Adodc1.execute sql