Error

[asesino22000]

bueno pues tengo un gran problema y no se como arreglarlo

ago una consulta a una tabla de una base de datos después de eso copio esa base a otra para sacar como un resumen de la tabla

en si el objetivo es copiar una tabla a otra pero al copiar cuando va el registro 5000 me vota el Server y me pone esto

Microsoft OLE DB Provider for SQL Server error '80004005'

[DBNETLIB][ConnectionOpen (Connect()).]SQL Server does not exist or access denied.

/ical/generar_report.asp, line 19

entonces como verán no termina el proceso se queda a medias no se si se bloquea el servidor no se ni q onda la programación con la que ago esto es la siguiente

response.Buffer = true
fecha=request.QueryString("fecha")
Set rs_vista = conE1.execute( "SELECT * FROM avantel_vallejo_invent_Alan WHERE fecha_upload='"&fecha&"'" )
if Not rs_vista.Eof then
sql_borrar = "DELETE FROM rtodo"
conE1.execute(sql_borrar)
Do While Not rs_vista.Eof
response.Flush()
Set rs_ins = Server.CreateObject("ADODB.Command")
sql_ins = "INSERT INTO rtodo(Num_Emp,Ext,Res_Ext,CC,Usuario,Depto,Fecha,H ora,Minutos,Monto,Destino,Tipo,Telefono,fecha_uplo ad) "&_
"VALUES('"&rs_vista("Num_Emp")&"','"&rs_vista("Ext ")&"','"&rs_vista("Res_Ext")&"','"&rs_vista("CC")& "','"&rs_vista("Usuario")&"','"&rs_vista("Depto")& "','"&rs_vista("Fecha")&"','"&rs_vista("Hora")&"', '"&rs_vista("Minutos")&"','"&rs_vista("Monto")&"', '"&rs_vista("Destino")&"','"&rs_vista("Tipo")&"',' "&rs_vista("Telefono")&"','"&rs_vista("fecha_uploa d")&"')"
'response.Write(sql_ins&"<br>")
rs_ins.ActiveConnection = conE1
rs_ins.Commandtext = sql_ins
rs_ins.execute
Set rs_ins = Nothing
rs_vista.MoveNext
Loop
ojala y me puedan ayudar

[Shiryu_Libra]

5000 registros?,
cuanto tiempo tarda???
cuanto tiempo tiene tu session para realizar ese procedimiento???,
la variable de conexion esta dentro de tu Global.ASA, mediante variable session???

[Shiryu_Libra]

por cierto, Bienvenido al Foro

[redkram]

posiste?

<%server.ScriptTimeout =9000000%>

o en vez de hacer 5000 de golpe haz 1000 y cuando acabe:

response.redirect "mismapagina.asp?var=1000"

server.ScriptTimeout =9000000
variable=request.querystring("var")
if variable<>"" then
variable=Cint(variable)+1000
else
variable=1
end if
response.Buffer = true
fecha=request.QueryString("fecha")
Set rs_vista = conE1.execute( "SELECT * FROM avantel_vallejo_invent_Alan WHERE fecha_upload='"&fecha&"'" )
if Not rs_vista.Eof then
sql_borrar = "DELETE FROM rtodo"
conE1.execute(sql_borrar)
y=variable+1000
for x=variable to y Step1
response.Flush()
Set rs_ins = Server.CreateObject("ADODB.Command")
sql_ins = "INSERT INTO rtodo(Num_Emp,Ext,Res_Ext,CC,Usuario,Depto,Fecha,H ora,Minutos,Monto,Destino,Tipo,Telefono,fecha_uplo ad) "&_
"VALUES('"&rs_vista("Num_Emp")&"','"&rs_vista( "Ext ")&"','"&rs_vista("Res_Ext")&"','"&rs_vista("C C")& "','"&rs_vista("Usuario")&"','"&rs_vista("Dept o")& "','"&rs_vista("Fecha")&"','"&rs_vista("Hora") &"', '"&rs_vista("Minutos")&"','"&rs_vista("Monto")& "', '"&rs_vista("Destino")&"','"&rs_vista("Tipo")&" ',' "&rs_vista("Telefono")&"','"&rs_vista("fecha_u ploa d")&"')"
'response.Write(sql_ins&"<br>")
rs_ins.ActiveConnection = conE1
rs_ins.Commandtext = sql_ins
rs_ins.execute
Set rs_ins = Nothing
rs_vista.MoveNext()
next
response.redirect "mismapagina.asp?var="&y+1

