Discussion :

[Drax-D]

Bonjour,
Je voulais savoir comment transformer ceci :

Code :

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

1
2
3
PARAMETERS [Jour1] DateTime; 
SELECT T_Jour.Jour, [Jour1]+[Jour]-1 AS DateJ 
FROM T_Jour;

qui vient de là. Je voudrais que ce code soit utilisable sous VB.Net, j'utilise une BDD Access.

Merci d'avance

[tomlev]

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
Using connection = New OleDbConnection(connectionString),
      command = connection.CreateCommand()
 
    command.CommandText = "SELECT T_Jour.Jour, ? + [Jour]-1 AS DateJ FROM T_Jour"
    command.Parameters.AddWithValue("jour1", valeurDeJour1)
    Using reader As OleDbDataReader = command.ExecuteReader()
        While reader.Read()
            Dim jour = Convert.ToInt32(reader("Jour"))
            Dim dateJ = Convert.ToInt32(reader("DateJ"))
 
            ' faire quelque chose avec ces valeurs...
            ...
        End While
    End Using
End Using

[Drax-D]

Merci beaucoup. Mais ça ne fonctionne pas
Voilà mon code :

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
16
17
18
19
20
21
22
23
24
25
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        cnn = New OleDb.OleDbConnection
        cnn.ConnectionString = "Provider= Microsoft.ACE.OLEDB.12.0; Data Source=C:\...\Data.accdb"
 
        If Not cnn.State = ConnectionState.Open Then
            cnn.Open()
        End If
 
        Dim command As New OleDb.OleDbCommand
        command.Connection = cnn
        command.CommandText = "SELECT T_Jour.Jour, ? + [Jour]-1 AS DateJ FROM T_Jour"
        command.Parameters.AddWithValue("Jour1", Date.Today)
            Using reader As OleDb.OleDbDataReader = command.ExecuteReader()
                While reader.Read()
                Dim jour = Convert.ToInt32(reader("Jour"))
                Dim dateJ = Convert.ToInt32(reader("DateJ"))
                Dim da As New OleDb.OleDbDataAdapter(command)
                Dim dt As New DataTable
                da.Fill(dt)
 
                Me.dgvdata.DataSource = dt
                End While
            End Using
    End Sub
End Class

[tomlev]

Mais ça ne fonctionne pas

Bah avec ça on est bien avancé... donne des détails si tu veux de l'aide

Si tu veux charger les données dans une DataTable, pas besoin du DataReader, le DataAdapter suffit :

Code :

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

1
2
3
4
5
6
7
8
        ...
        command.CommandText = "SELECT T_Jour.Jour, ? + [Jour]-1 AS DateJ FROM T_Jour"
        command.Parameters.AddWithValue("Jour1", Date.Today)
        Dim da As New OleDb.OleDbDataAdapter(command)
        Dim dt As New DataTable
        da.Fill(dt)
        Me.dgvdata.DataSource = dt
        ...

D'autre part, si j'ai bien compris ce que tu cherchais à faire, le paramètre jour1 est un nombre entier, et toi tu passes une date pour la valeur... Si tu veux passer le jour du mois, utilise DateTime.Today.Day

[Drax-D]

Merci Beaucoup ça fonctionne mais ce que je veux c'est que le champ DateJ soit en format Date. Donc changer le paramètre Jour1 en Date et que T_Jour.Jour reste de type entier.

Code :

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

1
2
Command.CommandText = "SELECT T_Jour.Jour, ? + [Jour]-1 AS DateJ FROM T_Jour"
Command.Parameters.AddWithValue("Jour1", DateTime.Today)

[tomlev]

Je sais pas trop si c'est possible, je connais très peu Access...