recherche entre 2 dates avec ADO

je souhaite afficher dans un datagrid les résultats d'une recherche faite entre 2 dates sur une base de données en ADO.

Les dates de début et de fin sont choisis dans des calendrier de type : DT picker

La recherche est lancée par un bouton voir.

je commence par le code type suivant et je ne sais pas comment faire.

With dtCreation
.MoveFirst
.Find "Date_d_apparition='" & dtpDatedebut.Value & "'"


Merci d'avance

Salut,

Essaie

dtCreation.Filter = "WHERE Date_d_apparation BETWEEN " & dtpDAtedebut.value & " AND " & DtpDAtefin.value

Le seul probleme c est que tu devras fermer ton recordset avant de faire le filtre ou alors tu fais tout en requete SQL dans le source d un recordset.

@+
Julien
-----------------------------------------------------------
Essai ca sinon on trouvera autre chose
-----------------------------------------------------------

Salut eric7
Si l'excellente réponse de jrivet ne fonctionne pas, essaye d'encadrer tes dates avec des signes #date# (ou '#date#' j'ai un doute)

Vala
Jack

merci jrivet & jack pour votre réponse aussi rapide mais n'étant pas un spécialiste de visual, j'ai un peu de mal à insérer le code. En dessous, le code que j'ai fais, qui ne fonctionne pas.
Si vous pouviez me filer un petit coup de main. Merci d'avance.

dans le load du formulaire, j'ouvre le recordset qui reste affiché dans le datagrid.

Private Sub BtnVoirdate_Click()

With dtCreation
.Close
.Filter = "WHERE Date_d_apparition BETWEEN " & dtpDatedebut.Value & " AND " & dtpDatefin.Value
Set cn2 = New ADODB.Connection
Set dtCreation = New ADODB.Recordset
sql2 = "SELECT * FROM Creation ORDER BY Date_d_apparition"
cn2.Open = "Provider=Microsoft.jet.OLEDB.4.0;Data source=C:\défaut 2004.mdb"
dtCreation.CursorLocation = adUseClient
dtCreation.Open sql2, cn2, adOpenDynamic, adLockOptimistic, adCmdText
Call remplirdatagrid(dtCreation)
End With
End Sub

SAlut,


Essaie ca (en supposant que cn2 et dtcreation sont declaree en dehors de ta sub sinon tu doit les declarer dedans):

Private Sub BtnVoirdate_Click() Set cn2 = New ADODB.Connection cn2.Open = "Provider=Microsoft.jet.OLEDB.4.0;Data source=C:\défaut 2004.mdb" Set dtCreation = New ADODB.Recordset dtCreation.ActiveConnection = cn2 dtCreation.Source = "SELECT * FROM Creation WHERE Date_d_apparition BETWEEN " & dtpDatedebut.Value & " AND " & dtpDatefin.Value & " ORDER BY Date_d_apparition" dtCreation.CursorLocation = adUseClient dtCreation.open Call remplirdatagrid(dtCreation) End Sub

Je sais c est peu etre pas la meilleur facon de faire mais j aime bien declarer les choses ligne par ligne...

Autre chose: je ne sais pas ce que tu fais dans remplirdatagrid mais peu etre vaudrait il mieux ouvrir le recordset dans cette sub.

Teste et dis moi ce qui se passe
@+
Julien
-----------------------------------------------------------
Essai ca sinon on trouvera autre chose
-----------------------------------------------------------

ça ne marche pas. Le datagrid se vide quelque soit la date choisie

voila remplir datagrid :

Public Sub remplirdatagrid(dtCreation)

frmConsultation.DataGrid1.Columns(0).DataField = dtCreation.Fields("Date_d_apparition").Name
frmConsultation.DataGrid1.Columns(1).DataField = dtCreation.Fields("Travee").Name
frmConsultation.DataGrid1.Columns(2).DataField = dtCreation.Fields("Libelle_du_defaut").Name
frmConsultation.DataGrid1.Columns(3).DataField = dtCreation.Fields("Importance").Name
frmConsultation.DataGrid1.Columns(4).DataField = dtCreation.Fields("N°_DI").Name
frmConsultation.DataGrid1.Columns(5).DataField = dtCreation.Fields("Localisation").Name
frmConsultation.DataGrid1.Columns(6).DataField = dtCreation.Fields("Systemes_elementaires").Name

Set frmConsultation.DataGrid1.DataSource = dtCreation

Set frmConsultation.Text1.DataSource = dtCreation
frmConsultation.Text1.DataField = dtCreation.Fields("N°_de_defaut").Name

Set frmConsultation.Text2.DataSource = dtCreation
frmConsultation.Text2.DataField = dtCreation.Fields("Importance").Name

Set frmConsultation.Text3.DataSource = dtCreation
frmConsultation.Text3.DataField = dtCreation.Fields("Precision_sur_le_defaut").Name

Set frmConsultation.Text4.DataSource = dtCreation
frmConsultation.Text4.DataField = dtCreation.Fields("Signification_du_libelle").Name

Set frmConsultation.Text5.DataSource = dtCreation
frmConsultation.Text5.DataField = dtCreation.Fields("Appel_astreinte").Name

frmConsultation.DataGrid1.Refresh

End Sub

Salut,


Regarde la propriete datasource d un datagrid qui t evitera cette fonction.
@+
Julien
-----------------------------------------------------------
Essai ca sinon on trouvera autre chose
-----------------------------------------------------------