Discussion :

[solid_sneak06]

Bonjour tout le monde;
quelqu'un peut me dire qu'est ce qui ne va pas dans ce code:

Code :

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

1
2
3
4
5
6
7
 
        Nom.Text= "test"
        Date_.Text = Now.Date
        Mycommand.CommandText = "SELECT COUNT(*) FROM pointage where date_ = '" & Date_.Text & "' AND nom = '" & Nom.Text & "'"
        cnn.Open()
        Dim iResultat As Integer = Mycommand.ExecuteScalar()
        cnn.Close()

le compilateur me souligne la ligne

Code :

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

iResultat As Integer = Mycommand.ExecuteScalar()

et le message d'erreur est "Type de données incompatible dans l'expression du critère."

[bobby51]

pourquoi utilise tu des ' dans tes requetes?
par exemple ton date_ = '" j'ai l'impression qu'il y a une quote de trop
après c'est peut-etre une facon différente de faire les requêtes

[bak47]

pour inserer des date il faut mettre la date entre des # si je ne me trompe pas

[JPelli]

Bonjour,
Le plus simple pour trouver une erreur sql est de récupérer la requête sql et de la tester dans un analyseur sql et d'utiliser convert ou cast pour formater les dates.
Dans ton exemple now().date retourne 05/28/2008.
en général dans sqlserver(sans utiliser de conversion) la date est sous un format jj/mm/aaaa. ou mm/jj/aaaa dans sybase.
Bon boulot Jean

[solid_sneak06]

Bonjour,
Le plus simple pour trouver une erreur sql est de récupérer la requête sql et de la tester dans un analyseur sql et d'utiliser convert ou cast pour formater les dates.
Dans ton exemple now().date retourne 05/28/2008.
en général dans sqlserver(sans utiliser de conversion) la date est sous un format jj/mm/aaaa. ou mm/jj/aaaa dans sybase.
Bon boulot Jean

oui j'ai bien verifié, date_.text est en format 28/05/2008 et dans ma base access c'est aussi la bonne format....

pour inserer des date il faut mettre la date entre des # si je ne me trompe pas

Peut etre tu as raison, je sais pas Help

[bobby51]

cette requete la me semble mieux
Mycommand.CommandText = "SELECT COUNT(*) FROM pointage where date_ = #" & Date_.Text & "# AND nom = " & chr(34) & Nom.Text & chr(34) & ";"
je ne sais toujours pas pourquoi tu mettait des quotes dans ta requête!
quelle sgbd utilise tu?

[solid_sneak06]

cette requete la me semble mieux
Mycommand.CommandText = "SELECT COUNT(*) FROM pointage where date_ = #" & Date_.Text & "# AND nom = " & chr(34) & Nom.Text & chr(34) & ";"
je ne sais toujours pas pourquoi tu mettait des quotes dans ta requête!
quelle sgbd utilise tu?

ah wé ca marche; merci beaucoup. Parcontre, c'est quoi ca: chr(34)

je ne sais toujours pas pourquoi tu mettait des quotes dans ta requête!

Moi non plus, je ne sais pas c'est comme ca qu'on fait en vb6 je crois.

merci

[bobby51]

le chr(34) est le code ASCII du "
en effet tu demande pour ton nom de comparer a une chaine de caractère, donc quelque chose entre guillemet, or si tu met des guillemets ils vont etre interprété différemment,ils vont se méler avec les guillemet utilisé pour la separation entre les variables et les chaines de caractère , le code ASCII permet de passer outre cet inconvénient

[calagan99]

Le mieux est quand même d'utiliser des paramètres de requête, ca permet d'éviter ce genre d'erreur de concatenation et niveau sécurité c'est beaucou mieux:

Code :

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

1
2
3
4
5
6
7
8
9
  Nom.Text= "test"
Date_.Text = Now.Date
Mycommand.CommandText = "SELECT COUNT(*) FROM pointage where date_ = @Date_ AND nom = @Nom"
 Mycommand.Parameters.AddWithValue("@Date_", CDate(Date_.Text))
 Mycommand.Parameters.AddWithValue("@Nom", CStr(Nom.Text))
Mycommand.Connection = cnn
 cnn.Open()
 Dim iResultat As Integer = CInt(Mycommand.ExecuteScalar())
 cnn.Close()

Tu dois transtyper le résultat de ton executescalar pour l'affecter a une variable, je pense que ton erreur vient de là.

[bobby51]

ah je ne connai pas ce type de requete va falloir que j'approfondise ça