Jump to content


fernandolarson

Member Since 31/08/2003
Offline Last Active 11/04/2011, 23:32
-----

Topics I've Started

Erro Com If

09/01/2004, 00:46

Pessoal,

Sou novato, estou com um problema meio facil para quem conhece bem php

$linha = mysql_num_rows($sql3);
                
                  if($linha == "0")
                  echo("NADA CONSTA");
                  elseif($linha == "1")
                  echo ("<font size='1' color='#FF0000'><b><a href='financeiro/financeiro.php?login=$login'>PENDENTE</a></b></font><BR>");
                  elseif($linha != "1")
                  echo("<font size='1' color='#00FF00'>EM DIA</font><BR>");
conforme código acima, estou com problema, pois quando nao consta nada do cliente no bd, queria que apareci-se NADA CONSTA, mais nao estou conseguindo fazer.


Muito Grato pela Atençao


Fernando Larson :D

Não Consigo Fazer

27/12/2003, 12:42

Bom dia Pessoal,
Sou iniciante em PHP, estou conseguindo fazer algumas coisas, mais não consigo resolver este problema, que segue embaixo.

Estou tendo, fazer um sistema que demostrar, alguma pendencia no setor financeiro, ou seja, se encontrar na tabela situação, a palavra não ira aparecer pedencia, se não aparece em dia, só
que se tiver só uma linha funciona mais quando coloco mais linha no DB, dá erro pois aparece em dia, quando tem o não na tabela.

OBS.:o CÓDIGO SEGUE EMBAIXO

Atenciosamente,

Fernando Larson


include "../config.php";
$db 	 =	mysql_connect ($host, $login_db, $senha_db);
$basedados	=	mysql_select_db($database);
$sql3 = mysql_query("SELECT cliente, situacao FROM clientes_financeiro WHERE situacao = '$login' AND situacao LIKE 'nao'");
$pesquisa = mysql_fetch_row($sql3, $db);
$mes = $pesquisa["mes"];
$situacao = $pesquisa["situacao"];

    if($situacao == 0){
    echo("<font size='1' color='#00FF00'>EM DIA</font>");
    }else{
    echo ("<font size='1' color='#FF0000'><b>PENDENTE MES: $mes</b></font>");
    }
            

Desabilatar Campo De Form

07/12/2003, 00:26

Olá Pessaol,

Como que eu faço para desabilitar, ivalidar, deixar sem poder ser preechido um campo de FORMULÁRIO, já vi isto, mais nao sei como que se faz.


Se alguém poder me ajudar agradeço.


Atenciosamente,

Fernando

Problema Quando Volta

06/12/2003, 23:58

Olá Pessoal,

Era programador de ASP e estou querendo aprender PHP, mais estou com um problema bem fácil mais, para os meus conhecimentos de PHP, ainda nao consegui resolver.

Quando eu deleto algum dado no banco de dados coloquei um botao voltar

echo "<center><A HREF='java script:history.go(-1);'>VOLTAR</A></font>";


e quando volto para a lista nao esta atualizada, no ASP colocamos o comando <%option excplit%>
e quando voltava estava atualizada.

CÓDIGO DA LISTA

