Fabiano Furquim

Valeu Jhonas. Vou Testar e Retorno com o resultado... Desde já Obrigado!

Boa Tarde a Todos. Estou desenvolvendo um programa para uma amiga e estou com o seguinte problema. Preciso criar uma cadastro que dependendo o tipo de cadastro escolhido faça um tipo de cadastramento diferenciado, por exemplo: A escola na qual ela trabalha tem 3 tipos de matriculas: Matricula com ResponsávelMatricula com Empresa como ResponsávelMatricula para aluno = ResponsávelDeste modo quando seleciono, por exemplo seleciono a Matricula com responsável, preciso inserir as informações na tabela de Aluno, Tabela Responsável e também gerar uma qtde de parcelas a serem pagas na tabela de pagamento. Também há a necessidade de vincular o aluno ao Responsável, seja ele qual for. Meu problema é o segunte: Não estou conseguindo inserir todas as informações ao mesmo tempo em todas as tabelas. As informações são inseridas após o operador clicar no botão salvar. Estou utilizando o banco de Dados Interbase, e os componentes da paleta interbase (IBDataSet, IBTransaction, IBDataBase) Gostaria que alguém pudesse me ajudar! Desde Já agradeço pela atenção de Todos. Obrigado.

Fala Galera consegui Resolver o Problema... Estava faltando um Post na instrução.... Agradeço a todos Até +

Fala Galera.... Consegui implementar.....de certa forma, o que está acontecendo é que as informação não estão sendo gravadas no banco... Segue o código que estou utilizando para gravação no banco. DM.IBDS_Presenca.Append; DM.IBDS_Presenca.FieldByName('Data').AsString := Label5.Caption; //Contém a Data Atual do Sistema DM.IBDS_Presenca.FieldByName('HORA').AsString := TimeToStr(PROVISORIA); DM.IBDS_Presenca.FieldByName('ALUNO').AsInteger := DM.Qry_Aluno.FieldByName('RA_Aluno').AsInteger; DM.IBDS_Presenca.FieldByName('DIA_SEMANA').AsString := Label4.Caption; //Contém o dia da Semana DM.IBDS_Presenca.FieldByName('Aula1').AsString := 'C'; DM.IBDS_Presenca.FieldByName('Aula2').AsString := 'C'; DM.IBDS_Presenca.FieldByName('Aula3').AsString := 'C'; DM.IBDS_Presenca.FieldByName('Aula4').AsString := 'C'; DM.IBDS_Presenca.FieldByName('Aula5').AsString := 'C'; DM.IBDS_Presenca.FieldByName('Aula6').AsString := 'C'; DM.IBDS_Presenca.FieldByName('Aula7').AsString := 'C'; DM.IBDS_Presenca.FieldByName('ENTRADA').AsString := 'A'; DM.IBDS_Presenca.Transaction.CommitRetaining; A Tabela Presença é composta ainda por um campo autoIncremento chamado codigo_grl, o qual não esta incluso no código acima, ela também contém um campo chamado Saída o qual é String, para esse campo é permitido nulo Se alguém puder me ajudar fico Grato.. Abraço a Todos...

Boa Tarde a todos... Estou tentando fazer um implementação em uma tabela de meu banco de dados via programação. Na verdade essa tabela so será implementada por programação ela não terá nem uma tela vinculada à ela, só não sei como realizar esse processo. Estou utilizando Delphi 7, Firebird 2 e os componentes da Paleta Interbase, Estou tentando fazer essa implementação através do componente IBDataSet. Se alguém puder me dar uma luz, fico agradecido. Um Gde Abraço a Todos e Obrigado

Bom Dia Micheus. Obrigado pela Dicas elas serão muito utéis... Quanto as Procedure, estava pensando em utiliza-las pois na verdade não é apenas uma simples consulta. Após a consulta realizada tenho de verificar o horário de entrada do aluno para comparar com a horário cadastrado para o curso, para depois poder registrar a presença do aluno nas aulas, então como você supos estou trabalhando com varias tabelas. Mas no momento as informações que já foram passadas vão servir de base para o desenvolvimento do restante da "rotina" de entrada dos aluno. Agradeço a Todos q me ajudaram com essa dúvida... Abraço a todos. Obrigado :D

Valeu Jhonas... Vou dar uma olhada Obrigado.. Abraço

