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
| Public Connecteur_A97 As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="
Public Connecteur_A2010 As String = "Provider=Microsoft.ACE.OLEDB.12.0; Data Source="
Sub Transfert()
'Connexion à la base ACCESS 97
Cnx97 = New OleDbConnection(Connecteur_A97 & "D:\DBA97.mdb")
Cnx97.Open()
'Connexion à la base ACCESS 2016
Cnx2016 = New OleDbConnection(Connecteur_A2010 & "D:\DBA2016.accdb")
Cnx2016.Open()
Dim dat97 As DataSet
dat97 = New DataSet
Dim SQL_97 As String = "SELECT * FROM tableA97" ' (la table contient 5 champs)
Using Adap As OleDbDataAdapter = New OleDbDataAdapter(SQL_97, Cnx97)
'Chargement du Dataset
Adap.Fill(dat97)
'Remplissage du DataGridView DGV avec la tableA97
DGV.DataSource = dat97.Tables(0) ' ==> tout est OK
End Using
'modifications dans DGV ' OK
'Update de DBA97' je ne sais pas faire !!!
'Ajout des enregistrements de dat97 à la tableA2016 de DBA2016.accdb
Dim Mycommand As OleDbCommand = Cnx2016.CreateCommand()
Mycommand.CommandText = "INSERT INTO tableA2016 (champ2, champ4, champ5, champ7, champ8) SELECT * FROM dat97.Tables(0)"
Mycommand.ExecuteNonQuery() ' ==> Erreur de syntaxe dans la clause FROM
End Sub |
Partager