<?
$conexao = mysql_connect("localhost","fernando","opxk84") or die ("não consegue conectar bando de dados");
$db = mysql_select_db("direito") or die ("Não conseguiu selecionar banco de dados");
$sql = "SELECT * FROM colunas WHERE id";
$resultado = mysql_query($sql)
or die ("Não foi possível realizar a consulta ao banco de dados");
if (mysql_num_rows($resultado) <> 0){
}else{
    echo ("<font face='MS Sans Serif, Verdana' size='1'><center>Nenhuma coluna cadastrada</font></center>");
    echo ("<a href='java script:history.go(-1)'><font face='MS Sans Serif, Verdana' size='1'><center>VOLTAR</center></a></font>");
}
if ($resultado) {
while ($linha=mysql_fetch_array($resultado)) {

$id = $linha["id"];
$data = $linha["data"];
$nome_coluna = $linha["nome_coluna"];
$autor = $linha["autor"];
$titulo = $linha["titulo"];
$chamada = $linha["chamada"];
$coluna = $linha["coluna"];

echo "<html>";
echo "<head><title>Colunas Pessoais de $autor</title></head>";
echo "<body bgcolor='#ffffff' link='#000000' vlink='#000000' alink='#000000'>";
echo "<font face='MS Sans Serif, Verdana' size='1'>";
echo "<center>";
echo "<table width='450' bgcolor='#FFFFFF' border='0' cellspacing='1' cellpadding='2'>";
echo "<tr>";
echo "<td bgcolor='#9797FF'><font face='MS Sans Serif, Verdana' size='1'><b>ID:</b></font></td>";
echo "<td bgcolor='#D5D5FF'><font face='MS Sans Serif, Verdana' size='1'>$id</font></td>";
echo "</tr>";
echo "<tr>";
echo "<td bgcolor='#9797FF'><font face='MS Sans Serif, Verdana' size='1'><b>Data de Pub.:</b></font></td>";
echo "<td bgcolor='#D5D5FF'><font face='MS Sans Serif, Verdana' size='1'>$data</font></td>";
echo "</tr>";
echo "<tr>";
echo "<td bgcolor='#9797FF'><font face='MS Sans Serif, Verdana' size='1'><b>Autor:</b></font></td>";
echo "<td bgcolor='#D5D5FF'><font face='MS Sans Serif, Verdana' size='1'>$autor</font></td>";
echo "</tr>";
echo "<tr>";
echo "<td bgcolor='#9797FF'><font face='MS Sans Serif, Verdana' size='1'><b>Nome da Coluna:</b></font></td>";
echo "<td bgcolor='#D5D5FF'><font face='MS Sans Serif, Verdana' size='1'>$nome_coluna</font></td>";
echo "</tr>";
echo "<tr>";
echo "<td bgcolor='#9797FF'><font face='MS Sans Serif, Verdana' size='1'><b>T&iacute;tulo:</b></font></td>";
echo "<td bgcolor='#D5D5FF'><font face='MS Sans Serif, Verdana' size='1'>$titulo</font></td>";
echo "</tr>";
echo "<tr>";
echo "<td bgcolor='#9797FF'><font face='MS Sans Serif, Verdana' size='1'><b>Chamada:</b></font></td>";
echo "<td bgcolor='#D5D5FF'><font face='MS Sans Serif, Verdana' size='1'>$chamada</font></td>";
echo "</tr>";
echo "<tr>";
echo "<td bgcolor='#9797FF' valign='top' width='27%'><font face='MS Sans Serif, Verdana' size='1'><b>Coluna:</b></font></td>";
echo "<td bgcolor='#D5D5FF'><p align='justify'><font face='MS Sans Serif, Verdana' size='1'>$coluna</font></p></td>";
echo "</tr>";
echo "<tr bgcolor='#9797FF'>";
echo "<td>&nbsp</td>";
echo "<td><font face='MS Sans Serif, Verdana' size='1'><a href='excluir.php?id=$id'> <p align='center'><b>excluir</b></a><b> | </b><a href='alterar.php?id=$id'><b>alterar</b></a></p></font></td>";
echo "</tr>";
echo "</table>";
echo "<br>";
echo "</center>";
echo "</font>";
echo "</body>";
echo "</html>";
}
}
?>


Como que eu posso fazer isso em PHP.

Obrigado pela ajuda.

Fernando Larson

Erro Para Alterar Dados No Bd

28/11/2003, 11:02

Olá Pessoal,

Sou iniciante e estou com um problema para fazer alterção dos dados no ACESS, eu sei que é erro de código

