Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPublic Function GetListName(ByVal datefrom As Date, ByVal dateto As Date) As OleDbDataReader Dim sql As String = String.Empty Dim command As New OleDbCommand(sql, Connection) Dim recordset As OleDbDataReader recordset = Nothing command.CommandText = "SELECT prenom FROM client WHERE birthdate BETWEEN [DateFrom?] And [DateTo?]; " command.Parameters.Add("DateFrom?", OleDbType.Date).Value = datefrom command.Parameters.Add("DateTo?", OleDbType.Date).Value = dateto recordset = command.ExecuteReader() Return recordset End Function
Dim rec As OleDbDataReader rec = GetListName(datefrom, dateto)