1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
| Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim jour As Date
jour = Date.Parse(TextBox1.Text).ToString("MM/dd/yyyy")
If Not cnn.State = ConnectionState.Open Then
'open connection
cnn.Open()
End If
Dim cmd As New OleDb.OleDbCommand("SELECT * FROM test where date_du_jour=" & jour)
cmd.Connection = cnn
Dim da As New OleDb.OleDbDataAdapter
da.SelectCommand = cmd
Dim ds As New DataSet
da.Fill(ds)
dgvData.DataSource = ds
cmd.ExecuteNonQuery()
cnn.Close()
End Sub |
Partager