Ir para conteúdo
Fórum Script Brasil

shelter

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    429

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Tudo que shelter postou

  1. shelter

    Erro Na Consulta

    pergunta respondeu ao shelter de shelter em ASP

    Estou rodando local...
  2. shelter

    Erro Na Consulta

    pergunta respondeu ao shelter de shelter em ASP

    Andreia fiz deste jeito: <td width="75" > <div align="center" class="style7"> <% if IsNull(rsCRJJ0421("totalEf")) or totalEf = "" then rsCRJJ0421("totalEf") = 0 Response.Write rsCRJJ0421("totalEf") end if %> </div></td> e deu o seguinte erro: Tipo de erro: ADODB.Recordset (0x800A0CB3) O conjunto de registros atual não oferece suporte para atualização. Isso pode ser uma limitação do provedor ou do tipo de bloqueio selecionado. /teste2/teste_query.asp, line 169
  3. shelter

    Conexão

    uma questão postou shelter ASP

    Fala galera, Preciso saber como me conecto a uma base de dados ( access) sem exclusividade Valeu
  4. shelter

    Conexão Bd Access/asp

    uma questão respondeu shelter em ASP

    este nº depende do DB , me fale qual esta usando que te falo qual a limitação
  5. shelter

    Erro Na Consulta

    pergunta respondeu ao shelter de shelter em ASP

    olha o erro que da. Tipo de erro: ADODB.Field (0x80020009) BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual
  6. shelter

    Erro Na Consulta

    pergunta respondeu ao shelter de shelter em ASP

    Então acho que não expliquei certo ele funciona certo só da este erro quando uma consulta não tem valor para contar ( não possui registro do tipo COUNT na consulta em questão)
  7. shelter

    Erro Na Consulta

    pergunta respondeu ao shelter de shelter em ASP

    porque fala isto Andreia?
  8. shelter

    Erro Na Consulta

    pergunta respondeu ao shelter de shelter em ASP

    Segue Código strSQL2 = " Select Ramal , COUNT ( * ) AS totalEf " strSQL2 = strSQL2 & " From Ramal , CRJJ04 " strSQL2 = strSql2 & " WHERE Ramal.Ramal=CRJJ04.Origem " strSQL2 = strSQL2 & " And grupo Like '%" & Setor & "%' And servico = 1 " strSQL2 = strSQL2 & " GROUP BY Ramal " strSQL2 = strSQL2 & " ORDER BY 1 Asc " Set rsCRJJ0421 = conexaodb.Execute(strSQL2) strSQL3 = " Select Ramal , COUNT ( * ) AS totalEf1 " strSQL3 = strSQL3 & " From Ramal , CRJJ04 " strSQL3 = strSql3 & " WHERE Ramal.Ramal=CRJJ04.Origem " strSQL3 = strSQL3 & " And grupo Like '%" & Setor & "%' And servico = 2 " strSQL3 = strSQL3 & " GROUP BY Ramal " strSQL3 = strSQL3 & " ORDER BY 1 Asc " Set rsCRJJ0422 = conexaodb.Execute(strSQL3) strSQL4 = " Select Ramal , COUNT ( * ) AS totalEf2 " strSQL4 = strSQL4 & " From Ramal , CRJJ04 " strSQL4 = strSql4 & " WHERE Ramal.Ramal=CRJJ04.Origem " strSQL4 = strSQL4 & " And grupo Like '%" & Setor & "%' And servico = 3 And 4 " strSQL4 = strSQL4 & " GROUP BY Ramal " strSQL4 = strSQL4 & " ORDER BY 1 Asc " Set rsCRJJ0423 = conexaodb.Execute(strSQL4) strSQL5 = " Select Ramal , COUNT ( * ) AS totalEf3 " strSQL5 = strSQL5 & " From Ramal , CRJJ04 " strSQL5 = strSql5 & " WHERE Ramal.Ramal=CRJJ04.Origem " strSQL5 = strSQL5 & " And grupo Like '%" & Setor & "%' And servico = 5 And 6 And 7 " strSQL5 = strSQL5 & " GROUP BY Ramal " strSQL5 = strSQL5 & " ORDER BY 1 Asc " Set rsCRJJ0424 = conexaodb.Execute(strSQL5) strSQL6 = " Select Ramal , COUNT ( * ) AS totalEf4 " strSQL6 = strSQL6 & " From Ramal , CRJJ04 " strSQL6 = strSql6 & " WHERE Ramal.Ramal=CRJJ04.Origem " strSQL6 = strSQL6 & " And grupo Like '%" & Setor & "%' And Tipo = 0 " strSQL6 = strSQL6 & " GROUP BY Ramal " strSQL6 = strSQL6 & " ORDER BY 1 Asc " Set rsCRJJ0425 = conexaodb.Execute(strSQL6) strSQL7 = " Select Ramal , COUNT ( * ) AS totalEf5 " strSQL7 = strSQL7 & " From Ramal , CRJJ04 " strSQL7 = strSql7 & " WHERE Ramal.Ramal=CRJJ04.Origem " strSQL7 = strSQL7 & " And grupo Like '%" & Setor & "%' And Tipo = 1 " strSQL7 = strSQL7 & " GROUP BY Ramal " strSQL7 = strSQL7 & " ORDER BY 1 Asc " Set rsCRJJ0426 = conexaodb.Execute(strSQL7) strSQL8 = " Select '%" & Setor & "%', COUNT ( * ) AS totalEf6 " strSQL8 = strSQL8 & " From Ramal , CRJJ04 " strSQL8 = strSql8 & " WHERE Ramal.Ramal=CRJJ04.Origem " strSQL8 = strSQL8 & " And grupo Like '%" & Setor & "%' And Tipo = 0 " strSQL8 = strSQL8 & " GROUP BY Ramal.grupo " strSQL8 = strSQL8 & " ORDER BY 1 Asc " Set rsCRJJ0427 = conexaodb.Execute(strSQL8) strSQL9 = " Select '%" & Setor & "%', COUNT ( * ) AS totalEf7 " strSQL9 = strSQL9 & " From Ramal , CRJJ04 " strSQL9 = strSql9 & " WHERE Ramal.Ramal=CRJJ04.Origem " strSQL9 = strSQL9 & " And grupo Like '%" & Setor & "%' And Tipo = 1 " strSQL9 = strSQL9 & " GROUP BY Ramal.grupo " strSQL9 = strSQL9 & " ORDER BY 1 Asc " Set rsCRJJ0428 = conexaodb.Execute(strSQL9) %> <html> <head> <title>Setor</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><style type="text/css"> <!-- body,td,th { font-family: Tahoma; font-size: 11px; color: #000000; } .style1 {color: #FFFFFF} body { margin-left: 50px; } --> </style></head> <body> <table width="735" border="0" cellspacing="1" cellpadding="1"> <tr> <td width="109">&nbsp;</td> <td width="521"><div align="right"></div></td> <td width="95"><div align="right"></div></td> </tr> </table> <table width="701" border="0" cellspacing="1" cellpadding="1"> <tr> <td width="58">Setor:</td> <td width="107"><% = Response.Write("Setor") %></td> <td width="84">Total efetuadas: </td> <td width="69"><% = rsCRJJ0427 ( "totalEf6" ) %></td> <td width="80">Total recebidas:</td> <td width="70"><% = rsCRJJ0428( "totalEf7" ) %></td> <td width="70"><a href="Sumario_mes_mes2.asp"><img src="Figuras/bot_voltar2.gif" alt="Voltar" width="50" height="8" border="0"></a></td> <td width="72"><a href="javascript:Self:print()"><img src="Figuras/btn_imprimir.gif" alt="Imprimir Documento" width="72" height="22" border="0"></a></td> <td width="63"><div align="right"></div></td> </tr> </table> <table width="701" border="0"> <tr> <td width="695" height="23"><hr align="left" width="600" color="#000000"></td> </tr> </table> <table width="706" border="0" cellspacing="1" cellpadding="1"> <tr> <td width="48" bgcolor="#003366"><div align="center"><span class="style1">Ramal</span></div></td> <td width="76" bgcolor="#003366"><div align="center"><span class="style1">Liga&ccedil;&otilde;es locais</span></div></td> <td width="93" bgcolor="#003366"><div align="center"><span class="style1">Liga&ccedil;&otilde;es regionais </span></div></td> <td width="77" bgcolor="#003366"><div align="center"><span class="style1">Liga&ccedil;&otilde;es DDD </span></div></td> <td width="84" bgcolor="#003366"><div align="center"><span class="style1">Liga&ccedil;&otilde;es Celular</span></div></td> <td width="81" bgcolor="#003366"><span class="style1">Total efetuadas</span></td> <td width="87" bgcolor="#003366"><div align="center"><span class="style1">Total recebidas </span></div></td> <td width="135">&nbsp;</td> </tr> </table> <% DO UNTIL rsCRJJ0421.EOF %> <table border="0" cellpadding="1" cellspacing="1" width="708"> <tr> <td width="51" > <div align="center"> <% = rsCRJJ0421.fields( "Ramal" ) %> </div></td> <td width="75" > <div align="center"> <% = rsCRJJ0421("totalEf") %> </div></td> <td width="93" ><div align="center"> <% = rsCRJJ0422( "totalEf1" ) %> </div></td> <td width="75" ><div align="center"> <% = rsCRJJ0423( "totalEf2" ) %> </div></td> <td width="85" ><div align="center"> <% = rsCRJJ0424( "totalEf3" ) %> </div></td> <td width="79" ><div align="center"> <% = rsCRJJ0425( "totalEf4" ) %> </div></td> <td width="89" ><div align="center"> <% = rsCRJJ0426( "totalEf5" ) %> </div></td> <td width="136" > <div align="center"> </div></td> </tr> </table> <% 'rsCRJJ042.MoveNext rsCRJJ0421.MoveNext rsCRJJ0422.MoveNext rsCRJJ0423.MoveNext rsCRJJ0424.MoveNext rsCRJJ0425.MoveNext rsCRJJ0426.MoveNext Loop 'RsCRJJ042.close RsCRJJ0421.close 'Set RsCRJJ042 = nothing Set RsCRJJ0421 = nothing %> </p> </p> <table width="600" border="0" cellspacing="1" cellpadding="1"> <tr> <td height="23"><hr align="left" width="600" color="#000000"></td> </tr> </table> <p>&nbsp;</p> </body> </html>
  9. shelter

    Erro Na Consulta

    uma questão postou shelter ASP

    Fala galera, na boa ... stou precisando de vc,s Tenho uma consulta que agrupa e COUNT duas tabelas, relacionas ( agrupadas pelo mesmo como de valores iguas ). Tabela Tabela Count 1 2 Ramal 101 Ramal 101 5 Ramal 103 Ramal 103 3 Ramal 104 Ramal 104 ( Não possui o Ramal 104 ) Então no caso de dar que no ramal 104 é = ( 0 ) , ela me dar o seguinte erro Tipo de erro: ADODB.Field (0x80020009) BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual. Valeu hein Galera Fuiiiiiiii
  10. shelter
    Então tipo como apresentar um resultado 1.000,00 ( sem o R$ ) agradeço
  11. shelter

    Tabelas

    uma questão postou shelter ASP

    Como faço para intercalar as cores de uma coluna... em uma consulta.. Ter uma linha cinza e outra cinza escuro ... Valeu
  12. shelter

    Conexão Db

    uma questão postou shelter ASP

    Tenho um DB em Access que tenho que exibilo... legal bem facil certo? Agora o mesmo esta aberto ( em uso por outro programa ) e agora .... quando chamo minha pagina ela da erro .... só funciona quando o MDB. esta fechado. alguém sabe como faço esta conexão ou melhor como não dar este erro... Agradeço
  13. shelter

    Txt

    pergunta respondeu ao shelter de shelter em ASP

    Não uma query quer dizer uma consulta .... ... mais tipo que exibir um arquivo txt que esta separado por , tendeu primo Valeu
  14. shelter

    Txt

    uma questão postou shelter ASP

    alguém sabe como efetuar uma query em um arquivo txt e exibi-los no asp. Agradeço
  15. shelter

    Publicar Site Intranet

    pergunta respondeu ao shelter de shelter em ASP

    valeu obrigado irmão
  16. shelter

    Avaliação

    um tópico no fórum respondeu shelter em Avaliações de Trabalhos

    Ficou bom ... mais tipo não vi os scripts .... VBS .... so tem HTML
  17. shelter

    Publicar Site Intranet

    pergunta respondeu ao shelter de shelter em ASP

    como falei tenho um servidor intranet ( não é a minha pagina ) que chamo tipo eu , e abre o sistema.... será que tem outra forma? pelo ip... consigo... com exeção do mozila..( firefox )... mais enfim não é o meu objetivo ... meu objetivo seria ... tipo eu e abre a minha aplicação...
  18. shelter

    Submit Sem Mudar De Pagina

    pergunta respondeu ao Henderson de shelter em ASP

    usa a função sub... vbs
  19. shelter

    Publicar Site Intranet

    pergunta respondeu ao shelter de shelter em ASP

    é logico , o iss esta instalado .... consigo na maquina local chamar a pagima ... mais nas estação do grupo de trabalho não consigo chama-las.. tendeu tipo no servidor chamo localhost/eu.asp ( funciona ) e nas estações ... como chamo.... aonde coloco o raiz ... para tipo na estaçõa chamar eu e a pagina aparecer ..
  20. shelter

    Publicar Site Intranet

    uma questão postou shelter ASP

    Fala amigos, tenho uma pagina em ASP que preciso publicar local ( em uma rede interna , intranet ) ... Há esqueci tenho em servidor XP onde esta a pagina ... Queria que os usuarios da rede tipo digita eu no explorer e abre a minha pagina... Agradeço....
  21. shelter

    Porcentagem

    uma questão postou shelter ASP

    Ola meus amigos ... tipo estou com uma baita duvida ( tipo não sei ) como fazer duas rotinas ... uma é tenho um campo e queria exibir com separdor de milhar tipo 1.000 16.000 entre outros... A outra rotina era calcular a porcentagem de um com .. tipo tenho um tota e tenho os setores que queria calcular a porcentagem de cada setor ... segue o codigo. <% Option Explicit %> <!--#Include file="conexao2.inc"--> <% DIM conexaodb, rsCRJJ04, strSQL, totalCat DIM rsRec, strRec, Rec DIM rsTotal, strTotal, Total Call abreConexao strSQL = " Select Ramal.grupo, COUNT (Ramal.grupo) AS totalCat " strSQL = strSQL & " From CRJJ04 , Ramal " strSQL = strSql & " WHERE CRJJ04.Origem=Ramal.Ramal " strSQL = strSql & " And tipo = 0 " strSQL = strSQL & " GROUP BY Ramal.Grupo " strSQL = strSQL & " ORDER BY 1 Asc " Set rsCRJJ04 = conexaodb.Execute(strSQL) strTotal = " SELECT Count ( tipo ) AS Total " strTotal = strTotal & " from CRJJ04 " strTotal = strTotal & " where tipo = 0; " Set rsTotal = conexaodb.Execute(strTotal) %> <html> <head> <title>Grupo</title> </head> <body> <h1 align="center">&nbsp;</h1> <h1 align="center">&nbsp;</h1> <h1 align="center"><font color="#000000" size="2" Font-size="8pt"><span style="font-weight: 400"><u>Total Efetuadas:</u></span></font><span style="font-weight: 400"><font color="#000000" size="2" face= "arial" Font-size="8pt"> <% = rsTotal("Total") %> </font> </span> </h1> <table width="208" align="center" cellpadding="0" cellspacing="0" bordercolor="#999999" bgcolor="#999999"> <% Do While Not RsCRJJ04.EOF %><font color="#FF0000"> </font> <tr> <td width="153" bordercolor="#999999" bgcolor="#FFFFFF"><div align="left"></div> <div align="right"><font size="2" Color="000000" face="tahoma"> <% = RsCRJJ04.Fields("Grupo") %></font><font size="2" Color="#FF0000" face="tahoma"> </font></div></td> <td width="80" bordercolor="#999999" bgcolor="#FFFFFF"><div align="right"><font size="2" color= "000000" face="tahoma"> <% = RsCRJJ04("totalCat") %></font><font size="2" color= "#FF0000" face="tahoma"> </font><b></div></td> </tr> <% RsCRJJ04.MoveNext Loop RsCRJJ04.close Call fechaconexao Set RsCRJJ04 = nothing %><font color="#FF0000"> </font> </table> </body> </html>
  22. shelter

    Query

    uma questão postou shelter ASP

    Fala galera na boa? alguém pode me dar uma ajuda? Veja bem tenho 02 bancos de dados tipo X e Y.... Preciso efetuar uma consulta, e que nessa consulta em consiga exibir os dados dos dois bancos na mesma tela ... Tenho um campo que tem os mesmo dados, campo origem...... ( IDCliente ) Hai tipo (idCliente) Tabela X = compras efetuadas na data que esta na tabela Y Agrupando... Acho até qe seria um bom papo para o forum... Meus bancos access Valeu agradeço.
  23. shelter

    Querystring

    uma questão postou shelter ASP

    Bom dia amigos preciso de uma ajuda, Tenho a seguinte pagina: Preciso criar uma nova pagina que capture o meu link e crie uma consulta em meu db . do tipo + ou - Select * tabelaxxxxx e que where fosse o link.... Agradeço aos amigos <% Option Explicit %> <!--#Include file="conexao2.inc"--> <% DIM conexaodb, rsGrupo_ramal, strSQL call abreConexao strSQL = " Select * from Grupo_ramal " strSQL = strSQL & " Order by Grupo " Set rsGrupo_ramal = conexaodb.Execute ( strSQL ) %> <html> <head> <body bgcolor="#ffffff"> <table width="191" border="0" cellpadding="0" cellspacing="0"> <% Do While Not RsGrupo_ramal.Eof %> <tr> <td width="316" height="18"><div align="center"></div> <div align="left"><a href="Sumario_dia_Setor_Centro1.asp?Setor=<% = rsGrupo_ramal.Fields("Grupo")%>"> <% = rsGrupo_ramal.Fields("Grupo") %> </a></div></td> </tr> <% RsGrupo_ramal.MoveNext Loop rsGrupo_Ramal.close Call fechaConexao Set rsGrupo_ramal = Nothing %> </table> <div align="center"></div> </body> </html>
  24. shelter

    Carregando

    pergunta respondeu ao shelter de shelter em ASP

    Não entendi? pode me responder mais detalhado.. por favor
  25. shelter

    Carregando

    uma questão postou shelter ASP

    Por favor ajudas. Tenho uma pagina en asp muito pesada ( gera uma consulta grande )... Assunto: Queria colocar uma mensagem ou gif. de carrendo enquanto a pagina carrega.... obrigado. shelter
×
×
  • Criar Novo...