Bom dia ROGÉRIO BOTELHO. A pouco tempo estava com o mesmo problema q você e fiz um tópico com a mesma dúvida, porem ela era um pouco diferente. Tópico no Site: Problema para Visualizar Imagem do Bco de Dados Dá uma olhada no tópico e vê se pode te ajudar... Qualquer coisa é só falar Abraço

Bom dia Micheus.... Eu estava pensando em pegar as informações encontradas pelo select e jogar cada uma em uma variável, mais ou menos assim: Supondo q minha tabela tivesse esses campos: Codigo, RA_Aluno, Nome, Curso, Periodo, Semestre, Matricula, Gostaria de pegar alguns desses campos e passa-los para variáveis + ou - assim var_curso := 'select curso from ALUNO where Ra_aluno = :edit1.text' , sei q esse comando não esta bem estruturado mais é só pra dar uma idéia do q eu estava querendo dizer com trazer para variáveis Estive pensando em fazer essas verificações através de uma Store Procedure, porém não sei trabalhar com esse procedimento, já não programava a + de 10 anos, estou bem desatualizado, precisando me reciclar. Se você tiver algum material de como estruturar uma Store Procedure e como utiliza-la no Delphi ficarei agradecido. Obrigado pela Resposta e Tenha um bom dia.

Boa Tarde a todos. Estou com um problema o qual não consegui resolver. Estou desenvolvendo o sistema de uma escola técnica, que trabalha com ensino médio também. Essa escola registra a presença dos alunos quando ele entram na escola atraves de leitura da digital do aluno. Esse também é um problema que tenho que resolver, mais esse fica para uma outra hora, no momento preciso resolver o seguinte: 1. verificar se o código do aluno que esta entrando existe no sistema 2. Se existir tenho de busca a foto e exibir. 3. Verificar o período que o aluno estuda para saber se ele pode entrar ou não. 4. Verificar se ele esta matriculado 5. Verificar o curso que o aluno esta fazendo 6. verificar o módulo que o aluno esta... e assim por diante... estava tentando utilizar um select para chegar a essas informações no banco de dados, porém me surgiu uma dúvida... Como jogar essas informações para variáveis para q depois eu possa fazer todas essas verificações??? Com isso estou com o desenvolvimento do sistema parado até resolver esse problema, será q alguém teria alguma outra ou outras soluções para esse problema? Estou utilizando Delphi7 e Banco de Dados FireBird 2, com conexão ao banco com os componentes da paleta interbase. Desde já agradeço a todos pelas dicas e peça atenção. Até mais

Fala Galera .... Consegui resolver o problema.... O problema estava na hora da Atualização... eu esta atualizando o código também, o que eu não preciso fazer, já que no caso eu queria apenas acrescentar a imagem... Segue o Código corrigido, caso alguém precise... procedure TForm1.BitBtn1Click(Sender: TObject); var m: TIBQuery; begin m:= TIBQuery.Create(Self); m.DataBase := DM.IBDatabase1; m.Transaction := DM.IBDatabase1.DefaultTransaction; //Inicio Brincadeira m.SQL.Clear; m.SQL.Add('UPDATE TBLFOTO'); m.SQL.Add('SET FOTO= :FOTO'); // aqui foi retirado a atualização do código m.SQL.Add('WHERE CODIGO=:COD'); // e foi mantida a atualização da Foto try M.ParamByName('COD').AsInteger := STRTOINT(EDIT1.Text); b:=TMemoryStream.Create; image1.Picture.Graphic.SaveToStream(b); m.ParamByName('FOTO').LoadFromStream(b,ftBlob); m.ExecSQL; Application.MessageBox('Foto Carregada com Sucesso!','Sucesso :'); except on e:exception do begin Application.MessageBox(Pchar(e.Message), 'Erro ao Atualizar dados :'); b.Destroy; m.Free; Exit; end; end; b.Destroy; m.Free; end;

