Discussion :

[harry25]

Bonjour à tous,
Y'a t'il un moyen de copier, facilement, une table (avec son contenu) d'un fichier Access vers un autre fichier Access ?

Je vois bien une solution (créé la structure et après la remplir, ligne par ligne) mais ca me semble "lourd"...

Une solution du style "copier/coller" (ce que je fais pour l'instant "à la main) serait bien ;-)

Par avance, merci.

[lutecefalco]

Faudrait peut etre aller voir du côté du forum Access

[harry25]

Faudrait peut etre aller voir du côté du forum Access

J'y ai pensé mais vue que je doit faire ca en ASP.net (j'ai plusieurs dizaines de fichiers à mettre à jour...) je pensais à une solution avec DataSet (donc ASP.net) ou quelque chose comme ca...

[harry25]

J'ai finalement choisi de faire la solution la plus "lourde" (mais peut-être y'en t'il pas d'autre...).
J'ai donc une table qusysfiltre vide dans mon fichier à mettre à jour (connection).
J'ai une table qusysfiltre pleine dans mon fichier "master" (connection2)

Ci-dessous mon code :

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
 
' On ouvre le fichier "master" et on récupère la table qusysfiltre
        Dim Connection2 As New OleDb.OleDbConnection()
        Dim DS2 As New DataSet
        Dim Matable2 As DataTable
        Connection2.ConnectionString = "Provider=microsoft.jet.oledb.4.0;Data source=C:\Inetpub\wwwroot\matrices\MASTERCF-FR.MDB"
        Dim table_qusysfiltre As New OleDb.OleDbDataAdapter("select * from qusysfiltre", Connection2)
        table_qusysfiltre.Fill(DS2, "qusysfiltre")
        Matable2 = DS2.Tables("qusysfiltre")
 
        ' On ouvre le fichier à modifier
        Dim Connection As New OleDb.OleDbConnection()
        Connection.ConnectionString = "Provider=microsoft.jet.oledb.4.0;Data source=" & fichier
        Dim MAJ_qusysfiltre As New OleDb.OleDbDataAdapter("select * from qusysfiltre", Connection)
        Dim DS3 As New DataSet
        MAJ_qusysfiltre.Fill(DS3, "qusysfiltre")
 
        ' On parcours les lignes de la table à copier
        For Each oRow As DataRow In Matable2.Rows
            ' On import les lignes dans la le DataSet du fichier à mettre à jour
            DS3.Tables("qusysfiltre").ImportRow(oRow)
        Next
 
        DS3.AcceptChanges()
        MAJ_qusysfiltre.Update(DS3.Tables("qusysfiltre"))
        Connection.Close()
        Connection2.Close()

Je n'ai aucun message d'erreur, mais quand je vais voir mon fichier à MAJ, la table qusysfiltre est toujours vide...
J'ai passé l'après-midi la dessus et je ne trouve pas la cause du problème...

[harry25]

Finalement, j'ai fait une copie ligne par ligne (avec gestion de valeurs Null) au lieu d'une copie de DataSet...