[vb6] probléme de conversion de donnée

bonjour a tous voila cela fait longtemps que je n'ai pas utiliser vb
et la j'ai un petit probleme j'ai une base de donnée access
voila une partie du code

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim consultdos As Recordset Dim consuldos, strdos, strdos2 As String Set db = OpenDatabase("prodect.mdb") Set consultdos = db.OpenRecordset("select * from [intervention]")   consuldos = InputBox("Quel est le numéro du dossie concerné ?", "SAISIE D'UN NUMERO DE DOSSIER", "")   strdos = consuldos strdos = "[numinter]= '" & consuldos & "'" consultdos.FindFirst str(strdos)

---

et à l'execution j'ai une erreur detype 13 imcopatibilité
c'est un champ sur access de type texte et la valeur attribué est un numérique je ne me rappel plus pouvez vous m'aider merci

Bonjour,

Voir Val dans ton aide en ligne et utliser le résultat sans guillemets

essaye cstr pour convertir ton champs en string
ou cint pour le convertir en integer

Code:

---

Dim consuldos, strdos, strdos2 As String

---

attention en VB, chaque variables doit avoir son As.
consuldos et strdos sont considérés comme Variant, donc au moment de leur utilisation, VB attribu au mieux, dans ton cas, en numerique, alors que ton champ et de type texte donc pour VB String.
Comme le dit francky57, Cstr(consuldos), semble être une solution qui devrait fonctionner.
Je ne comprend pas pourquoi

Code:

---

1 2	strdos = consuldos strdos = "[numinter]= '" & consuldos & "'" consultdos.FindFirst str(strdos)

---

je te propose ça

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim consultdos As Recordset Dim consuldos As String, strdos As String, strdos2 As String Set db = OpenDatabase("prodect.mdb") Set consultdos = db.OpenRecordset("select * from [intervention]")   consuldos = InputBox("Quel est le numéro du dossie concerné ?", "SAISIE D'UN NUMERO DE DOSSIER", "")   If IsNumeric(consuldos) = True Then strdos = "[numinter]= '" & consuldos & "'" consultdos.FindFirst strdos Else 'pas numerique End If

---

Tu dis si sa fonctionne ;)