Bom dia a todos. Estou com um problema o qual não consegui chegar a uma solução, Utilizo o Delphi 7 e bco de dados Firebird 2. Estou carregando imagens no minha tabela de dados chamada TBLFOTO, q é composto de 2 campos(Codigo tipo integer e FOTO do tipo Blob), uso essa tabela apenas para as imagens já q são poucas, elas são carregadas sem nenhum problema, mas quando tento visualiza-las, consigo apenas visualizar a última imagem q inclui no baco. Não sei onde posso estar errando, se alguém puder me auxiliar, fico agradecido. OBS.: Estou carregando imagens do tipo JPEG. Segue abaixo os Códigos pra Gravar e Visualizar as Imagens Codigo Para Carregar procedure TForm1.BitBtn2Click(Sender: TObject); //Utilizo esse procedimento para carregar uma imagem no Timage begin OpenPictureDialog1.Execute; If OpenPictureDialog1.FileName <> '' Then begin Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName); end; end; procedure TForm1.BitBtn1Click(Sender: TObject); // Aki carrego as imagens no Bco, na verdade faço um update na tabela var m: TIBQuery; begin m:= TIBQuery.Create(Self); m.DataBase := DM.IBDatabase1; m.Transaction := DM.IBDatabase1.DefaultTransaction; //Inicio Brincadeira m.SQL.Clear; m.SQL.Add('UPDATE TBLFOTO'); m.SQL.Add('SET CODIGO= :COD,'); m.SQL.Add('FOTO= :FOTO'); m.SQL.Add('WHERE CODIGO=:COD'); try M.ParamByName('COD').AsInteger := STRTOINT(EDIT1.Text); b:=TMemoryStream.Create; image1.Picture.Graphic.SaveToStream(b); m.ParamByName('FOTO').LoadFromStream(b,ftBlob); m.ExecSQL; Application.MessageBox('Foto Carregada com Sucesso!','Sucesso :'); except on e:exception do begin Application.MessageBox(Pchar(e.Message), 'Erro ao Atualizar dados :'); b.Destroy; m.Free; Exit; end; end; b.Destroy; m.Free; end; Codigo para recuperar a imagem da Tabela procedure TForm2.Button1Click(Sender: TObject); var m : TIBQuery; b : TStream; J : TJPEGImage; begin J := Nil; m:= TIBQuery.Create(Self); m.Database := DM.IBDatabase1; m.Transaction := DM.IBDatabase1.DefaultTransaction; m.SQL.Clear; m.SQL.Add('SELECT foto FROM TBLFOTO'); m.SQL.Add('WHERE codigo= :cod'); try m.ParamByName('cod').AsInteger := strtoint(edit1.Text); m.Open; except on e:exception do begin Application.MessageBox(Pchar(e.Message),'Erro ao Buscar foto'); exit; end; end; b:= m.CreateBlobStream(m.FieldByName('FOTO'),bmRead); if b.Size > 0 then begin try J := TJPEGImage.Create; J.LoadFromStream(b); Image1.Picture.Assign(J); except end; end else begin Image1.Picture.Assign(nil); end; j.Free; b.Destroy; m.Free; end; Não esquecendo q declarei nas clausula use a unit JPEG Desde já agradeço pela atenção e ajuda de Todos

Obrigado pela ajuda.... Com sua dica consegui resolver o problema..... E vou perquisar sobre o like muito obrigado abraços

Entendi Micheus.. será q você poderia me dar um exemplo de como ficaria essa consulta com a clausula LIKE, dessa maneira poderia deixar a busca mais aprimorada.... Desde já agradeço pela dica.... Vou fazer as alterações e ver o q acontece.... Obrigado e até mais

Bom Dia a todos. Estou com o seguinte erro na minha consulta. Exception class EConvertError with Message Is not valid integer value. Sei que é um erro por causa do tipo de dados. O que esta ocorrendo: Tenho um formulário de busca, que a mesma pode ser feita tanto pelo código do aluno, como também pode ser feita pelo nome. O que ocorre é que eu consigo fazer a primeira busca pelo código, mas, quando tento realizar uma nova busca ele apresenta essa mensagem de erro. E tanto faz se a nova busca é por nome ou por código, ele sempre mostra a mensagem. Estou usando os componetes de conexão Zeos(zConection e Zquery), e a consulta é feita pelo onchange dos edit's. Segue código das consulta. consulta por código procedure TForm1.Edit1Change(Sender: TObject); var aluno : integer; begin //Variável que recebe o valor do edit1 e transforma em número inteiro Aluno := strtoint(Edit1.Text); // Desativa a query Zquery.Active := false; // Limpa o atual SQL da query Zquery.SQL.Clear; // Adiciona o SQL para busca do Aluno Zquery.SQL.Append('SELECT ALUNO FROM OCORRENCIA WHERE ALUNO = :Aluno'); // Define o parametro "Aluno" como sendo o Inteiro Zquery.ParamByName('Aluno').AsInteger:=Aluno; // Abre(executa) a busca Zquery.Open; end; Consulta por Nome procedure TForm1.Edit2Change(Sender: TObject); var nome : string; begin nome := edit2.Text; // Desativa a query Zquery.Active := false; // Limpa o atual SQL da query Zquery.SQL.Clear; // Adiciona o SQL para busca do usuario Zquery.SQL.Append('SELECT NOME FROM OCORRENCIA WHERE NOME = :Nome'); // Define o parametro "Nome" como sendo o Texto do Edit2 Zquery.ParamByName('Nome').AsString := nome; // Abre(executa) a busca Zquery.Open; end; Ainda quando troco o foco dos edit's ele limpa o edit anterior, ou seja foco no edit1 (edit2.text:=''), foco no edit2(edit1.text:='') Se alguém tiver uma outra solução, agradeço. Desde já agradeço pela ajuda de todos Fabiano Furquim

