Poser une question

Date et BEtween ne marche pas che moi

Salut

Voici deux codes qui normalement devraient données la meme chose, mais le deuxième code ne marche pas.

<%
Dim Re_facture__MMColParam
Re_facture__MMColParam = "1"
If (Request.form("select_client") <> "") Then
Re_facture__MMColParam = Request.form("select_client") 'liste déroulante'
End If
%>
<%
Dim Re_facture
Dim Re_facture_numRows
Set Re_facture = Server.CreateObject("ADODB.Recordset")
Re_facture.ActiveConnection = MM_Connexion_Riag_STRING
Re_facture.Source = "SELECT NUMERO_FA, DATE_FA, RAI_SOC_FA, HT_1_FA, TVA_1_FA, TTC_1_FA, REGLEE_FA FROM FACTURES WHERE RAI_SOC_FA = '" + Replace(Re_facture__MMColParam, "'", "''") + "' AND DATE_FA BETWEEN #01/01/2005# AND #01/30/2005# ORDER BY DATE_FA ASC"
Re_facture.CursorType = 0
Re_facture.CursorLocation = 2
Re_facture.LockType = 1
Re_facture.Open()
Re_facture_numRows = 0
%> 'Premier code qui fonctionne

<%'c'est celui là qui ne marche pas
Dim Re_facture__MMColParam
Re_facture__MMColParam = "1"
If (Request.form("select_client") <> "") Then
Re_facture__MMColParam = Request.form("select_client") ' liste déroulante
End If
%>
<%
Dim Re_facture__MMColParam1
Re_facture__MMColParam1 = "1"
If (Request.form("select_date") <> "") Then
Re_facture__MMColParam1 = Request.form("select_date") ' champ texte où j'ecrie la date 01/01/2005
End If
%>
<%
Dim Re_facture__MMColParam2
Re_facture__MMColParam2 = "99999"
If (Request.form("select_date1") <> "") Then
Re_facture__MMColParam2 = Request.form("select_date1") ' champ texte où j'ecrie la date 01/30/2005
End If
%>
<%
Dim Re_facture
Dim Re_facture_numRows
Set Re_facture = Server.CreateObject("ADODB.Recordset")
Re_facture.ActiveConnection = MM_Connexion_Riag_STRING
Re_facture.Source = "SELECT NUMERO_FA, DATE_FA, RAI_SOC_FA, HT_1_FA, TVA_1_FA, TTC_1_FA, REGLEE_FA FROM FACTURES WHERE RAI_SOC_FA = '" + Replace(Re_facture__MMColParam, "'", "''") + "' AND DATE_FA BETWEEN '" + Replace(Re_facture__MMColParam1, "'", "''") + "' AND '" + Replace(Re_facture__MMColParam2, "'", "''") + "' ORDER BY DATE_FA ASC"
Re_facture.CursorType = 0
Re_facture.CursorLocation = 2
Re_facture.LockType = 1
Re_facture.Open()
Re_facture_numRows = 0
%>

Pourquoi ça marche pas pouvez vous essayez de me corriger.
Merci bien
MANUANTIBES

Réponses

Re: Date et BEtween ne marche pas che moi  dassal 30/5/2005    Re: Date et BEtween ne marche pas che moi  Oznog 25/5/2005