Requete d insertion

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 :

Citation:

---

Le nombre de valeurs de la requête doit coïncider avec le nombre de champs de destination.

---

Code:

---

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

Code:

---

1 2	MonCommand1.CommandText = "SELECT * From Client1 Order by CodeClient" MonCommand2.CommandText = "insert into Client values( '" & MonCommand1.CommandText.ToString & "')"

---

Donc, MonCommand2.CommandText vaut

Code:

---

insert into Client values('SELECT * From Client1 Order by CodeClient')

---

Ce qui est une commande SQL incorrecte.

merci beaucoup pour la réponse. j'ai réglé le problème.:ccool: