Bonjour Tout le monde,

Pourriez-vous SVP m’aider pour résoudre un petit problème d’insertion des données dans une base accses en utilisant OleDb comme connexion.
En effet, j’ai deux bases Access contenant pour chacune table s’appelle « Client » (les deux tables client ont la même structure) et je voudrais insérer les données de la table client de la base1 dans la table client de la base2. (Voir code VB net ci-dessous).
Le problème est que mon programme s’arrête sur la ligne 14 ( MonCommand2.ExecuteNonQuery() ) et m’affiche le message suivant :
Le nombre de valeurs de la requête doit coïncider avec le nombre de champs de destination.
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
Private MyConnexion1 As New OleDb.OleDbConnection
Private MonCommand1 As New OleDb.OleDbCommand
Private MyConnexion2 As New OleDb.OleDbConnection
Private MonCommand2 As New OleDb.OleDbCommand
 
 
 
MyConnexion1.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data source= " & CheminBase1 & ";"
MyConnexion1.Open()
 
MonCommand1 = MyConnexion1.CreateCommand()
 
MonCommand1.CommandText = "SELECT * From Client1 Order by CodeClient"  
MonCommand1.ExecuteNonQuery()
 
 
MyConnexion2.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data source= " & CheminBase2 & ";"
MyConnexion2.Open()
 
MonCommand2 = MyConnexion2.CreateCommand()
 
MonCommand2.CommandText = "insert into Client values('" & MonCommand1.CommandText.ToString & "')"
MonCommand2.ExecuteNonQuery()
 
MyConnexion2.Close()
MyConnexion1.Close()
Cordialement