Discussion :

[philguio]

Bonsoir.
J'ai une requête SQL qui me pose pb, 1/2 journée à chercher. Je ne me rappel plus comment faire.
C'est une requête sur des dates transformées en string. Dans la base Access = texte. Dans mon code la requête en direct pas de pb, par contre avec une variable = pas de retour.
Voici une partie du 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
17
18
19
20
21
22
 
   Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
 
        Dim strDateSys2 As String
        strDateSys2 = CStr(Mid(Format(Date.Now, "dd/MM/yyyy"), 1, 10))
        'strDateSys2 = "'03/12/2020'"
        Try
            Me.DataGridView2.Refresh()
            Dim UneTable As New DataTable
            Dim PhraseSQL As String
 
 
            PhraseSQL = "SELECT  * FROM T_Affaires where DateFin =" & strDateSys2
            MaConexion.ConnectionString = ChaineDeConnection
            Dim MonAdapter As OleDbDataAdapter = New OleDbDataAdapter(PhraseSQL, MaConexion)
 
            MonAdapter.Fill(UneTable)
            UneTable.TableName = "T_Affaires"
            MesDatas.Tables.Add(UneTable)
            Me.DataGridView2.DataSource = Nothing
            DataGridView2.DataSource = MesDatas.Tables("T_Affaires")

Si quelqu'un peut m'aider à retrouver ma route, merci par avance.
Philippe

[philguio]

Sous cette forme cela fonctionne, donc ma requête avec ma variable à du mal. Help me.

Code VB.NET :

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

1
2
3
4
5
6
7
8
   Dim strDateSys2 As String
        ' strDateSys2 = CStr(Mid(Format(Date.Now, "dd/MM/yyyy"), 1, 10))
        strDateSys2 = "'03/12/2020'"
        Try
            Me.DataGridView2.Refresh()
            Dim UneTable As New DataTable
            Dim PhraseSQL As String
            PhraseSQL = "SELECT  * FROM T_Affaires where DateFin <= " & strDateSys2

Merci.
Philippe

[philguio]

C'est bon j'ai retrouvé.
Merci quand même.
Pour info si quelqu'un est dans le même cas, perte de mémoire passagère.

Code :

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

1
2
 
   PhraseSQL = "Select  * FROM T_Affaires where DateFin <  '" & strDateSys2 & "'"

A plus tard.
Philguio

[Mat.M]

bonsoir attention comparer des dates étant enregistrées au format texte je demande à voir je ne sais pas si la comparaison s'effectue bien.
Bien vérifier.
Il y a la classe DateTime
Ensuite de quelle fuite de mémoire s'agit-il ?