Discussion :

[MoMeBe]

Bonjour!

J'ai une erreur "Types de données incompatible dans l'expression du critère)

voici ma requette:

Code :

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

ReqSql = "Insert Into TPersonnels (CIN, NomPers, PreNomPers, DateNaisPers) Values ('" & Val(TXTCIN.Text) & "','" & TXTNomPers.Text & "','" & TXTPreNomPers.Text & "','" & TXTPerePers.Text & "','" & TXTDateNaisPers.Text & "')"

CIN type Numerique ------------------- Val(TXTCIN.Text) Ok
NomPers, PreNomPers Type Texte ------ TXTNomPers.Text Ok
DateNaisPers Type Date---------------- ????????

Erreur dans la conversion du (TXTDateNaisPers.Text) du texte en date pour l'ajout d'un nouveau enregistrement.

Je croit que c'est du biscuit pour des Pros comme vous.

Merci tous de même.

[infosam76]

Problème de format au niveau de ta date probablement.

Ci-joint un petit exemple pour une conversion d'une string vers une date :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
        Dim d As Date
        Dim sDate As String = "02/12/2012"
 
        If Not Date.TryParse(sDate, d) Then
            MessageBox.Show("Date invalide")
            Exit Sub
        End If
 
        MessageBox.Show(d.ToString())

Maintenant dans le cas de la construction d'une requête SQL, voir du coté des requêtes paramétrées, qui évite le risque des injections SQL, mais également le problème des formats comme celui-ci et améliore la vitesse d'exécution.

[_Ez3kiel]

Ca peut dépendre aussi de ton SGBD certains veulent #01/01/2001# d'autres '01/01/2001' suffisent etc, à toi de voir la syntaxe voulue.

Et tu peux Ctyper ta date aussi (et la tester au passage) pour lui passer une date et non un string (si c'est que le SGBD souhaite)

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
        Dim txtDate As String
        Dim MaDate As Date
        Dim formatCorrect As Boolean = True
 
        Try
            MaDate = CType(txtDate, Date)
        Catch
            formatCorrect = False
        End Try
 
        If formatCorrect Then
            ReqSql = "Insert Into TPersonnels (CIN, NomPers, PreNomPers, DateNaisPers) Values ('" & Val(TXTCIN.Text) & "','" & TXTNomPers.Text & "','" & TXTPreNomPers.Text & "','" & TXTPerePers.Text & "','" & MaDate & "')"
        Else
            MsgBox("Erreur sur la date")
        End If

[infosam76]

Ca peut dépendre aussi de ton SGBD certains veulent #01/01/2001# d'autres '01/01/2001' suffisent etc, à toi de voir la syntaxe voulue.

D'ou l'utilité et la facilité des requêtes paramétrées