si hay algun error lo siento no tengo tiempo a revisarlo, pero el concepto es lo que cuenta. Spero haberte ayudado.

Salu2 RK

[Shiryu_Libra]

es buena implementacion, eso del script

<%server.ScriptTimeout =9000000%>

pero y si la session solo dura 5 minutos???

[asesino22000]

la coneccion la utilizo con un archivo por fuera que se llama coneccion.asp
la variable session no es por q cuando sale el error sigo dentro de la web y tengo que si session ya expiro me saque de la web y me manda a una que se llama log.asp donde se tienen que logear los usuarios

y en total son 17 mil registros que machean con otra tabla la cual cuando termina de hacer el mach salen 9 mil y tantos registros como resultado

cuando lo ejecuto tarda como 5 o 7 min y me bota y solo alcanza a guardar 5mil registros

intentare colocando esto <%server.ScriptTimeout =9000000%> a ver q pasa

checo y les comento q paso

muchas gracias por su ayuda y tiempo en lo que les pueda ayudar no duden en pedirmelo

PDD: Muchas gracais por darme la bien venida

[asesino22000]

intente con esto <%server.ScriptTimeout =9000000%> y nada me sigue mandando el error

no saben si hay alguna forma de incertar 1000 o mas registros de un solo trancaso y no que se inserten uno por uno como lo estoy haciendo yo

creo que el problema biene de q expira el tiempo y el server bloquea el acceso

ya no se que hacer denme algunas ideas por que ya se bloqueo mi cabeza

[tammander]

Pero tu cual quieres aumentar el

server.ScriptTimeout

o el

session.Timeout


?


Por cierto, para que quieres el response.Buffer = true y luego le haces flush en mitad de nada Buffer lo que hace es guardar en memoria todo hasta que le haces un flush y te lo suelta todo junto en la pagina. ¿para que quieres eso si cuando terminas haces un redirect? ¿gusto por martirizar al servidor?


Un saludo

[asesino22000]

buneo mira no quiero aumentar nada ni la session que si se como aumentarlo y el scriptTimeout

lo unico que quiero es q no me vote el server y termine el proceso eso es lo unico que quiero hacer

con respecto a lo del flush
lo colo que en la web por que en una aplicacion que tengo que me hacia lo mismo lo puse y ya corre sin probleas

y con el buffer

lei en un foro que el flush no funciona sin el buffer por eso es q lo puse

[Shiryu_Libra]

esta interesante el problema....

y no exite la posibilidad que utilices GetRows, como en este EJEMPLO, y ya despues cargas a la tabla comparativa???

[asesino22000]

Gracias Shiryu_Libra por la idea ya quedo el problema lo logre arreglar

que buena opcion es esa del GetRows

les dejo el codigo como quedo para cualquier problema a lo mejor a alguien le puede servir

Dim tabla
response.Buffer = true
fecha=request.QueryString("fecha")
Set rs_vista = conE1.execute( "SELECT * FROM avantel_vallejo_invent_Alan WHERE fecha_upload='"&fecha&"'" )
tabla = rs_vista.GetRows
rs_vista.close
Set rs_vista = Nothing
if isArray(tabla) then
sql_borrar = "DELETE FROM rtodo"
conE1.execute(sql_borrar)
for I = 0 to UBound(tabla,2)
sql_ins = "INSERT INTO rtodo(Num_Emp,Ext,Res_Ext,CC,Usuario,Depto,Fecha,H ora,Minutos,Monto,Destino,Tipo,Telefono,fecha_uplo ad) "&_
"VALUES('"&tabla(0,I)&"','"&tabla(1,I)&"','"&tabla (2,I)&"','"&tabla(3,I)&"','"&tabla(6,I)&"','"&tabl a(7,I)&"','"&tabla(11,I)&"','"&tabla(12,I)&"','"&t abla(13,I)&"','"&tabla(14,I)&"','"&tabla(10,I)&"', '"&tabla(9,I)&"','"&tabla(8,I)&"','"&tabla(15,I)&" ')"
'response.Write(sql_ins&"<br>")
conE1.execute(sql_ins)
Next

Gracias a todos

ATT: Corucopower jejeje

[Shiryu_Libra]

a festejar

y ahora si te arroja todos tus resultados???, no se congela en ningun punto del proceso??

[asesino22000]

No Ahora todo carga perfectamente y tarda muy poco

en realidad esa opcion del GetRows es muy buena la recomiendo y gracias bro por el tip

cualquier cosa es la que pueda ayudar pues aqui estamos

PDD: Saludos a todo el foro muy bueno de verdad