1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
| Public Function GetListActeurs() As OleDbDataReader
Connect
Dim command As New OleDbCommand(sql, Connection)
Dim sql As String = String.Empty
Dim recordset As OleDbDataReader
sql = "SELECT N°,Code,Naissance FROM Acteurs WHERE Naissance BETWEEN [date1?] AND [date2?] "
command.Parameters.Add("date1?", OleDbType.Integer).Value = Convert.ToInt32(Naissance1.Text)
command.Parameters.Add("date2?", OleDbType.Integer).Value = Convert.ToInt32(Naissance2.Text)
Return command.ExecuteReader()
Connection.Close()
End Function |
Partager