Discussion :

[hama2am]

salut à tous
je suis entrain de connecter à une base de donnés Access via oledb et je veux afficher les résultats dans une datagirdview par ce code

Code VB.NET :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
        Dim cnz As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\ferme.mdb")
        cnz.Open()
        Dim a1 As Date
        Dim a2 As Date
        a1 = remunration_s_Label.Text
        a2 = Now.Date
        Dim cmdz As New OleDbCommand("SELECT * FROM fonctionaire_ab WHERE date_ab BETWEEN #" & a1 & "# and #" & a2 & "#", cnz)
        Dim dsa As New DataSet
        Dim dra As New OleDbDataAdapter(cmdz)
        dra.Fill(dsa, "fonctionaire_ab")
        DataGridView1.DataSource = dsa
        DataGridView1.DataMember = "fonctionaire_ab"
        cnz.Close()
        cnz = Nothing
        dra = Nothing
        dsa = Nothing

le code a fonctionné mais il donne toujours des valeurs fausses sans aucune logique

par exemple, les dates sont :

date_ab :
28/04/2019
26/04/2019
18/05/2019
01/05/2019
02/05/2019
08/05/2019

a1 = 26/04/2019 ET a2 = 02/05/2019 il me retourne comme résultat que la date : 26/04/2019
et si j'inverse les arguments a1 ET a2 il me retourne le même résultat
et dans des autres exemples il me retourne des résultats hors les bornes de l'intervalle datse

merci d'avance pour vos aides

[soazig]

Bonjour,
Je pense que le problème est le format des dates,Tu ne dois pas formater les dates dans le format attendu YYYYMMDD par exemple et DD/MM/YYYY fourni. Ce qui est recommandé pour éviter les injections de sql et d'utiliser une requête paramétrée

Code VB.NET :

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

1
2
3
4
5
Dim cmdz As New OleDbCommand("SELECT * FROM fonctionaire_ab WHERE date_ab BETWEEN @a1 and @a2", cnz)
With cmd.Parameters
            .Add("@a1", OleDbType.Date).Value = a1
            .Add("@a2", OleDbType.Date).Value = a2
        End With

Je me suis inspirée de https://social.msdn.microsoft.com/Fo...nes-avec-vbnet.
Cordialement
Soazig

[hama2am]

merci soazig vous avez raison votre code a bien fonctionné mais veuillez m'expliquer pourquoi il m a retourné des valeurs fausses avant l’utilisation de requête parametré . merci une autre fois .

[soazig]

Bonjour,
dans

Code VB.NET :

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

Dim cmdz As New OleDbCommand("SELECT * FROM fonctionaire_ab WHERE date_ab BETWEEN #" & a1 & "# and #" & a2 & "#", cnz)

On ne sait pas quelle chaine de caractères est passée à Access, puisque le cast des dates est implicite est-ce

Code SQL :

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

SELECT * FROM fonctionaire_ab WHERE date_ab BETWEEN #28/04/2019# and #01/05/2019#)

comme vous le pensez ou peut-être

Code SQL :

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

SELECT * FROM fonctionaire_ab WHERE date_ab BETWEEN #04/28/2019# and #05/01/2019#)

ou encore

Code SQL :

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

SELECT * FROM fonctionaire_ab WHERE date_ab BETWEEN #2019/04/28# and #2019/05/01#)

ou peut-être

Code SQL :

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

SELECT * FROM fonctionaire_ab WHERE date_ab BETWEEN #28/04/19# and #01/05/19#)

De plus de mémoire Access convertira 28/04/2019 en date convenable (car il n'y a pas d'ambiguité le mois n° 28 n'existe pas), la bonne, mais il pourra interpréter 01/05/2019 en 1er mai ou 5 janvier.

Avec la solution que j'ai proposé, les paramètres passées à la requête sont de type date, donc il n'y a pas de conversion implicite.
Sauf ici

Code :

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

a1 = remunration_s_Label.Text

Où là en toute logique il vaudrait mieux utiliser un DateTime.TryParse en indiquant le format de la date.

Cordialement
Soazig

[hama2am]

merci soazig maintenant toute est claire .