Entendi... Obrigado Jhonas.....foi de grande ajuda.... Consegui reslver o problema com esssa dica... Sucesso a todos

Boa Tarde a todos. Estou desenvolvendo um sistema para o Colégio onde trabalho, q tem um cadastro de ocorrências(falta de documentos, advertências,etc), que tem varias formas de serem exibidas. O que estou precisando fazer é o seguinte; um tela de gerenciamento de ocorrências, onde será exibido um dbgrid com todas as ocorrências cadastradas. Até ai td bem, preciso tb de 2 formas de presquisa: uma por código do aluno e outra pelo nome. O q não estou conseguindo implementar é exatamente essa consulta, a qual após ser realizada o resultado deve aparecer no lugar de todas as ocorrências. Estou trabalhando com Interbase, e utilizo os componetes da guia interbase no Delphi. Estou trabalhando com um Datamodulo com IDataBase, IBTransaction e IBDataSet. A tabela Ocorrência tem a seguinte estrutura. /* Table: OCORRENCIA, Owner: SYSDBA */ CREATE TABLE "OCORRENCIA" ( "CODIGO" INTEGER NOT NULL, "ALUNO" INTEGER NOT NULL, "TP_OCOR" INTEGER NOT NULL, "COMENTARIO" VARCHAR(30) NOT NULL, "OBSERVACAO" VARCHAR(200), "LANCAM" DATE NOT NULL, "DT_INICIAL" DATE NOT NULL, "DT_FIM" DATE NOT NULL, "NOME" VARCHAR(50), PRIMARY KEY ("CODIGO") ); Se alguém puder me ajudar ficarei grato. PS.: pesquisei no site, porém não achei algo relacionado a isso.

