[VB6] Copier table access

Version imprimable

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:

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

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:

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.

14/11/2006, 15h13
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

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

Code:

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

15/11/2006, 14h18
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
15/11/2006, 16h07
Phifi

Soit plus clair, on ne comprend rien...

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

Citation:

Envoyé par Phifi

Soit plus clair, on ne comprend rien...

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

bjs ..je reprend ..

j ai un base original ..que je ve copier 52 fois avec le nom .L1_1_2006 , L1_2_2006...........L1_52_2006

pour ce faire j utilise une requete access qui fonctionne mais que j arrive pas a faire tourner depuis VB

Code:

"SELECT original.* INTO L1_1_2006 FROM original"

mais je n arrive pas a la faire fonctionner sous VB .

Sur un form j ai une connection a ma base via ADODC

sur un click bouton ce code
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 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 original.* INTO " & table & " FROM original""" ' la variable table fonctionne Adodc1.RecordSource = sql Adodc1.Refresh Next i End Sub
j espere avoir ete un peu plus clair ..

merci encore de d interresser a mon souci

Yann

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:

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

14/12/2006, 15h32
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
14/12/2006, 21h01
Delbeke
Je ne connais pas bien ADO mais tes deux lignes suivantes me parraissent douteuses
Code:

1 2 Adodc1.RecordSource = sql Adodc1.Refresh
Si çà fonctionne de manière similaire à DAO , il faudrait quelque chose du genre

Code:

Adodc1.execute sql