requête SQL : Type incompatible
Bonjour à tous !!
J'ai un petit souci : le résultat de la requête est le suivant : 'Erreur d'exécution '13' Type incompatible'
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| Private Sub Form_Load()
Dim req As Integer
Dim rstpret As New Recordset
Dim NumM As Integer
Dim code As Integer
code = frmretour.lstretour.ItemData(frmretour.lstretour.ListIndex)
NumM = frmretour.cbomembre.ItemData(frmretour.cbomembre.ListIndex)
req = " SELECT * FROM Pret WHERE Code= " & code & " AND NumM = " & NumM & ""
rstpret.Open req, Cnx
Do While Not rstpret.EOF
If IsNull(rstpret("DateRetour")) Then
txtnom.Text = frmretour.cbomembre.Text
txtdate.Text = rstpret("DateEmprunt")
txtduree = CDate(Date) - rstpret("DateEmprunt")
End If
rstpret.MoveNext
Loop
rstpret.Close
End Sub |
Dans ma table Prêt, NumM et Code sont de type Numérique entier.
Je précise que que les noms des variables et de la table sont corrects (respect des majuscules...).
Je dois avouer que je ne sais pas pquoi:?
Merci d'avance
evidemment que le type est incompatible!
Code:
req = " SELECT * FROM Pret WHERE Code= " & code & " AND NumM = " & NumM & ""
ça veut dire que req est du type String!
et puis je trouve ton code un peu touffu.
je t'en propose un autre tout à l'heure
Édité par zazaraignée
le pb vient au niveau de tes déclarations
mets plutot
Édité par zazaraignée
quel con mais quel con...:roll:
je suis un abruti:cry: ...c'était évidemment le type qui n'allait pas...
dsl pour le dérangement ^^
POur l'aspect touffu :P , j'ai fait du copier/coller 8O , il n'a pas pris l'indentation des lignes de code et j'ai enlevé tous les commentaires...:)
;)
Merci encore