Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click If (Not Me.TextBox8.Text = "") Then sql "SELECT * FROM Liste WHERE DateEdition" & CDate(TextBox8.Text) & "" cmd = New OleDbCommand(sql) dta = New OleDbDataAdapter(cmd) dts = New DataSet cmd.Connection() = cnx dta.Fill(dts, "Liste") dtt = dts.Tables("Liste") Me.DataGridView1.DataSource = dtt Else sql = "SELECT * FROM Liste" cmd = New OleDbCommand(sql) dta = New OleDbDataAdapter(cmd) dts = New DataSet cmd.Connection() = cnx dta.Fill(dts, "Liste") dtt = dts.Tables("Liste") Me.DataGridView1.DataSource = dtt End If End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionsql "SELECT * FROM Liste WHERE DateEdition #" & format(CDate(TextBox8.Text), "mm/dd/yyyy")) & "#"
sql "SELECT * FROM Liste WHERE DateEdition #" & (CDate(TextBox6.Text)) & "#"