Hallo an alle,
ich habe ein Problem mit meinem Skript.
Das Skript soll aus einer Tabelle mit 690000 Daten�tzen bestimmte Daten auslesen, die
ich dann sofort wieder in eine andere Tebelle speichern will.
Das Problem ist ,dass ich jedesmal ein TimeOut bekomme :
Fehlertyp:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E31)
[Microsoft][ODBC SQL Server Driver]Timeout abgelaufen.
/Webchart/referenz_script.asp, line 49
Quelltext:
___________________________
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<%
'********************************************************************************************************
'Datenbankverbindung
set objconn = server.createobject("ADODB.Connection")
objconn.ConnectionTimeout=900
Session("ConnString")="DSN=ReferenzDB;"
objconn.open Session("ConnString")
if Err.number<>0 then
objconn.close%>
<SCRIPT LANGUAGE="vbscript">
<!--
Dim Antwort
Antwort=MsgBox("Der Datenbankserver ist leider nicht
verf�gbar."&chr(10)&chr(13)&"Bitte versuchen Sie es sp�ter noch
einmal!",16,"Datenbankserver nicht verf�gbar")
//-->
</SCRIPT>
<SCRIPT LANGUAGE="javascript">
<!--
history.back();
//-->
</SCRIPT>
<%
end if
'********************************************************************************************************
'Abfrage der Daten
sql = "SELECT Z.PEID,Z.ONKZ, Z.ASB,O.OS, O.MD, cast(substring(O.EPI,3,2)as varchar(5))
AS EPI FROM Onu AS O, Zusammenfassung AS Z WHERE Z.ONKZ = O.ONKZ AND Z.ASB = O.ASB
AND Z.PEID = substring(O.Orka,2,5)"
set rs_daten = objconn.execute(sql)
'Wenn Rekordset leer, dann Fehlermeldung
if rs_daten.eof then
Response.Write("<Div align='Center'><H4><font color='Red'>Es sind keine Daten
in der Datenbank vorhanden<BR>oder Fehler bei der Datenbankverbindung
!!!</font></H4></div>")
Response.End
end if
do until rs_daten.eof
Response.Write(rs_daten("PEID") & " " & rs_daten("ONKZ")&
" " & rs_daten("ASB")& " " & rs_daten("OS")&
" " & rs_daten("MD")& " " & rs_daten("EPI")& "<BR>")
sql_update = "UPDATE Zusammenfassung SET OS = '"& rs_daten("OS") & "', MD =
'"&rs_daten("MD")&"', OLT = '"&rs_daten("EPI")&"' WHERE PEID = '"&rs_daten("PEID")&"'
AND ONKZ = '"&rs_daten("ONKZ")&"' AND ASB = '"&rs_daten("ASB")&"'"
Response.Write(sql_update & "<BR><HR>")
set rs_datenupdate = objconn.Execute(sql_update)
rs_daten.movenext
loop
%>
<P> </P>
</BODY>
</HTML>
__________________________________
Was kann man da machen ???
Ich habe das TimeOut f�r das ADODB Objekt schon auf 0 und 900 gestellt
aber nichts hilft !!!
Hoffe ihr k�nnt helfen
Danke
Andr�
| Oft Gefragtes: http://www.aspgerman.com/aspgerman/faq/
| [aspdebeginners] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdebeginners/ = Listenarchiv
| Sie knnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdebeginners.asp
