Discussion :

[univermina]

bonjour

je souhaite faire une selection apartir de ma base access , pour me renvoyé les numeros payement entre deux date

voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
<%
	 dbPath = Server.MapPath("./bd3.mdb")
     ' Création de l'objet permettant la connexion
      Set Conn = Server.CreateObject("ADODB.Connection")
     ' Connexion
      Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};" _
      & " DBQ=" & dbPath
	  sql="select payement.numpayement from payement where datepayement between '01/05/2009' and '01/06/2009' "
      set Rs= server.CreateObject("ADODB.Recordset")
      Rs.open sql, conn,3,3
	  if rs.eof then
	  response.write "nosuccé"
	  else
      do while  not rs.eof
	   response.write rs.fields("numpayement")
	  loop
	  end if
	  	Rs.Close
Set Rs=Nothing
	  Conn.close : Set Conn=nothing 
	%>

et voici l'erreur affiché apres l'execution

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Microsoft OLE DB Provider for ODBC Drivers error '80040e07'
 
[Microsoft][Pilote ODBC Microsoft Access] Type de données incompatible dans l'expression du critère.
 
/intranet2/test.asp, line 10

[sevyc64]

Essaye en encadrant tes dates avec des #

[emmanuel.remy]

Effectivement, c'est une solution d'entourer la date par des # mais ne pas oublier que la date doit être inscrite au format MM/DD/YY

ex: #06/30/2009#


ERE

[sevyc64]

mais ne pas oublier que la date doit être inscrite au format MM/DD/YY

C'est à vérifier.
Un de mes collègues rencontre justement ce problème chez un de nos client avec un dev en VB.
Sur la même base de données, sur une table, les requêtes doivent obligatoirement être au format français, sur une autre table, elles doivent être au format US.
C'est un problème que l'on avait déjà eu sur des bases différentes sur un même serveur, mais pas encore sur la même base.

La solution de Microsoft : supprimer la base et la recréer pour voir si le problème existe toujours. Il est évident qu'avec une base de plus de 150 tables et de 15Go de données, cette solution n'est pas applicable.

[emmanuel.remy]

Intéressant ! De mon côté je n'ai jamais eu de souci avec ça, mais à toujours faire de la même façon ...

Et pour ma réflexion:

Il est évident qu'avec une base de plus de 150 tables et de 15Go de données (...)

. Est ce bien raisonnable d'avoir encore Access avec une telle volumétrie ?

ERE

[sevyc64]

Heureusement qu'il ne s'agit pas d'Access, c'est du SQLServer 2005 (ça reste du Microsoft).

Je pense qu'avec cette volumétrie Access aurait exploser depuis longtemps. Je n'ose même pas imaginer les temps d'ouverture d'une telle base.

Ceci dit les dates posent aussi problème avec Access. Du temps ou je travaillas avec , je me rappelle avoir souvent été emmerdé notamment avec les paramètres régionaux des machines. Si les dates en durs devaient être au format US, il fallait souvent jongler avec les valeurs Date et les fonctions de conversions.

[emmanuel.remy]

Tu me rassures pour la base !

Bien noté pour les paramètres régionaux !

ERE

[univermina]

merci pour vos reponce
merci sevyc64 , j'ai fai ce que tu ma conseillé
mai j'ai un autre probleme c que je veu paramettré les dates c'est a dire l'utilisateur choisie un mois apartir d'une liste deroulente pour faire des statistique apartir de la base ( je devellope un intranet pour une clinique , et je veu faire des statistiques genre; combien de malade hospitalisé .....)

mai le probleme la requette ne me renvoye pas les bonnes resultats
voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
<%
	 dim d1
	 dim d2
	 d1=cdate("1/5/2009")
	 d2=DateAdd("d",30,d1)
 
	 response.write d1&"<br>"
	 response.write d2&"<br>"
	 dbPath = Server.MapPath("./bd3.mdb")
     ' Création de l'objet permettant la connexion
      Set Conn = Server.CreateObject("ADODB.Connection")
     ' Connexion
      Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};" _
      & " DBQ=" & dbPath
	  sql="select count(motif) as nbr, sum(montant) as somme from payement where motif like'H' and datepayement between #"& d1 &"# and #"& d2 &"#"
      set Rs= server.CreateObject("ADODB.Recordset")
      Rs.open sql, conn,3,3
	  if rs.eof then
	  response.write "nosuccé"
	  else
	  response.write rs("nbr")&"<br>"
	  response.write rs("somme")&"<br>"
	  end if
	  	Rs.Close
       Set Rs=Nothing
       sql="select datepayement, numpayement from payement where motif ='H' and datepayement between #"& d1 &"# and #"& d2 &"#"
      set Rs= server.CreateObject("ADODB.Recordset")
      Rs.open sql, conn,3,3
	  do while  not rs.eof
	  response.write rs.fields("datepayement")&"&nbsp;&nbsp;"&rs.fields("numpayement")&"<br>"
	  rs.movenext
	  loop
	  Rs.Close
      Set Rs=Nothing
	  Conn.close : Set Conn=nothing 
	%>

