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() |
Partager