(Resolvido) Importar tabela de uma tabela para outra

[Clauido José]

Ola pessoal estou com um problemão tenho que importar uma tabela de um banco de dados access para outra tabela do mesmo banco fizemos uma ateração na tabela e preciso atualizara nova tabela com a atinga ela tem 525000 registro bom meu problema ta no tempo Server.ScriptTimeout quando execute a pagina de importação ele da este erro:

Active Server Pages, ASP 0113 (0x80004005)

O tempo máximo de execução de um script foi excedido. Você pode alterar esse limite especificando um novo valor para a propriedade Server.ScriptTimeout ou alterando o valor nas ferramentas de administração do IIS.

Como posso resolver?

Editado Janeiro 26, 2009 por Rafael Spilki

[Rafael Spilki]

Com

response.expire

ou

response.flush

http://www.criarweb.com/artigos/453.php

http://www.criarweb.com/artigos/440.php

[Clauido José]

cara aqui na empresa não abre esse site por causa do servidor proxy não tem outro site que possa ver como fazer?

[Rafael Spilki]

Google!

[Clauido José]

cara é seguinte andei dando uma depurada no codigo e percebi que o problema não é meu codigo mas sim a tabela antinga que ta zuada os campos não estao batando com o campos novos vou ter que verficar registro por registro valeu mas resolvi.

[Clauido José]

Bom pessoal to importando uma tabela atinga que tenho para um tabela nova que crei por exemplo na tabela atinga eu não tinha a tabela de estado e tabela de cidade bom o que estou fazendo na tabela nova eu procuro na tabela de cidade o campo cidades da tabela antinga e sucessivamente na tabela de estado com o campo do estado e gravo na tabela nova o id do estado e id da cidade bom o problema que essa tabela antina tem 18247 só de um estado e quando estou executando esta função de importação ele me da o seguinte errro:

Active Server Pages, ASP 0113 (0x80004005)

O tempo máximo de execução de um script foi excedido.

Você pode alterar esse limite especificando um novo valor

para a propriedade Server.ScriptTimeout ou alterando o

valor nas ferramentas de administração do IIS.

e grava apenas 12281 registros alguém pode me ajudar com esse erro?

[Rafael Spilki]

Pra mim parece exatamente o mesmo erro e o mesmo assunto desse tópico aqui:

http://scriptbrasil.com.br/forum/index.php...nse\.flush

a solução também passa pelo mesmo caminho...

Procure não postar tópicos repetidos... ;)

Mais tarde irei mesclar os dois tópicos... sendo que se necessário tirarei o status de resolvido do mesmo...

[]'s Rafael Spilki

[Clauido José]

É deculpe rafael eu pensei que tinha resolvido o problema mas continua dando este erro o que pode ser

Bom cara é seguinte eu fiz uma mesclagem do meu banco de dados pegando alguns registros menores e percebi que o poblema não ta no meu script mas sim no IIS bom gostaria de saber qual o tempo maximo de execução de script porque eu já aumentei o tempo maximo de conexao para 10000 mesmo assim da erro por exemplo quando tenho um uma mesclagem com mais de 20000 registro ele me da essa mensagem agora quando tenho um regestro menor que 20000 ele executa beleza então não o problema do meu script mas sim do IIS certo alguém pode me ajudar?

[Rafael Spilki]

Dá nada! nem te estressa...

já mesclei os tópicos...

Cara... você está lidando com uma penca de dados mesmo...

Como não é uma operação que se repetirá sempre, acho legal dar uma estudadinha em response.expire e response.flush... podem e devem ser as únicas coisas possíveis de lhe salvar em termos de programação...

Do contrário... invadiremos o mundo da lógica! Será que não há como fazer uma lógica diferente de forma a não sobrecarregar tanto o servidor?

Será que não tem como fazer campo por campo?!? ou através de algo como uma paginação... de 500 em 500 linhas?!?

O caminho é por aí...

[]'s Rafael Spilki

[Clauido José]

vou tentar rafa depois eu vejo o que consigo outra coisa esta tabela vou usar em uma intranet sera que vai me dar problema tb?

[Rafael Spilki]

Uhm... acho que não... o que deves ter em mente sempre é fazer as devidas configs tb no IIS para evitar esses transtornos... mas por parte do script esses comandos que sugeri devem resolver...

[Clauido José]

valeu rafa estou testando o response.expire depois eu vejo se vai dar certo ok

[Clauido José]

Ei rafinha salvou minha pele mais uma vez mas o que me ajudou tb foi pesquisar aqui no forum, o script ficou assim pra você te uma ideia o response.expire não deu certo ai que eu fiz o seguinte antes do select eu coloquei o response.Buffer = True e Server.ScriptTimeout = 999999 antes do loop começar eu coloquei o Response.Flush e antes dele pular o registro com o rsAcrecimo.Movenext eu coloquei Response.Clear() vou colocar o codigo pra você olharem e pra ajudar valeu mais uma.

<!--#include file="strCon.asp"-->
<%
dim strTitulo,strTexto,strNew, Conexao, strSql,sDatBaix
call abreConexao()
Response.Buffer = True
Server.ScriptTimeout = 999999
data = date-1
dia = datepart ("d", data)
mes = datepart ("m", data)
ano = datepart ("yyyy", data)
strdata = (mes&"/"&dia&"/"&ano)    
campo = "DTH.NoOs,DTH.Cliente,DTH.Endereco,DTH.Bairro,DTH.Cep,DTH.Cidade,DTH.ESTADO,DTH.Tipo_Residencia"
strSql = "SELECT " & campo & " FROM DTH "
strSql = strSql & "where DTH.ESTADO= '" & Request("ESTADO") & "'"
if rsAcrecimo.state = 1 then rsAcrecimo.Close
rsAcrecimo.Open strSql, Conexao, 3,3
'response.Write(rsAcrecimo.RecordCount)
dim i 
i = 0
Response.Flush
if rsAcrecimo.RecordCount >0 then 
    while not rsAcrecimo.Eof 
        'Variaves do campo DTH
        sNoOs11 = rsAcrecimo("NoOs")
        sClient = rsAcrecimo("Cliente")
        sEndere = rsAcrecimo("Endereco")
        sBairro = rsAcrecimo("Bairro")
        sCep010 = rsAcrecimo("Cep")
        sCidade = rsAcrecimo("Cidade")
        sEstado = rsAcrecimo("Estado")
        sTipoRe = rsAcrecimo("Tipo_Residencia")
        
        'Procura a cidade do cliente
        strSql = "Select * from tabCidades where Cidade = '" & rsAcrecimo("Cidade") & "'"
        if rsCidade.state = 1 then rsCidade.close
        set rsCidade = Conexao.Execute(strSql)
        if not rsCidade.Eof then 
            sIdEsta = rsCidade("idEstado")
            sIdCida = rsCidade("idCidade")        
        else 
            sIdCida = 0 
        end if
        rsCidade.Close
        
        strSql = "Select * from tabEstados where idEstado = " & sIdEsta
        'Response.Write(strsql)
        'Response.end()
        if rsEstado.state = 1 then rsEstado.Close
        set rsEstado = Conexao.Execute(strSql)
        if not rsEstado.Eof then sIdEsta = rsEstado("idEstado") else sIdEsta = 0 end if
        rsEstado.Close
        
        strSql = "Select * from tabCliente where NomeCliente = '" & rsAcrecimo("Cliente") & "'"
        'response.Write(strSql)
        'response.End()
        if rsCliente.state = 1 then rsCliente.Close
        set rsCliente = Conexao.Execute(strSql)
        if rsCliente.eof then
            'Inserindo os registro na tabela tabDth 
            campo = "NoOs,NomeCliente,Endereco,Bairro,Cep,IdEstado,idCidade,TipoResidencia"
            strSql= "Insert Into tabCliente (" & campo & ") values (" 
            strSql = strSql & sNoOs11  & ",'" & sClient & "','" & sEndere & "','" & sBairro & "','" 
            strSql = strSql & sCep010  & "'," & sIdEsta & ","   & sIdCida &  ",'" & sTipoRe & "')"    
            i = i + 1
        end if    
        Conexao.Execute(strSql)    
         Response.Clear()    
        rsAcrecimo.MoveNext
    wEnd            
    response.write ("Total="& rsAcrecimo.RecordCount & "<br>Total i:" & i)

%>
<link href="css/estilos.css" rel="stylesheet" type="text/css" />

<%
else
    response.write "Total="& rsAcrecimo.RecordCount
end if'
%>