voici le resultat de l'execution

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
01/05/2009
31/05/2009
21
468789
19/05/2009  38
19/05/2009  39
19/05/2009  51
19/05/2009  52
19/05/2009  53
19/05/2009  67
19/05/2009  68
19/04/2009  30
19/05/2009  31
19/05/2009  75
19/05/2009  76
19/05/2009  77
19/05/2009  78
19/05/2009  83
19/05/2009  85
19/05/2009  89
23/05/2009  93
23/05/2009  106
26/05/2009  110
30/05/2009  115
27/05/2009  114

j'ai une resultat qui correspond au mois d'avril

[sevyc64]

A vérifier, mon utilisation d'Access est lointaine, mais il me semble que les requette devraient s'écrirent ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
sql="select count(motif) as nbr, sum(montant) as somme from payement where motif like'H' and datepayement between '#"& d1 &"#' and '#"& d2 &"#'"
....
sql="select datepayement, numpayement from payement where motif ='H' and datepayement between '#"& d1 &"#' and '#"& d2 &"#'"

[univermina]

merci sevyc64

j'ai essaye mai sa me donne la meme erreurs

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Erreur de compilation Microsoft VBScript error '800a0401' 
 
Fin d'instruction attendue 
 
/iisHelp/common/500-100.asp, line 11 
Dim objASPError, blnErrorWritten, strServername, strServerIP, strRemoteIP Dim strMethod, lngPos, datNow, strQueryString, strURL
--------------------------------------------------------------------------^
 
Microsoft OLE DB Provider for ODBC Drivers error '80040e07' 
 
[Microsoft][Pilote ODBC Microsoft Access] Type de données incompatible dans l'expression du critère. 
 
/intranet2/Test.asp, line 17

[sevyc64]

Et avec ceci, tu as aussi une erreur ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
sql="select count(motif) as nbr, sum(montant) as somme from payement where motif like'H' and datepayement between " & d1 & " and " & d2
....
sql="select datepayement, numpayement from payement where motif ='H' and datepayement between " & d1 & " and " & d2

[roro06]

Bonjour

Sous Access

sql="select count(motif) as nbr, sum(montant) as somme from payement where motif like'H' and datepayement between #"& d1 &"# and #"& d2 &"#"
....
sql="select datepayement, numpayement from payement where motif ='H' and datepayement between #"& d1 &"# and #"& d2 &"#"

(sans les quotes) devrait marcher a condition de mettre les dates au format MM/DD/YYYY (chez moi, en tout cas, je fais comme ça pour les dates).

Pour le résultat concernant le mois d'avril, je ne sais pas trop. Essaie peut-être

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

       sql="select datepayement, numpayement from payement where motif ='H' and datepayement >= #"& d1 &"# and datepayement<= #"& d2 &"#"

(Pour Access, taille maxi = 2 Go (comprenant les objets systèmes), mais 15 Go ! non. Une telle volumétrie justifie de passer à des serveurs de BdD plus "évolués")

[univermina]

merci roro

je vai essayé

a+

[univermina]

mais comment je convertie ma date du format (dd/mm/yy) au format (mm/dd/yy)

[emmanuel.remy]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

d = format(date1, "MM/dd/yy")

ERE

[roro06]

Je n'ose même pas imaginer les temps d'ouverture d'une telle base.

Pour l'anecdote, Access a des performances étonnantes (en lecture en tout cas) même sur des grosses bases. Des select sur plusieurs tables en inner join ou en left join sur plusieurs centaines de milliers d'enregistrements, pour peu que les index soient correctement définis, m'ont bluffé. J'en ai une en prod, mise à jour toutes les nuits, taille entre 1 et 1,5 Go, Il n'est actuellement pas question d'en changer. Par contre, ça implique un compactage systématique (et donc coupure du service dans la nuit, etc ...)On n'a rien sans rien ! .

[univermina]

j'ai pa une erreur mais j'ai auccun resultat

voici le resultat d'execution

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
01/05/2009
31/05/2009
0

[sevyc64]

Ton champ datepayement est-il bien déclaré de type Date dans ta base de données ?

[univermina]

oui , je vien de le verifié

[univermina]

enfin mon probleme est resolue

il fau que le format de date soit "MM/DD/YYYY"

et pour convertir la date du format DD/MM/YYYY au Format MM/DD/YYYY

j'ai trouvé cette fonction ecrie en ASP

voici le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Function FormatDate(DateValue)
    Dim strYYYY
    Dim strMM
    Dim strDD
 
        strYYYY = CStr(DatePart("yyyy", DateValue))
 
        strMM = CStr(DatePart("m", DateValue))
        If Len(strMM) = 1 Then strMM = "0" & strMM
 
        strDD = CStr(DatePart("d", DateValue))
        If Len(strDD) = 1 Then strDD = "0" & strDD
 
        FormatDate = strMM & "/" & strDD & "/" & strYYYY
 
End Function

merci a tous le monde