Requête Paramétrée Access

Version imprimable

15/07/2012, 14h47
Drax-D

Requête Paramétrée Access
Bonjour,
Je voulais savoir comment transformer ceci :
Code:

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 :D

Code:

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

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

Code:

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

Citation:

Envoyé par Drax-D

Mais ça ne fonctionne pas :?

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

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

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

16/07/2012, 12h07
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:

1 2 Command.CommandText = "SELECT T_Jour.Jour, ? + [Jour]-1 AS DateJ FROM T_Jour" Command.Parameters.AddWithValue("Jour1", DateTime.Today)
16/07/2012, 14h11
tomlev

Je sais pas trop si c'est possible, je connais très peu Access...
16/07/2012, 17h20
Drax-D

D'accord merci quand même :D.