Problème pour lier datacombo et textbox

Bonjour,

Je viens à vous car je bloque sur un petit problème mais qui m'embete et me bloque pour la suite de mon prog.

J'ai un datacombo qui liste dans une base access dans ma table "pilote" les noms des pilotes appelés "nom" et dans ma textbox je voudrais afficher leur ID nommé "id_pilote"

Voila où j'en suis actuellement

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Private Sub Form_Load()   Set MaConnexion = New Connection With MaConnexion .Provider = "Microsoft.Jet.oledb.4.0" .Open NomBaseMDB End With   End Sub   Private Sub Command1_Click() Set MaRequete = New Recordset MaRequete.ActiveConnection = MaConnexion req_sql = "SELECT id_pilote FROM pilote" MaRequete.Open req_sql, , adOpenDynamic, adLockPessimistic   Text1.Text = MaRequete   End Sub

---

Pour le moment j'ai simplifié ma requête "req_sql"

Là j'execute tout ca je choisis mon pilote dans mon DataCombo2 et quand je clique sur sur mon bouton "Command1" j'ai un message d'erreur : "Erreur de compilation : type incompatible" et il me sélectionne ".text"

Voila mon souci , merci d'avance à ceux qui prendront le temps de me filer un petit coup de main:P

Ben tu ne peu pas mettre tous le contenu d'un recordset dans un textbox...

peu-être le 1°champ:

Code:

---

Text1.Text = MaRequete.Fields(0).Value

---

Ah oui exact merci.

J'ai une autre question,
là j'ai adapté la requête à mon besoin

Code:

---

1 2	req_sql = "SELECT id_pilote FROM pilote WHERE nom=" & DataCombo2.Text MaRequete.Open req_sql, , adOpenDynamic, adLockPessimistic

---

et ca ne marche pas il met "Erreur d'éxécution "-2147217904 (80040e10) Aucune valeur donnée pour un ou plusieurs paramètres requis"

alors j'ai essayé de faire une requete en dur

Code:

---

1 2	req_sql = "SELECT id_pilote FROM pilote WHERE nom='nomdupilote' " MaRequete.Open req_sql, , adOpenDynamic, adLockPessimistic

---

Et là ca fonctionne.

Donc j'ai vérifié que DataCombo2.Text avait la valeur que je voulais et elle est correcte.

ben utilise un debug.print .. par exemple pour afficher .. tes 2 req_sql ...et les comparer ... la différence te sautera aux yeux ...... comme à nous ..;)

Code:

---

1 2 3 4 5

req_sql = "SELECT id_pilote FROM pilote WHERE nom=" & DataCombo2.Text Debug.print reg_sql req_sql = "SELECT id_pilote FROM pilote WHERE nom='nomdupilote' " Debug.print reg_sql

---

Oooooh 8O
Merci beaucoup et encore désolé pour mon problème ridicule j'ai honte :)