Trucsweb.com

Forum de discussion

 Forum « Programmation ASP » (archives)

Date et BEtween ne marche pas che moi

Envoyé: 21 mai 2005, 1h58 par ManuAntibes


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

 sp spRe: Date et BEtween ne marche pas che moi dassal30/5/2005
 sp spRe: Date et BEtween ne marche pas che moi Oznog25/5/2005
Aucun médias sociaux
X

Trucsweb.com Connexion

X

Trucsweb.com Mot de passe perdu

X

Trucsweb.com Conditions générales

Conditions

Responsabilité

La responsabilité des Trucsweb.com ne pourra être engagée en cas de faits indépendants de sa volonté. Les informations mises à disposition sur ce site le sont uniquement à titre purement informatif et ne sauraient constituer en aucun cas un conseil ou une recommandation de quelque nature que ce soit.

Aucun contrôle n'est exercé sur les références et ressources externes, l'utilisateur reconnaît que les Trucsweb.com n'assume aucune responsabilité relative à la mise à disposition de ces ressources, et ne peut être tenue responsable quant à leur contenu.

Droit applicable et juridiction compétente

Les règles en matière de droit, applicables aux contenus et aux transmissions de données sur et autour du site, sont déterminées par la loi canadienne. En cas de litige, n'ayant pu faire l'objet d'un accord à l'amiable, seuls les tribunaux canadien sont compétents.

X

Trucsweb.com Trucsweb

X

Trucsweb.com Glossaire

X

Trucsweb.com Trucsweb

X

Trucsweb.com Trucsweb

Conditions

Aucun message!

Merci.

X
Aucun message!
X

Trucsweb.com Créer un compte