Valeu ESerra!!!! Consegui resolver da seguinte maneira: <?php if($_POST["Submit"]){ // nome do botão que faz o submit no formulário if(sizeof($HTTP_POST_VARS)) { $para = "furka.house@gmail.com"; // e-mail de destino $assunto = "Inscrição !"; // assunto aqui $ip = getenv("REMOTE_ADDR"); $texto = "Mensagem enviada pelo IP: $ip \n"; //troquei o <br> por \n while(list($key, $val) = each($HTTP_POST_VARS)) { if(($key <> 'assunto')) $texto.= "$key : $val \n"; } $headers = "MIME-Version: 1.0\r\n". "Content-type: text/html; charset=iso-8859-1\r\n". "From: \"Inscrição\" <".$para.">\r\n". "To: \"Client\" <".$para.">\r\n". "Date: ".date("r")."\r\n". "Subject: ".$assunto."\r\n"; $envia = @mail($para,$assunto,$texto,$headers); header("Location: insc_obrig.php"); } } ?> Sei que não é a solução ideal, mas como estou com um prazo muito curto essa alteração vai servir... Agradeço pela ajuda de todos. Estou com um outro problema... Estou recebendo a mensagem 2 vezes.... o q pode estar ocorrendo?

Fala LordSpawn, tudo joia.... Amigo o envio foi feito numa boa porém o resultado dentro do e-mail foi esse: Subject: Inscrição ! Mensagem enviada pelo IP: 200.207.4.41<br><br><b>txtnome</b> : Fabiano<br><br><b>txtrg</b> : Fabiano<br><br><b>txtdatnas</b> : Fabiano<br><br><b>textend</b> : Fabiano<br><br><b>textnum</b> : Fabiano<br><br><b>textbairro</b> : Fabiano<br><br><b>textcep</b> : Fabiano<br><br><b>textcidade</b> : Fabiano<br><br><b>textfone</b> : Fabiano<br><br><b>txtmail</b> : Fabiano<br><br><b>txtescola</b> : Fabiano<br><br><b>radiobutton</b> : tecnico<br><br><b>select</b> : 2<br><br><b>select2</b> : 0<br><br><b>Submit</b> : Enviar<br><br> era pra ficar assim mesmo? Mesmo assim agradeço pela sua ajuda, o q você postou resolveu meu problema, agora é só ter paciencia e ajeitar a visualização no e-mail... Novemante Obrigado

Boa tarde a todos... Estou tentando fazer um formulário de inscrição para concurso de bolsa de estudos, porém estou com certa dificuldade. O formulário para isso esta pronto, porem não esta enviando nenhuma informação para o php, onde, vou redirecionar essas informações para um email. Seguem os código. Formulário <form action="inscricao.php" method="post"> <table width="666" border="1" cellspacing="1" bordercolor="#000000"> <tr> <td width="124" align="right" nowrap><span class="style6">Nome: </span></td> <td colspan="6"> <input type="text" name="txtnome" width="250" size="100"></td> </tr> <tr> <td align="right" nowrap width="124"><span class="style6"> R.G</span></td> <td colspan="2"> <input name="txtrg" type="text" width="250" size="48"></td> <td colspan="2" class="style6" align="right" nowrap>Data Nasc: </td> <td colspan="2"> <input name="txtdatnas" type="text" width="180" size="28"></td> </tr> <tr> <td align="right" nowrap width="124"><span class="style6">Endereço</span></td> <td colspan="4"> <input name="textend" type="text" width="250" size="72"></td> <td width="70" class="style6" align="right">Nº</td> <td width="90" nowrap><label><span class="style3"> <input name="textnum" type="text" size="15"> </span></label></td> </tr> <tr> <td align="right" nowrap width="124"><span class="style6">Bairro:</span></td> <td width="202"><span class="style3"> <input name="textbairro" type="text" size="37"> </span></td> <td width="48" align="right"><span class="style6">CEP:</span></td> <td colspan="2"><label> <input name="textcep" type="text"> </label></td> <td align="right" width="70"><span class="style6">Cidade</span>:</td> <td width="90" nowrap><label><span class="style1"> <input name="textcidade" type="text" size="15"> </span></label></td> </tr> <tr> <td align="right" nowrap width="124"><span class="style6">Fone</span></td> <td colspan="2"><label> <input name="textfone" type="text" size="37" > </label></td> <td colspan="2" class="style6" align="right">e-mail</td> <td colspan="2"><label> <input name="txtmail" type="text" size="28"> </label></td> </tr> <tr> <td align="right" nowrap width="124"><span class="style6">Escola que estudo (ou)</span></td> <td colspan="6"><label> <input name="txtescola" type="text" size="100"> </label> </td> </tr> <tr> <td colspan="7" align="center" nowrap>Curso Desejado </td> </tr> <tr> <td align="right" nowrap width="124">Ensino Médio </td> <td colspan="6"><label> <input name="radiobutton" type="radio" value="medio" checked> </label></td> </tr> <tr> <td align="right" nowrap width="124">Ensino Técnico </td> <td width="202"><label> <input name="radiobutton" type="radio" value="tecnico"> </label></td> <td align="right" width="48">Curso:</td> <td colspan="4"><label> <select name="select" size="1"> <option value="0" selected>Eletrônica</option> <option value="1">Informática</option> <option value="2">Mecânica</option> <option value="3">Mecatrônica</option> </select> </label></td> </tr> <tr> <td align="right" width="124">Médio + Técnico </td> <td width="202"><label> <input name="radiobutton" type="radio" value="medio_tecnico"> </label></td> <td align="right" width="48">Curso:</td> <td colspan="4"><label> <select name="select2"> <option value="0">Eletrônica</option> <option value="1">Informática</option> <option value="2">Mecânica</option> <option value="3" selected>Mecatrônica</option> </select> </label></td> </tr> </table> <p> <input type="submit" name="Submit" value="Enviar"> <label></label> <label> <input name="limpar" type="reset" id="limpar" value="Limpar"> </label></p> </form> Código do php para enviar o e-mail <? if (!$_POST){ }else{ $redirecionar="obrigado.html"; $corpo="Nome:".$_POST["txtnome"]. "\n"; $corpo.="R.G:" .$_POST["txtrg"]. "\n"; $corpo.="Data Nascimento:".$_POST["txtdatnas"]. "\n"; $corpo.="Endereço:".$_POST["txtend"].; $corpo.="Número:" .$_POST["textnum"]. "\n"; $corpo.="Bairro:" .$_POST["textbairro"]. "\n"; $corpo.="CEP:" .$_POST["textcep"]. "\n"; $corpo.="Cidade:" .$_POST["textcidade"]. "\n"; $corpo.="Telefone:" .$_POST["textfone"]. "\n"; $corpo.="E-mail:" .$_POST["txtmail"]. "\n"; $corpo.="Escola:" .$_POST["txtescola"]. "\n"; $corpo.="Medio:" .$_POST["radiobutton"]. "\n"; $corpo.="Tecnico:" .$_POST["select"]. "\n"; $corpo.="Medio e Tecnico:" .$_POST["select2"]. "\n"; header("Location: $redirecionar"); mail("fabiano_colduque@hotmail.com","Inscrição",$corpo); }*/ ?> Se alguém tiver uma outra solução pro meu problema ficarei grado.... Toda a ajuda é bem vinda.... Desde já agradeço a todos pela ajuda

Bom dia a todos... Encontrei aki mesmo no site do scriptBrasil um código de um sistema de estatistica, porém o mesmo não esta funcionando corretamente, (após serem feitas as alterações do banco de dados, usuário e senha). ele retorna sempre a mensagem q não estou conectado ao bco de dados. Porém as informações para conexão estão corretas... Será que alguém pode me ajudar com esse código, já procurei o erro mas não encontrei... Estou utilizando esse sistema somente na minha página principal, e como o autor do código disse acrescentei um include na página inicial, mas não esta funcionando... Segue o código do sistema... Contar.php <?php /* update 2003-03-02 by Calvin */ error_reporting(E_ERROR | E_WARNING | E_PARSE); $sqldebug = false; $conx = mysql_connect("localhost","root","") or die("Não conectado"); mysql_select_db("bduser",$conx) or die("Não selecionado"); $hoje = getdate(); $dia = $hoje['wday']+1; $hora = $hoje['hours']+1; $sql = "UPDATE contar SET diav20=diav20+1, ds$dia=ds$dia+1, hr$hora=hr$hora+1 WHERE id='conta' "; if($sqldebug) echo $sql.'<hr>'; mysql_query($sql); $sql = "SELECT * FROM contar WHERE id='conta' "; if($sqldebug) echo $sql.'<hr>'; $resultado = mysql_query($sql); $hoje2 = mysql_fetch_array($resultado); $diaano=$hoje2[32]; $diaano2=$hoje['yday']; if ($diaano2>$diaano || $diaano2==1) { $sql = "UPDATE contar SET ndias=ndias+1, hj=$diaano2 WHERE id='conta' "; if($sqldebug) echo $sql.'<hr>'; mysql_query($sql); for($i=1; $i<20; $i++) { $i2= $i+1; $sql = "UPDATE contar SET dian$i=dian$i2, diav$i=diav$i2 WHERE id='conta' "; if($sqldebug) echo $sql.'<hr>'; mysql_query($sql); } $sql = "UPDATE contar SET diav20=0, dian20=date_format(now(),'%d/%m/%Y') WHERE id='conta' "; if($sqldebug) echo $sql.'<hr>'; mysql_query($sql); } $sql = "SELECT * FROM contar WHERE id='conta' "; if($sqldebug) echo $sql.'<hr>'; $resultado = mysql_query($sql); $maior = mysql_fetch_array($resultado); if ($maior[74]<$maior[72]) { $sql = "UPDATE contar SET maiordian=date_format(now(),'%d/%m/%Y'), maiordiav=$maior[72] WHERE id='conta' "; if($sqldebug) echo $sql.'<hr>'; mysql_query($sql); } ?> O cógigo acima server pra armazenar as informações no bco de dados e esta funcio nando perfeitamente O trecho abaixo faz parte da pagina de exibição do conteúdo do bco de dados das estatistica e é a parte q não esta funcionando. Obs.: Só vou postar a parte que não esta funcionando pois o código total é muito extenso. <?php error_reporting(e_error | e_warning | e_parse); $sqldebug = false; $conx = mysql_connect("localhost","root","")or die("Impossível conectar"); $base = mysql_select_db("bduser",$conx) or die("não selecionado"); $sql = "SELECT * FROM contar WHERE id='conta' "; if($sqldebug) echo $sql.'<hr>'; $resultado = mysql_query($sql); $dia = mysql_fetch_array($resultado); $maior=0; for($i=1;$i<8;$i++) { if ($dia[$i]>$maior) { $maior=$dia[$i]; } } $total=$dia[1]+$dia[2]+$dia[3]+$dia[4]+$dia[5]+$dia[6]+$dia[7]; $media=intval($total/$dia[75]); ?> Se alguém puder me ajudar fico Agradecido..... Obrigado a Todos Fala Galera!!!! Consegui Resolver... Fala Galera!!!! Consegui Resolver...

Eserra, consegui resolver o problema como o manual...foi até simples de resolver... Foi fácil entender o conceito e resolver o problema... muito obrigado pela dica Até +

Obrigado a todos q me ajudaram, consegui resolver o problema. Era só renomear a pagina para .php mesmo como o itibere disse.... Grato pela ajuda de todos

Valeu pela dica.... Vou acessar o link e vou tentar algumas inclusões no código e depois volto a postar o q aconteceu... Obrigado pela Dica.. e até mais

Boa Tarde a Todos. EStou com um problema no meu sistema de upload, na verdade não sei qual é o problema já q ele não me retorna nenhuma msg de erro. Gostaria q alguém pudesse me ajudar. Segue os Código Formulário de envio.: <FORM METHOD="Post" ENCTYPE="multipart/form-data" ACTION="upload.php" onSubmit="return ValidaPagina(this);" name="billform"> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td> </td> </tr> </table> <br> <table width="366" border="0" align="CENTER" bgcolor="#E0E0E0" height="132"> <tr bgcolor="#E5E5E5"> <td colspan="2" height="34"> <div align="center"><b><font size="2" face="Verdana, Arial, Helvetica, sans-serif" color="#990000">Upload</font><font size="2" face="Verdana, Arial, Helvetica, sans-serif"> <font color="#000000">Sistema de </font></font><font face="Verdana, Arial" size="2" color="#000000"><br> Envio de arquivos para servidor</font></b></div> </td> </tr> <tr bgcolor="#A6D2FF"> <td width="77" height="42" bgcolor="#A6D2FF"> <div align="right"><font face="Verdana, Arial" size="2" color="#0B2562"><b>Localizar: </b> </font></div> </td> <td width="269" height="42"> <input type="file" name="nome" size="35"> </td> </tr> <tr bgcolor="#A6D2FF"> <td colspan="2" height="32"> <p align="center"> <input type="submit" value=">> E N V I A R <<" name="enviar" > </td> </tr> <tr bgcolor="#A6D2FF"> <td colspan="2" height="15"> <div align="center"></div> </td> </tr> </table> </FORM> O código de validação em javascript &lt;script Language="JavaScript"> <!-- //Verifica se foi digitado algo no campo function ValidaPagina(form) { if(CampoBranco(form.blob)==true) { alert("Escolha um Arquivo a ser enviado."); form.blob.focus(); return false; } } function CampoBranco(campo) { if (campo.value == "") return true; else return false; } --> </script> &lt;script language="VBScript"> SUB enviar_ONCLICK() billform.enviar.Value = "Aguarde enviando..." END SUB </script> o código do arquivo de upload.: <?php if ($file == "none") { print "selecione o arquivo!<br>"; print "<a href=href=../upload/prof_up.php class=link>voltar</a>"; }else { copy($file, "../documentos/ ".$file_name); unlink($file); } ?> <html> <head> <title>Upload</title> </head> <body bgcolor="#FFFFFF" text="#000000" links="#000000" vlinks="#000000" alinks="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"> <table cellspacing="2" cellpadding="2" border="0" width="500" height="300"> <tr> <td valign="top" width="400"> <p align="center" class=ptext3><b>ARQUIVO ENVIADO COM SUCERRO</b></p> <p align="center" class=ptext3><b><a href="prof_up.php">Voltar</a></b></p> </td> </tr> </table> </body> </html> Desde já agradeço pela ajuda de todos. Fabiano