Discussion :

[mcdam]

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 :

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
 
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

[SfJ5Rpw8]

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

peu-être le 1°champ:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mcdam]

Ah oui exact merci.

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[SfJ5Rpw8]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mcdam]

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