Ir para conteúdo
Fórum Script Brasil

BurnOS

Membros
  • Total de itens

    34
  • Registro em

  • Última visita

Tudo que BurnOS postou

  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();
  14. Galera, esse código funciona de boa no IE... mas no Firefox, ele toma ação nenhuma, alguma idéia de como fazê-lo funcionar nos dois navegadores? <input name="btconsultar" type="button" class="stilo" id="btconsultar" value="Ok" onclick="btconsultar_onclick()" tabindex="2"> Vlewww Abraços
  15. eaew Realiza uma função por vez... Dim Fator fator = "0,0914" Dim Parcela parcela = "170,41" Dim Cob Cob = "9,00" Dim GD GD = (parcela - Cob) / Fator só que está exibindo o número inteiro, se arrumar pra exibir duas casas decimais, postaê... Abraços
  16. BurnOS

    Update

    Isso... aparece certinho... mas não puxa no select... vou tentar de novo jájá...
  17. BurnOS

    Update

    eaewwwwwwwwwwwwww vlewwwwwwww kuroi!!!!! Daqui a pouco vira adoção hein... hehehe ó... funfou beleza!!! usei a segunda opção, o input hidden com request.form... no segundo deixou dúvidas... estou colocando aqui só por curiosidade.. já que o primeiro funfou beleza... window.forBody.action = "DSP_CadVisitaMed.asp?Acao=Alterar"; window.forBody.submit(); a acao que o form realizará vem dessa função em javascript... consegui levar a string até o endereço assim: window.forBody.action = "DSP_CadVisitaMed.asp?Acao=Alterar&Visita=<%=Request.QueryString("Visita")%>"; window.forBody.submit(); Mas não consegui pegar de volta na hora de fazer o select... nem como request.form, nem como request.querystring... Abraços Vlewwwwwww Flowww
  18. BurnOS

    Update

    Então... quando eu entro na página pela primeira vez, o topo da página está assim... http://www.meusite.com.br/pagina.asp?Visita=123 depois, ele pega a ação... http://www.meusite.com.br/pagina.asp?Acao=Alterar dai eu não consigo manter a string para essa ação... funciona assim, depois de acessar os dados, eu altero o que quero alterar e beleza, quando clico no botão alterar, ele chama uma função para verificação dos campos, se tudo tiver ok, ele chama o case Alterar, que é onde tá o select, até ele vai normal, o que não vai é a string, não consigo fazer o selec do case alterar chamar a string da visita.... Vlewww Abraços...
  19. BurnOS

    Update

    Kuroi, entendi que está acontecendo o seguinte: UPDATE VisitasMedicas SET tipo = 'Relatorio' ,crm_medico = '36745' ,especialidade = 'CIR P' ,nome = 'MARIO FRANCISCO JORGE ALVES' ,endereco = 'AV. BELO HORIZONTE, 630 - ITU - SP' ,obs = 'Diz que receita pouco, apenas pós operatório, e passou nome de medicamentos de uso contínuo que compra em outra drogaria, porque recebe grande desconto. Vou retornar para ele com os valores.' ,situacao = 'EF' ,data = cast('2007-11-05' as datetime) WHERE territorio = '003' AND crm_medico='36745' AND codvisitas = '' (Essa informação apareceu depois que descomentei a linha Response.Write mstrSQL, ela aparece no topo página e embaixo aparece a página normal, se eu descomentar a linha debaixo, ele dá erro de ASP) (Maior cabeçada, só agora entendi que o response.write é pra mostrar na tela dados ele está pegando, mas foi muito útil pra ver que ele naõ está trazendo a string, que até então é o maior problema) Onde na última consulta, é uma variável setada como request.QueryString, e todas as outras são request.Form... Então no primeiro select da página, ele busca essa variável dá página anterior para trazer essas informações de acordo com o código da visita, mas na hora de alterar ele não traz o código da visita... O primeiro select funciona assim: mstrVisita = Request.QueryString("Visita") mstrSituacao = Request.Form("situacao") mstrTipo = Request.Form("tipo") mstrDia = Request.Form("dia") mstrMes = Request.Form("mes") mstrAno = Request.Form("ano") mstrCrmMedico = Request.Form("crm_medico") mstrEspecialidade = Request.Form("especialidade") mstrNome = Request.Form("nome") mstrEndereco = Request.Form("endereco") mstrObs = Request.Form("obs") if mstrVisita <> "" then mstrSQL = "SELECT TOP 1 * FROM VisitasMedicas" mstrSQL = mstrSQL & vbCrLf & "WHERE" mstrSQL = mstrSQL & vbCrLf & "codvisitas=" & mstrVisita Abraços
  20. BurnOS

    Update

    Só por curiosidade, tem alguma "maneira" de confirmar? De qualquer forma, está caindo sim, pois se na útima linha do comando SQL ao invés de colocar o campo "codvisitas", colocar o data, a alteração funciona, mas só altera a observação, e o que eu quero é alterar a data...
  21. BurnOS

    Update

    Galera, tenho o seguinte código na numa página: case "Alterar" mstrSQL = "UPDATE VisitasMedicas" mstrSQL = mstrSQL & vbCrLf & "SET " mstrSQL = mstrSQL & vbCrLf & "tipo = '" & mstrTipo & "'" mstrSQL = mstrSQL & vbCrLf & ",crm_medico = '" & mstrCrmMedico & "'" mstrSQL = mstrSQL & vbCrLf & ",especialidade = '" & mstrEspecialidade & "'" mstrSQL = mstrSQL & vbCrLf & ",nome = '" & mstrNome & "'" mstrSQL = mstrSQL & vbCrLf & ",endereco = '" & mstrEndereco & "'" mstrSQL = mstrSQL & vbCrLf & ",obs = '" & mstrObs & "'" mstrSQL = mstrSQL & vbCrLf & ",situacao = '" & mstrSituacao & "'" mstrSQL = mstrSQL & vbCrLf & ",data = cast('" & mstrAno & "-" & mstrMes & "-" & mstrDia & "' as datetime)" mstrSQL = mstrSQL & vbCrLf & "WHERE" mstrSQL = mstrSQL & vbCrLf & "territorio = '" & Session("codigo_brick1") & "'" mstrSQL = mstrSQL & vbCrLf & "AND crm_medico='" & mstrCrmMedico & "'" mstrSQL = mstrSQL & vbCrLf & "AND codvisitas = '" & mstrVisita & "'" ' Response.Write mstrSQL set mobjRegistros = mobjConexao.Execute(mstrSQL) O problema é que, ele não grava nada no banco... ele roda beleza, até escreve na tela uma confirmação se deseja ou não alterar os dados, mas depois quando faço uma consulta, não alterou nada... teve uma hora que alterou e em seguida não alterou mais, mesmo sem mexer no código... Vlewwww Abraços
  22. BurnOS

    Verificar Quantidade

    Desculpaê mas, como faço pra escrever esse resultado na tela?
  23. Galera, preciso fazer uma verificação no banco, de quantos registros tem no banco, de acordo com uma condição, por exemplo, tenho um campo território e 3 territórios, quando for territorio X contar a quantidade, enquanto menor que X, permitir inclusões, enquanto maior que X, permitir exclusões. A minha idéia é: select count(*) from table where column = 'X' dai como eu faço pra pegar o resultado? no select mesmo tem como colocar as condições ou é melhor fazer na programação? (ASP) Vleww Abraços
×
×
  • Criar Novo...