Código do Formulário:
<%
id = request.querystring("id")
Set ObjConn =  Server.CreateObject("ADODB.Connection")
ObjConn.Open "DBQ=" & Server.MapPath("db/intranet.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"
SQLstring = "SELECT * FROM clientes WHERE numero LIKE '%"& id &"%'"
Set ObjRS = ObjConn.Execute(SQLstring)
%>

<html>
<head>
<title>---| SYSClinica - MODIFICANDO NOVO PACIENTE |---</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<FORM METHOD=POST ACTION="confirma_modificar.asp?id=<%response.write objRS("numero")%>">
 <table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%">
  <tr> 
    <td align="center" valign="top"> <table width="520" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#FFFFFF">
        <tr align="center" valign="middle"> 
          <td width="16"><font face="Verdana, Arial, Helvetica, sans-serif" size="2">&nbsp;</font><font face="Verdana, Arial, Helvetica, sans-serif" size="2">&nbsp;</font><font face="Verdana, Arial, Helvetica, sans-serif" size="2">&nbsp;</font></td>
          <td width="45" align="left" valign="bottom"><img src="imagens/paciente/sel_pac_1.jpg" width="53" height="18"></td>
          <td width="718" valign="bottom" align="right">&nbsp;</td>
          <td width="16">&nbsp;</td>
        </tr>
        <tr align="center" valign="middle"> 
          <td background="imagens/paciente/sel_fundo.jpg" width="16"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><img src="imagens/paciente/sel_cima_esq.jpg" width="15" height="31"></font></td>
          <td background="imagens/paciente/sel_fundo.jpg" width="45"><img src="imagens/paciente/sel_pac_2.jpg" width="57" height="31"></td>
          <td background="imagens/paciente/sel_fundo.jpg" width="718"><img src="imagens/paciente/top_modi.jpg" width="156" height="31"></td>
          <td width="16"><img src="imagens/paciente/sel_cima_dir.jpg" width="15" height="31"></td>
        </tr>
        <tr align="center" valign="middle"> 
          <td colspan="4" bgcolor="#FFD93E"> <font face="Verdana, Arial, Helvetica, sans-serif" size="2">MODIFIQUE 
            OS DADOS DE SEU PACIENTE</font><br> <table width="490" border="0" cellspacing="2" cellpadding="2">
              <tr bgcolor="#FFEA97"> 
                <td width="129" align="left" valign="middle" nowrap bgcolor="#FFF7D5"> 
                  <font face="Tahoma" size="1" color="#333333"><strong>NOME DO 
                  PACIENTE:</strong></font></td>
                <td width="361" height="4" bgcolor="#FFEA97"><div align="left"><font face="Tahoma" size="1" color="#000000"> 
                    <input style="background: #FFE064; border: 1px solid #000000; font: verdana, arial, helvetica; font size: 2; color: black" type="text" name="nome" size="50" VALUE="<% Response.write ObjRS("nome")%>">
                    </font></div></td>
              </tr>
              <tr bgcolor="#FFF7D5"> 
                <td width="129" align="left" bgcolor="#FFF7D5"><font size="1"><strong><font face="Tahoma" color="#333333">IDADE:</font></strong></font></td>
                <td width="361" height="4" bgcolor="#FFEA97"><div align="left"> 
                    <font face="Verdana, Arial, Helvetica, sans-serif" size="2"> 
                    <input style="background: #FFE064; border: 1px solid #000000; font: verdana, arial, helvetica; font size: 2; color: black" type="text" name="idade" size="50" VALUE="<% Response.write ObjRS("idade")%>">
                    </font> </div></td>
              </tr>
              <tr bgcolor="#FFEA97"> 
                <td width="129" align="left" valign="middle" bgcolor="#FFF7D5"><font size="1"><strong><font face="Tahoma" color="#333333">SEXO:</font></strong></font></td>
                <td width="361" height="4" bgcolor="#FFEA97"><div align="left"><font face="Tahoma" size="1"><%Response.write ObjRS("sexo") %></font></div></td>
              </tr>
              <tr bgcolor="#FFF7D5"> 
                <td width="129" height="2" align="left" valign="middle"><font size="1"><strong><font face="Tahoma" color="#333333">TEL. 
                  RESIDENCIAL:</font></strong></font></td>
                <td width="361" height="4" bgcolor="#FFEA97"><div align="left"> 
                    <font face="Verdana, Arial, Helvetica, sans-serif" size="2"> 
                    <input style="background: #FFE064; border: 1px solid #000000; font: verdana, arial, helvetica; font size: 2; color: black" type="text" name="tel_res" size="50" VALUE="<% Response.write ObjRS("tel_res")%>">
                    </font> </div></td>
              </tr>
              <tr bgcolor="#FFEA97"> 
                <td width="129" align="left" valign="middle" bgcolor="#FFF7D5"><font size="1"><strong><font face="Tahoma" color="#333333">TEL. 
                  COMERCIAL:</font></strong></font></td>
                <td width="361" height="4" bgcolor="#FFEA97"><div align="left"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"> 
                    <input style="background: #FFE064; border: 1px solid #000000; font: verdana, arial, helvetica; font size: 2; color: black" type="text" name="tel_com" size="50" VALUE="<% Response.write ObjRS("tel_com")%>">
                    </font></div></td>
              </tr>
              <tr bgcolor="#FFF7D5"> 
                <td width="129" align="left" valign="middle"><font size="1"><strong><font face="Tahoma" color="#333333">CELULAR:</font></strong></font></td>
                <td width="361" height="4" bgcolor="#FFEA97"><div align="left"> 
                    <font face="Verdana, Arial, Helvetica, sans-serif" size="2"> 
                    <input style="background: #FFE064; border: 1px solid #000000; font: verdana, arial, helvetica; font size: 2; color: black" type="text" name="celular" size="50" VALUE="<% Response.write ObjRS("celular")%>">
                    </font> </div></td>
              </tr>
              <tr bgcolor="#FFEA97"> 
                <td width="129" align="left" valign="middle" bgcolor="#FFF7D5"><font size="1"><strong><font face="Tahoma" color="#333333">EMAIL:</font></strong></font></td>
                <td width="361" height="4" bgcolor="#FFEA97"> <p align="left"><font face="Tahoma" size="1"> 
                    <a href="mailto:<%response.write objRS("email")%>"> </a></font><font face="Verdana, Arial, Helvetica, sans-serif" size="2"> 
                    <input style="background: #FFE064; border: 1px solid #000000; font: verdana, arial, helvetica; font size: 2; color: black" type="text" name="email" size="50" VALUE="<% Response.write ObjRS("email")%>">
                    </font><font face="Verdana, Arial, Helvetica, sans-serif" size="2"> 
                    </font><font face="Tahoma" size="1"> </font> </td>
              </tr>
              <tr bgcolor="#FFF7D5"> 
                <td height="1" colspan="2" align="left" valign="top"> <p align="justify"><font size="1" face="Tahoma"><strong><font color="#333333">DIAGN&Oacute;STICO:</font></strong> 
                    </font></p></td>
              </tr>
              <tr bgcolor="#FFEA97"> 
                <td height="1" colspan="2" align="left" valign="top"> <p align="justify"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"> 
                    <textarea style="background: #FFE064; border: 1px solid #000000; font: verdana, arial, helvetica; font size: 12; color: black" cols="69" rows="6" name="textarea2"><% Response.write ObjRS("diag_med")%></textarea>
                    </font><font face="Verdana, Arial, Helvetica, sans-serif" size="2"> 
                    </font><font size="1" face="Tahoma"> </font></p></td>
              </tr>
              <tr bgcolor="#FFF7D5"> 
                <td height="1" colspan="2" align="left" valign="top"> <p align="justify"><font size="1" face="Tahoma"><strong><font color="#333333">DIAG. 
                    FISIOTERAPICO:</font></strong> </font></p></td>
              </tr>
              <tr bgcolor="#FFEA97"> 
                <td height="1" colspan="2" align="left" valign="top"> <p align="justify"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"> 
                    <textarea style="background: #FFE064; border: 1px solid #000000; font: verdana, arial, helvetica; font size: 12; color: black"  cols="69" rows="6" name="diag_fisio"><% Response.write ObjRS("diag_fisio")%></textarea>
                    </font><font face="Verdana, Arial, Helvetica, sans-serif" size="2"> 
                    </font><font size="1" face="Tahoma"> </font></p></td>
              </tr>
              <tr bgcolor="#FFF7D5"> 
                <td height="1" colspan="2" align="left" valign="top" bgcolor="#FFF7D5"> 
                  <p align="justify"><font size="1" face="Tahoma"><strong><font color="#333333">QUADRO 
                    CLINICO:</font></strong> </font></p></td>
              </tr>
              <tr bgcolor="#FFEA97"> 
                <td height="1" colspan="2" align="left" valign="top"> <p align="justify"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"> 
                    <textarea style="background: #FFE064; border: 1px solid #000000; font: verdana, arial, helvetica; font size: 12; color: black"  cols="69" rows="6" name="quadro"><% Response.write ObjRS("quadro")%></textarea>
                    </font><font face="Verdana, Arial, Helvetica, sans-serif" size="2"> 
                    </font><font size="1" face="Tahoma"> </font></p></td>
              </tr>
              <tr bgcolor="#FFF7D5"> 
                <td height="1" colspan="2" align="left" valign="top"> <p align="justify"><font size="1" face="Tahoma"><strong><font color="#333333">QUEIXA 
                    PRINCIPAL:</font></strong> </font></p></td>
              </tr>
              <tr bgcolor="#FFEA97"> 
                <td height="1" colspan="2" align="left" valign="top"> <p align="justify"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"> 
                    <textarea style="background: #FFE064; border: 1px solid #000000; font: verdana, arial, helvetica; font size: 12; color: black" name="queixa" cols="69" rows="6"><% Response.write ObjRS("queixa")%></textarea>
                    </font><font face="Verdana, Arial, Helvetica, sans-serif" size="2"> 
                    </font><font size="1" face="Tahoma"> </font></p></td>
              </tr>
              <tr bgcolor="#FFF7D5"> 
                <td height="1" colspan="2" align="left" valign="top"> <p align="justify"><font size="1" face="Tahoma"><strong><font color="#333333">TRATAMENTO 
                    PROPOSTO:</font></strong> </font></p></td>
              </tr>
              <tr bgcolor="#FFEA97"> 
                <td height="1" colspan="2" align="left" valign="top"> <p align="justify"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"> 
                    <textarea style="background: #FFE064; border: 1px solid #000000; font: verdana; font size: 12; color:black" name="tratamento" cols="69" rows="6"><% Response.write ObjRS("tratamento")%></textarea>
                    </font><font face="Verdana, Arial, Helvetica, sans-serif" size="2"> 
                    </font><font size="1" face="Tahoma"> </font></p></td>
              </tr>
              <tr bgcolor="#FFF7D5"> 
                <td height="1" colspan="2" align="left" valign="top"> <p align="justify"><font size="1" face="Tahoma"><strong><font color="#333333">EVOLU&Ccedil;&Atilde;O:</font></strong> 
                    </font></p></td>
              </tr>
              <tr bgcolor="#FFEA97"> 
                <td height="1" colspan="2" align="left" valign="top"> <p align="justify"><font face="Verdana, Arial, Helvetica, sans-serif" size="2"> 
                    <textarea style="background: #FFE064; border: 1px solid #000000; font: verdana, arial, helvetica; font size: 12; color: black" name="evolucao" cols="69" rows="6"><% Response.write ObjRS("evolucao")%></textarea>
                    </font><font face="Verdana, Arial, Helvetica, sans-serif" size="2"> 
                    </font><font size="1" face="Tahoma"> </font></p></td>
              </tr>
            </table>
             <br>
    
             <input name="ok" type="image" id="ok" src="imagens/menu/ok.jpg" width="156" height="34" border="0">
            <br>
            <a href="index3.asp"><img src="imagens/menu/pagina.jpg" width="156" height="34" border="0" alt="P&aacute;gina inicial"></a><a href="logout.asp"><img src="imagens/menu/sair.jpg" width="156" height="34" border="0" alt="Sair do sistema"></a><br> 
            <br> </td>
        </tr>
        <tr align="center" valign="middle"> 
          <td background="imagens/paciente/sel_fundo_baixo.jpg" width="16"><img src="imagens/paciente/sel_baixo_esq.jpg" width="15" height="31"></td>
          <td colspan="2" background="imagens/paciente/sel_fundo_baixo.jpg" valign="middle">&nbsp; 
          </td>
          <td background="imagens/paciente/sel_fundo_baixo.jpg" width="16" align="right"><img src="imagens/paciente/sel_baixo_dir.jpg" width="15" height="31"></td>
        </tr>
      </table>
</td>
    </tr>
</table>
</form>
</body>
</html>

CÓDIGO DA MODIFICAÇÃO PROPRIAMENTE DITO:
<%
Option Explicit
Response.Expires = 0
Dim objConn, strQuery, sql_query, RsQuery, campo, sql, id
Dim nome, idade, tel_res, tel_com, celular, email, diag_med, diag_fisio, quadro, queixa, tratamento, evolucao, ObjRs

nome = Request.Form("nome")
idade = Request.Form("idade")
tel_res = Request.Form("tel_res")
tel_com = Request.Form("tel_com")
celular = Request.Form("celular")
email = Request.Form("email")
diag_med = Request.Form("diag_med")
diag_fisio = Request.Form("diag_fisio")
quadro = Request.Form("quadro")
queixa = Request.Form("queixa")
tratamento = Request.Form("tratamento")
evolucao = Request.Form("evolucao")
id = Request.Form("id")

Set objConn =  Server.CreateObject("ADODB.Connection")
objConn.Open "DBQ=" & Server.MapPath("db/intranet.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"

strQuery = "UPDATE clientes SET nome = '"&nome&"', idade='"&idade&"', tel_res='"&tel_res&"', tel_com='"&tel_com&"', celular='"&celular&"', email='"&email&"', diag_med='"&diag_med&"', diag_fisio='"&diag_fisio&"', quadro='"&quadro&"', queixa='"&queixa&"', tratamento='"&tratamento&"', evolucao= '"&evolucao&"' WHERE numero ="&id

On error Resume Next
Set ObjRs = objConn.Execute(strQuery)
objConn.close
Set objRs = Nothing
Set objConn = Nothing 
if err = 0 Then
	response.redirect "sucesso.asp?acao=modificar"
end if




%>

PS.: segue o arquivo anexado

Se alguem poder me ajudar agradeço.


Atenciosamente


FErnando

IPB Skin By Virteq