Discussion :

[sanfour_walhan]

Bonjour
J'execute une requete sql sous vb2008 pour faire l'enregistrement dans une base de donnees access mais un message d'erreur s'affiche:

"Type de données incompatible dans l'expression du critère."

je vois pas le probleme.
Merci pour votre aide.

[ostenhard]

Bonjour,

Peut-on voir la requête ?

[sanfour_walhan]

Code :

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

INSERT into retraite (matri,CIN,NOM,PRENOM,DTNAIS,ADRESSE,NPPR) values ('" & TextBox1.Text & "','" & TextBox2.Text & "', '" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "', '" & TextBox6.Text & "' ," & TextBox7.Text & ")

[mactwist69]

Surement un problème de format avec la date....

[peregna2007]

Essai de convertir TextBox5.Text en date comme ceci

Code :

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

CDate(TextBox5.Text)

Tu aura ainsi ta requête comme suit :

Code :

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

INSERT into retraite (matri,CIN,NOM,PRENOM,DTNAIS,ADRESSE,NPPR) values ('" & TextBox1.Text & "','" & TextBox2.Text & "', '" & TextBox3.Text & "','" & TextBox4.Text & "','" & CDate(TextBox5.Text) & "', '" & TextBox6.Text & "' ," & TextBox7.Text & ")

[sanfour_walhan]

je crois que le probleme et dans le champs textbox7 car le champs ppr est numerique dans la base de données et je le laisse vide j'obtiens le message

[peregna2007]

Et puis je viens de voir ceci .
A la fin de ta requête tu as mis

Code :

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

" & TextBox7.Text & "

. Je crois que tu devais faire plutot ça :

Code :

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

'" & TextBox7.Text & "'

étant donnée qu'il s'agit de chaine de caractère.

Tu dois avoir une requête comme celle ci :

Code :

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

Dim MaRequete As String = "INSERT into retraite (matri,CIN,NOM,PRENOM,DTNAIS,ADRESSE,NPPR) values ('" & TextBox1.Text & "','" & TextBox2.Text & "', '" & TextBox3.Text & "','" & TextBox4.Text & "','" & CDate(TextBox5.Text) & "', '" & TextBox6.Text & "' ,'" & TextBox7.Text & "')"