Ir para conteúdo
Fórum Script Brasil

BurnOS

Membros
  • Total de itens

    34
  • Registro em

  • Última visita

Sobre BurnOS

BurnOS's Achievements

0

Reputação

  1. BurnOS

    concatenar variáveis...

    Galera... se alguém puder tiver uma luz agradeço bastante... o que falta agora é fazer ele escrever o resultado dos campos "00_vendas" ou "00_visitas" na horizontal e não na vertical e escrever o nome da farmácia uma vez só, se ela aparecer na próxima tabela, só acrescentar os dados do mês referente... senão, manter o registro e deixar o mês em branco... Vlew
  2. BurnOS

    concatenar variáveis...

    Eaew... Olha só... hoje depois de uma manhã de testes realmente entendi o que está acontecendo... depois desse último código que você passou Kuroi, "funcionou"... Mas está fazendo assim a seleção completa linha por linha. Está escrevendo o resultado completo da consulta 12x na vertical... e não só os últimos campos na horizontal... Tem como com o Union All fazer depois da seleção ele mesclar ou não escrever os campos que foram iguais e só escrever várias vezes campos específicos? O RS estava com um for também, ele escreve as 12x na horizontal, mas só repete o resultado da tabela naquela linha, ai na linha de baixo escreve tudo de novo com o resultado da próxima tabela e o que preciso é escrever o resultado das 12 tabelas na horizontal... Vou postar o código atual completo... <% Option Explicit 'Declarando variáveis Dim cnct, rs, Qry, rsMes, QryMes, vztas, eqz, IIf, i 'Recebendo as variáveis eqz = request.QueryString("eqz") 'Criando conexão set cnct = Server.CreateObject("ADODB.Connection") 'Abrindo conexão no banco 'cnct.open("Driver={Microsoft Access Driver (*.mdb)}; DBQ=D:\webserver\S&F\Sequencia&Frequencia.mdb") cnct.open "DBQ=" & Server.MapPath("Sequencia&Frequencia.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}" 'Expressão SQL Qry = "" For i = 1 to 12 Qry = Qry & "Select * from SeqFreq_" & i & " Where eqz = '" & eqz & "' order by cnpjfarma" If i <> 12 then Qry = Qry & " UNION ALL " End If Next 'Executar a expressão SQL set rs = cnct.execute(Qry) %> <div align="center"> <a href="sf.asp">Sequência e Frequência - 2007</a><br><br> <% for i = 173301 to 173309 %> <a href="sf.asp?eqz=<%=i%>"><%=i%></a> <% next %> <br> <% for i = 273301 to 273307 %> <a href="sf.asp?eqz=<%=i%>"><%=i%></a> <% next %> <br> <% for i = 373301 to 373310 %> <a href="sf.asp?eqz=<%=i%>"><%=i%></a> <% Next %> <br> <% for i = 673301 to 673304 %> <a href="sf.asp?eqz=<%=i%>"><%=i%></a> <% Next 'Verificando se o banco não está vazio If eqz = "" then %> <p>Selecione um EQZ.<br> <% ElseIf rs.eof then %> <p>Não existem dados a serem listados<br> <% Else %> <p><table border=1 bordercolor="black"> <tr bgcolor="#FF8C8C"> <td>EQZ</td> <td>CNPJ</td> <td>Razão Social</td> <td>Categoria</td> <% for i = 1 to 12 %> <td><%=monthname(i)%></td> <% next %> </tr> <% dim cor cor = true do while not rs.eof cor = not cor if cor then %> <tr bgcolor="#CCCCCC"> <% else %> <tr><font> <% end if %> <td><%=rs("eqz")%></td> <td><%=rs("cnpjfarma")%></td> <td><%=rs("rsocialfarma")%></td> <td><%=rs("categoria")%></td> <% 'for i = 1 to 12 If rs("00_Vendas") <> "" then %> <td align="Center"><%=rs("00_Vendas")%></td> <% Elseif rs1("00_Visitas") <> "" then %> <td align="Center">XXX</td> <% Else %> <td align="Center">---&nbsp;</td> <% End If 'next %> </tr> <% rs.movenext loop %> </table> </div> <% End If rs.close cnct.close %>
  3. BurnOS

    concatenar variáveis...

    Então, se eu deixar com o UNION ALL dá erro... aqui está certo?: IIf(i <> 12, " UNION ALL ", "") É IIF mesmo??? Testei aqui, dá erro de "Tipo incompatíveis", com o código assim: Qry = "" For i = 1 to 12 Qry = "Select * from SeqFreq_"&i&" Where eqz = '"&eqz&"'" & IIf(i <> 12, " UNION ALL ", "") QryMes = "Select count(Vendas) from SeqFreq_11" next Mais uma coisa, procurando na web, li que pode ser alguma coisa relativa a campos nulos, e nessas tabelas tenho vários campos nulos... dai se for isso mesmo, se tem como tratar o erro ou só alterando no banco?...
  4. Galera... eaew, tudo bem? É o seguinte... Estou montando um relatório, e nele, preciso fazer uma seleção em várias tabelas, em um mesmo banco... A idéia é mais ou menos a seguinte: Qry = "Select * from SeqFreq_1 where eqz = '" & eqz & "'" Qry = "Select * from SeqFreq_2 where eqz = '" & eqz & "'" Qry = "Select * from SeqFreq_3 where eqz = '" & eqz & "'" Qry = "Select * from SeqFreq_4 where eqz = '" & eqz & "'" Qry = "Select * from SeqFreq_5 where eqz = '" & eqz & "'" Dai tentei fazer dessa forma: for i = 1 to 12 Qry & i = "Select * from SeqFreq_" & i & " where eqz = '" & eqz & "'" Bão... se eu deixar o "i" somente no nome da tabela, a expressão fica assim: Select * from SeqFreq_12 where... Com o "i" na frente da variável Qry, dá erro: Erro de sintaxe /denis/S&F/sf.asp, line 18, column 3 Qry&i = "Select * from SeqFreq_"& i &" where eqz = '" & eqz & "'" --^ vlew galera...
  5. eaew MrMalj, o campo é númerico, com relação ao conteúdo ou formato, não acredito ser o problema, já que se eu copiar a coluna exatamente e só mudar o nome de "00_Vendas" para "Vendas" a query funciona... Vlew
  6. Seguinte galera, estou tentando fazer o seguinte select: QryMes = "Select count(00_Vendas) from SeqFreq" Aparece o seguinte erro: Tipo de erro: Microsoft OLE DB Provider for ODBC Drivers (0x80040E14) [Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe na expressão de consulta 'count(00_Vendas)'. Mas qualquer outra coluna funciona, inclusive criei uma nova e colei os dados dessa e funciona normal: QryMes = "Select count(Vendas) from SeqFreq" Tenho outra coluna (00_Visitas) que também não funciona, alguém sabe como funcionar ou porque com o "00_" não funciona... Vlew
  7. Galera, preciso fazer um select em uma tabela com comparando um campo em outra, ex: select * from inclusao inner join cadastromedico on inclusao.crm_medico = cadastromedico.crm_medico Dai preciso pegar esse resultado e apagar, alguém tem uma idéia pra fazer isso numa query só? Tipo: delete from inclusao where crm_medico = (select * from inclusao inner join cadastromedico on inclusao.crm_medico = cadastromedico.crm_medico) Vlew
  8. BurnOS

    Consulta SQL

    Cara... tive uma idéia, a priore é uma gambi... mas depois vai pensando... Nessa tabela onde você registra a temperatura, coloca uma ID para cada registro, ai na hora de fazer o select, faz com um contador puxando o registro pelo ID e cada vez que for fazer o select fica ID+5...
  9. Ficou muito bacana mesmo!!!!! Até já estou mexendo um pouco... Mudei uma coisa, no onMouseOver, pra ficar sem cor de fundo, senão pode descaracterizar a página, dependendo da situação, por exemplo se o link estiver sobre um fundo degradê e só quisermos dar um destaque... ficou assim: function mudaMenuOff(){ document.getElementById(idMenu).style.backgroundColor = ""; idMenu = ""; clearTimeout(timer); } E uma coisa que achei interessante pra complementar a sugestão do Kakarotto é ao invés de usar RGB, fazer por referência haxedecimal, nesse link tem uma Tabela de cores completinha, já ficam umas opções pré-definidas, pois por RGB são enézimas combinações... :P Vlew Abraços Flow
  10. Vlew galera!!! Flavio e Cassiano, das dua maneiras funcionou, vou ficar com a opção do flávio por que terei de alterar vários arquivos. ficou assim: function btconsultar_onclick() { if (document.forBody.dia.value == '') { alert('Forneça o dia!'); document.forBody.dia.focus(); return false; } if (document.forBody.mes.value == '') { alert('Forneça o mês!'); document.forBody.mes.focus(); return false; } if (document.forBody.ano.value == '') { alert('Forneça o ano!'); document.forBody.ano.focus(); return false; } if (document.forBody.cnpj_farmacia.value == '') { alert('Forneça o CNPJ da Farmácia!'); document.forBody.cnpj_farmacia.focus(); return false; } document.forBody.Acao.value = "Pesquisar"; document.forBody.action = "MC_CadVisitaFarm.asp";//?Acao=Pesquisar"; document.forBody.submit(); } Abraços
  11. BurnOS

    Form, aque acontece

    Cara... tá meio bagunçado issoê... ou você abre o banco com uma variável, ou abre um rs, ou cria um objeto... dá uma organizada... ***Set bd = Server.CreateObject("ADODB.connection") ***set rs=Server.CreateObject("adodb.connection") ***bd.open "driver={Microsoft Access Driver(*.mdb)};dbq=c:\inetpub\wwwroot\caramba.mdb" ***rs.open "Stabela", bd,1,3 Depois postaê o resultado... Abraço
  12. Cara... alterei mas não funfou... nem deu sinal... Tá fechada a função, só esqueci de colocar no post... :P ficou assim: <script ID=clientEventHandlersJS LANGUAGE=javascript> <!-- function btconsultar_onclick() { if (document.getElementbyId('dia').value == '') { alert('Forneça o dia!'); document.getElementbyId('dia').focus(); return; } if (document.getElementbyId('mes').value == '') { alert('Forneça o mês!'); document.getElementbyId('mes').focus(); return; } if document.getElementbyId('ano').value == '') { alert('Forneça o ano!'); document.getElementbyId('ano').focus(); return; } if (document.getElementbyId('cnpj_farmacia').value == '') { alert('Forneça o CNPJ da Farmácia!'); document.getElementbyId('cnpj_farmacia').focus(); return; } window.forbody.Acao.value = "Pesquisar"; window.forBody.action = "MC_CadVisitaFarm.asp";//?Acao=Pesquisar"; window.forBody.submit(); }
  13. Bareta, não entendi direito onde substituir, dá uma olhada na função... <script ID=clientEventHandlersJS LANGUAGE=javascript> <!-- function btconsultar_onclick() { if (window.forBody.dia.value == '') { alert('Forneça o dia!'); window.forBody.dia.focus(); return; } if (window.forBody.mes.value == '') { alert('Forneça o mês!'); window.forBody.mes.focus(); return; } if (window.forBody.ano.value == '') { alert('Forneça o ano!'); window.forBody.ano.focus(); return; } if (window.forBody.cnpj_farmacia.value == '') { alert('Forneça o CNPJ da Farmácia!'); window.forBody.cnpj_farmacia.focus(); return; } window.forBody.Acao.value = "Pesquisar"; window.forBody.action = "MC_CadVisitaFarm.asp";//?Acao=Pesquisar"; window.forBody.submit();
×
×
  • Criar Novo...