Discussion :

[zaki_1982]

bonjour

j'ai une page web que se connecte à une base donnée pour récuperer les donnée d'une table et les mettre sur une autre table

Code :

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

sql="select * from Taxa where Dial_Date='"&dat&"'"

Code :

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

insert into Taxa_cout

mon problème c'est quabd je lance cette page pour une date x je recois ce type de message:
Microsoft OLE DB Provider for ODBC Drivers erreur '80040e31'

[Microsoft][ODBC SQL Server Driver]Délai d'attente expiré

/taxa/Calcul_taxa.asp, ligne 343

à noter que le champ Dial_Date est indexé sur la table et que j'ai mis Server.ScriptTimeout=3600 sur ma page.
est ce qu'il y une solution pour mon problème?
merci pour l'aide

[Invité]

Salut,

peux-tu afficher la ligne mentionnée de ta page asp stp

Code :

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

1
2
 
Calcul_taxa.asp, ligne 343

[zaki_1982]

la voila

Code :

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

  rs.open sql, conn,3,3

[Invité]

Salut,

D'après ce post

http://www.developpez.net/forums/d18...tente-depasse/

et celui-ci

http://www.archivum.info/microsoft.p.../msg00004.html

Il y a certainement un recordset qui reste ouvert.

Tu devrais revérifier ton code pour t'assurer de fermer ton recordset

[zaki_1982]

j'ai un seul recorset et elle est fermé voila 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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Set conn = Server.CreateObject("ADODB.Connection")
 
conn.open "driver={SQL Server};" & "server=172.19.44.4;uid=sa; pwd=sa; database=Taxa"
 Server.ScriptTimeout=3600
'CommandTimeout=3600
'ConnectionTimeout=3600
set rs=server.createobject("adodb.recordset")
sql="select * from Taxa where Dial_Date='"&dat&"'"
  rs.open sql, conn,3,3
  do while not rs.eof
dt=rs("Dial_Date")
dt=mid(dt,5,2)+mid(dat,3,2)+mid(dat,1,2)
dt="20" & dt
he=trim(rs("Dial_Time"))
dr=trim(rs("Duree"))
de=ConvertDuration(dr)
cd=trim(rs("Code_Dial"))
cu=trim(rs("Code_used"))
dn=trim(rs("Dialed_Num"))
cn=trim(rs("Calling_Num"))
ac=trim(rs("Account_Code"))
inc=trim(rs("incoming_num"))
cpc=trim(rs("clg_pty_cat"))
itc=trim(rs("in_trk_code"))
vdn=trim(rs("vdn"))
'if cu <> "" then
if cu="291" or cu="292" or cu="2853" then
cout=TarificationMaroc(rs("Dialed_Num") , de , rs("Dial_Date") , rs("Dial_Time") )
else if cu="2801" or cu="2802" or cu="2806" or cu="2807" or cu="2821" or cu="2822" or cu="2824" or cu="2825" or cu="2850" or cu="2851" then
cout=TarificationFrance(rs("Dialed_Num") , de)
else 
cout=0
end if
end if
'end if
'
'cout=cdbl(cout)
cout=replace(cout,",",".")
'response.Write(cout)
'sqli="insert into taxa_cout (Dial_Date,Dial_Time,cout) values ('"& dt &"','"& he &"','" & cout & "')"
sqli="insert into Taxa_cout (Dial_Date,Dial_Time,Duree,Code_Dial,Code_used,Dialed_Num,Calling_Num,Account_Code,incoming_num,clg_pty_cat,in_trk_code,vdn,cout) values ('"& dt &"','"& he &"',"& de &",'"& cd &"','"& cu &"','"& dn &"','"& cn &"','"& ac &"','"& inc &"','"& cpc &"','"& itc &"','"& vdn &"',"& cout &")"
 
	conn.execute sqli
	rs.movenext
	loop
 
  RS.close
set RS=nothing
conn.close
set conn=nothing

[zaki_1982]

je veux rajoute que ca fonctionne bien pour des date et se bloque pour d'autre date

[roro06]

Bonjour

sql="select * from Taxa where Dial_Date='"&dat&"'"

Rajoute juste après :

Code :

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

Response.write(sql & "<br/>")

On ne voit pas sur ton code comment est déterminé dat