Ir para conteúdo
Fórum Script Brasil

Mestre Gabriel

Membros
  • Total de itens

    19
  • Registro em

  • Última visita

Tudo que Mestre Gabriel postou

  1. Bom dai pessoal, estou com um problema e preciso da ajuda de voces! Tenho que inserir um valor num campo do Tipo VARCHAR. O valor é no seguinte formato ##.##.## Onde obviamente terão numeros no lugar dos # ... O BD o que coloco depois do 2º ponto , alguém sabe a solução? Se eu tiro os 3 ultimos caracteres, ficando assim: ##.## ele aceita Erro: Microsoft OLE DB Provider for SQL Server error '80040e14' Incorrect syntax near '.40'. "tentei inserir 10.52.40"
  2. Olha, sou novato na área da programaçao, e com muita dificuldade fiz um sistema que simula um simples forum de discursao, onde é postado topicos e respostas aos topicos... Me perguntaram se o forum que fiz é Orientado a Objeto.. Fiz ele em ASP VBScript.. É orientado a objeto ?? grato
  3. Aparece sim... o erro é este: 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. /junior/SALDO/resultado.asp Acho que é porque ele não achou valor na consulta... Mas se eu tirar o laço "do while" ele acha os valores na consulta. O erro está no "do while" verifica aí fazendo favor.
  4. Mestre Gabriel

    Outro Do While

    É o seguinte, o erro que está faltando concertar está explicado logo abaixo do codigo: <%option explicit dim cf, m, a, sql, p cf = request.Form("codforn") m = request.Form("mês") a = request.Form("ano") p = 0 %> <!--#include file="../CONEXAO/conectar.asp" --> <% set sql = conexao.execute("SELECT * FROM Vendastb WHERE CodF = '"&cf&"' AND mês = '"&m&"' AND Ano = '"&a&"'") if sql.eof then session("msg") = "Nenhum Resultado Encontrado!" response.Redirect("pag2.asp") end if do while not sql.eof p = p + sql("Total") sql.MoveNext Loop %> Se eu tirar o laço do while e não calcular nada em "p" o codigo funciona, posso fazer qualquer consulta usando a variavel "sql" mas tá dando problema no calculo do p. Se eu mandar escrever apenas o sql("Total") ele coloca certinho... Mas como quero a soma dos totais ele não calcula.. Tenho um programa aqui que fiz algo identico e deu certo.. não to entendendo o erro agora. Dá uma luz aí pessoal... to quase terminando meu pro.. rsrs
  5. É o seguinte, concertei uma parte dos erros, o erro que está faltando concertar agora está explicado logo abaixo do codigo: <%option explicit dim cf, m, a, sql, p cf = request.Form("codforn") m = request.Form("mês") a = request.Form("ano") p = 0 %> <!--#include file="../CONEXAO/conectar.asp" --> <% set sql = conexao.execute("SELECT * FROM Vendastb WHERE CodF = '"&cf&"' AND mês = '"&m&"' AND Ano = '"&a&"'") if sql.eof then session("msg") = "Nenhum Resultado Encontrado!" response.Redirect("pag2.asp") end if do while not sql.eof p = p + sql("Total") sql.MoveNext Loop %> Se eu tirar o laço do while e não calcular nada em "p" o codigo funciona, posso fazer qualquer consulta usando a variavel "sql" mas tá dando problema no calculo do p. Se eu mandar escrever apenas o sql("Total") ele coloca certinho... Mas como quero a soma dos totais ele não calcula.. Tenho um programa aqui que fiz algo identico e deu certo.. não to entendendo o erro agora. Dá uma luz aí pessoal... to quase terminando meu pro.. rsrs
  6. Pessoal, boa tarde... Estou com um codigo aqui que devia estar funcionando, mas está dando erro, não consigo saber o porque do erro! Quando não acha nada no banco ele não retorna a session("msg") para a pagina pag2.aspO loop do while não funciona e já verifiquei os campos do BD e estao corretos, retirei o loop e testei o programa e ele rodou uma parte (só funciona para o mês de marçoDá o erro: BOF ou EOF são verdadeiros, ou o registro atual foi excluído. A operação solicitada pelo aplicativo requer um registro atual./junior/SALDO/resultado.asp MAS EXISTE RESULTADO PARA A CONSULTA NO BD o codigo é o seguinte: <%option explicit dim cf, m, a, sql, p cf = request.Form("codforn") m = request.Form("mês") a = request.Form("ano") p = 0 %> <!--#include file="../CONEXAO/conectar.asp" --> <% set sql = conexao.execute("SELECT * FROM Vendastb WHERE CodF = '"&cf&"' AND mês = '"&m&"' AND Ano = '"&a&"'") if sql.eof then session("msg") = "Nenhum Resultado Encontrado!" response.Redirect("pag2.asp") end if do while not sql.eof p = sql("Total") + p sql.MoveNext Loop %> Quem puder me ajudar, me ajude aí... abraço
  7. Eu iniciei a variável i = 1 Eu testei da maneira que voce fez também e deu certo. Mas quando eu tento fazer uma operação aritmetica com a variavel que e um campo do BD ele fala que é Tipos incompativeis. A variavel que é numerica e o campo sql("PrecoCX")) também é numerico. não to conseguindo achar. me ajuda aí. ____________________________________________________ aí irmao, já achei o erro, agora funcionou beleza, o erro estava na variavel 'i' . ela não devia existir. O valor do campo quant deve ser igual ao do campo codigo.. t+ Muito obrigado assim mesmo
  8. Pessoal, podem dar uma força aqui? É o seguinte, estou pegando os produtos que estão marcados pela check box num formulário e trazendo para uma outra pagina. Esse codigo funciona apenas para o 1º produto marcado no formulario anterioir, ou então se eu marcar todos. Se eu marcar apenas o produto 2 , ou o 3 ou o 4, ele dá erro. O erro que tá dando é o seguinte: Tipos incompatíveis: '[string: ""]' Mas não to achando essa incompatibilidade, pois estou fazendo aritmetica entre numeros... e acho que se o 1º funciona os outro também tinham que funcionar pois está dentro de um Laço FOR. Podem dar uma olhada? <%For Each check in request.Form("checar") que = request.Form(("quant"&i)) set sql = conexao.execute("SELECT * FROM VivaPapertb WHERE Codigo = '"&check&"'") %> <tr> <th scope="col"><input name="textfield8" type="text" size="5" value="<%response.write check%>"></th> <th scope="col"><input name="textfield9" type="text" value="<%response.write sql("Descricao")%>" size="50"></th> <th scope="col"><input name="textfield10" type="text" size="5" value="<%response.write que%>"></th> <th scope="col"><input name="textfield11" type="text" value="<%response.write sql("PrecoCX")%>" size="8"></th> <th scope="col"><input name="textfield12" type="text" size="8" value="<%response.write que * sql("PrecoCX")%>"></th> </tr> <% soma = soma + (que * sql("PrecoCX")) i = i + 1 next %> vlw aí... :D
  9. Esse contador que você coloca junto dos nomes seria algo desse tipo? dim i i = 1 <%do while not sql.eof%> <input name="codp" type="text" id="codp" value="<%response.write sql("Codigo")%>" size="5"> <input name="descp" type="text" id="descp" value="<%response.write sql("Descricao")%>" size="60"> <input name="quant" type="text" id="quant" size="5"> <input name="checar" type="checkbox" id="ck<%= i%>" value="sim"> (coloquei o contador aqui)
  10. Pessoal, to com uma duvida que to ate com medo aqui! hehe Olha, eu fiz uma consulta ao BD e o resultado da consulta gera uma página da seguinte maneira: Cod.Produto - Descrição - CheckBox ou seja, são listados vários produtos, e cada um vem com codigo, descriçõ e 1 check box na frente. Eu preciso assinalar os produtos que quero e inseri-los em uma outra Tabela de vendas. me dêem uma força aí! abraço ;)
  11. Obrigado pela atenção.. Mas é o seguinte. Como faço pra saber se o servidor SMTP esta funcionando na minha maquina ? hehe grato
  12. Galera, criei um formulario do tipo Fale Conosco no site da empresa que trabalho. Porem, não estou sabendo configurar corretamente a função phpmailer(). A pagina fica um tempo processando e depois da um timeout. Estou rodando o site em minha maquina local (localhost...) Pesquisei bastante mas mesmo assim não sanei meu problema. O codigo esta postado logo abaixo, alguém pode me ajudar? ficarei muito grato. <? require ("class.phpmailer.php"); $mail = new PHPMailer(); $mail->IsSMTP(); // send via SMTP $mail->Host = "localhost"; $mail->SMTPAuth = true; $mail->Username = "gabriel.esteves@uvv.br"; $mail->Password = "xxx"; // senha de SMTP (xxx proposital) $mail->From = "predestinado1@bol.com.br"; $mail->FromName = "gabriel"; $mail->WordWrap = 50; // Definição de quebra de linha $mail->IsHTML(true); // envio como HTML se ‘true’ $mail->Subject = "Contato pelo site"; $mail->Body = "TESTANDO 123"; if(!$mail->Send()){ echo "Mensagem não enviada"; echo "Mailer Error: " . $mail->ErrorInfo; } else { echo "Mensagem enviada"; } ?>
  13. Ainda não está no net. Estou rodando na maquina local. O código está aí embaixo. <body> <img src="../IMAGENS/OUTROS/Outros.jpg" width="837" height="468" border="0" align="left" usemap="#Map" /> <map name="Map" id="Map"> <area shape="rect" coords="18,120,261,152" href="../CONTRATO/Contrato.asp" alt="BUSCAR CONTRATO" /> <area shape="rect" coords="19,152,261,180" href="buscarordem.asp" alt="ORDEM DE SERVI&Ccedil;O" /> <area shape="rect" coords="20,184,261,214" href="cadastrarusuario.asp" alt="CADASTRAR NOVO USU&Aacute;RIO" /> <area shape="rect" coords="20,93,314,117" href="gerandoorcamento.asp"> <area shape="rect" coords="18,59,316,84" href="../MODELOPARAORÇAMENTO.xls" target="_blank"> </map> </body> O link que não abre é o do ultimo area shape... MODELOPARAORÇAMENTO.xls obrigado pela atençao. aguardo resposta.
  14. tem algo errado aí?? já viu isso antes?
  15. O não abre nenhuma página e nem gera erro. permanece na mesma pagina. O endereço está correto. Pois aqui na minha casa esta funcionando. O código é este. Uma figura que usei a ferramenta Hotspot. ajuda eu aí.rs <area shape="rect" coords="18,59,316,84" href="../MODELOPARAORÇAMENTO.xls" target="_blank">
  16. Mestre Gabriel

    Layout

    Cara, um layout pode ser feito de varias maneiras, vai depender da sua criatividade. não fala de criatividade em desenhar uma figura, e sim, em saber onde vai ser menu, onde vai ser a pagina principal, onde vai ser topo e onde vai ser rodapé... Eu sugiro que você crie uma imagem para cada uma das partes do layout do site. Voce também pode criar uma imagem só para tudo e depois exportar cada pedaço separadamente. Assim, sempre que voce quiser mudar seu menu, não precisará mexer nas outras partes. entendeu? :D
  17. Pessoal, desenvolvi um sistema ASP e numa parte dele existe um link que abre um arquivo do excel numa nova página. Aqui na minha casa está funcionando muito bem, porém, quando levei para o PC do meu cliente não quis abrir de maneira nenhuma. Preciso configurar alguma coisa no navegador dele para abrir este tipo de arquivo?? muito obrigado. t+
  18. Não era bem isso que eu estava precisando. Preciso usar lista encadeada e ler de arquivo. E outra, o strcmp não funcionou.. Estou com problemas nessa parte, onde ele compara a palavra que está na variavel lexema (contem a palavra "tesoura") com uma palavra da lista encadeada(tem uma ocorrencia de "tesoura" na lista encadeada). Ele está imprimindo não para todos os resultado e deveria imprimir sim para uma ocorrencia. não estou conseguindo implementar essa parte.. Ajuda eu aí. rs for (p > start; p != NULL; p = p->next){ // ANALISANDO ARQUIVOS DA LISTA ENCADEADA if(!strcmp(p->num,lexema)){ fprintf (sai, p->num); fprintf(sai,"SIM\n"); } else{ fprintf (sai, p->num); fprintf(sai,"não\n"); } } // FIM DA ANÁLISE
  19. Pessoal, preciso escrever um porgrama que leia strings d um arquivo e as coloca numa lista encadeada. Feito isso, o programa deve comparar cada uma das strings da lista encadeada e comparar com uma outra string chamada "palavra[100]". Depois que fizer a comparação deve ser gravado num arquivo saida.txt os dados da lista encadeados seguidos de SIM ou não. por exemplo: palavra[100] = "faculdade"; arquivo de entrada.txt é assim: faculdade escola professor arquivo de saida deve ser assim? faculdade SIM escola não professor não eu já fiz o codigo quase todo e só falta a parte de comparação (ultima parte). mas está dando tudo SIM. vejam o meu codigo. #include <stdlib.h> #include <stdio.h> #include <string.h> #define Null 0 int main(){ char lexema[100]; char x[100]; int i; struct node{ char num[100]; struct node *next; } *start, *p; start = NULL; FILE *entra; // PONTEIRO PARA O ARQUIVO ENTRADA.TXT FILE *sai; // PONTEIRO PARA O ARQUIVO SAIDA.TXT strcpy (lexema,"teste"); entra = fopen("entrada.txt","r"); // ABRINDO ARQUIVO ENTRADA.TXT // INSERINDO DADOS DO ARQUIVO NA LISTA ENCADEADA while (!feof(entra)){ fgets(x,100,entra); p = start; start = (struct node *)malloc(sizeof(struct node)); for(i=0;i<20;i++) start->num = x; start->next = p; } // TERMINO DA INSERÇÃO NA LISTA ENCADEADA. sai = fopen("saida.txt","w");// ABRINDO ARQUIVO SAIDA.TXT // PESQUISANDO NA LISTA ENCADEADA E GRAVANDO EM ARQUIVO DE SAÍDA printf("\n\nGerado arquivo de saida!\n\n"); for (p > start; p != NULL; p = p->next){ // ANALISANDO ARQUIVOS DA LISTA ENCADEADA if(strcmp(p->num,lexema)){ fprintf (sai, p->num); fprintf(sai,"SIM\n"); } else{ fprintf (sai, p->num); fprintf(sai,"não\n"); } } // FIM DA ANÁLISE system("PAUSE"); } me ajudem por favor
×
×
  • Criar Novo...