Conversion texte to date?

Version imprimable

06/03/2013, 17h29
MoMeBe

Conversion texte to date?

Bonjour!

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

voici ma requette:

Code:

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.

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:

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.

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:

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

08/03/2013, 17h12
infosam76

Citation:

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