Jump to content

  2. →
  3. →

Photo

Erro Para Alterar Dados No Bd

Started By fernandolarson, 28/11/2003, 11:02

  • Faça o login para participar
6 replies to this topic

#1 fernandolarson

fernandolarson

    Novato no fórum

  • Usuários
  • 17 posts
  • Sexo:Não informado

Posted 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

Attached Files


#2 cybermix

cybermix

    andrewsmedina.com.br

  • Ex-Admins
  • 3586 posts
  • Sexo:Não informado
  • Localidade:Não sou desse planeta não!!!!
  • Interesses:python, fireworks, linux, php, flash...

Posted 28/11/2003, 11:25

que erro retorna

e troque isso:

Set ObjRs = objConn.Execute(strQuery)


por isso
objConn.Execute(strQuery)

www.andrewsmedina.com.br

#3 fernandolarson

fernandolarson

    Novato no fórum

  • Usuários
  • 17 posts
  • Sexo:Não informado

Posted 28/11/2003, 17:58

O erro ainda continua, pois deveria fazer a atulização e entrar numa pagina confirmando tal alteração.

Se poder me ajudar eu agradeço.
FErnando

#4 cybermix

cybermix

    andrewsmedina.com.br

  • Ex-Admins
  • 3586 posts
  • Sexo:Não informado
  • Localidade:Não sou desse planeta não!!!!
  • Interesses:python, fireworks, linux, php, flash...

Posted 28/11/2003, 18:13

em vez disso

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"


faz isso

objConn.Execute(strQuery)
objConn.close
Set objConn = Nothing 
response.redirect "sucesso.asp?acao=modificar"[/

agora vai funfar (y)
www.andrewsmedina.com.br

#5 fernandolarson

fernandolarson

    Novato no fórum

  • Usuários
  • 17 posts
  • Sexo:Não informado

Posted 29/11/2003, 00:47

CyberMix,

Desculpa estar te encomodando denovo mais esta dando o erro

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe (operador ausente) na expressão de consulta 'numero ='.

/sysclinica/nova/confirma_modificar.asp, line 26

Tentei arrumar esse erro mais nao estou conseguindo, gostaria se possivel que desse uma olhada para que eu possa arrumar este errro.


Atenciosamente,

Fernando

#6 Rodrigo

Rodrigo

    oi!

  • Usuários
  • 995 posts
  • Sexo:Não informado
  • Interesses:Diretório de sites - http://www.acheinobrasil.com.br

Posted 29/11/2003, 09:47

pelo erro, vc naum esta colocando valor nenhum no campo 'nome'... faz um response.write pra ver o valor dele antes de adicionar
Diretório de sites brasileiros - Achei no Brasil

#7 fernandolarson

fernandolarson

    Novato no fórum

  • Usuários
  • 17 posts
  • Sexo:Não informado

Posted 29/11/2003, 15:34

Pessoal,

Muito Obrigado pela ajuda, conseguir arrumar o erro e com isso consegui acabar meu primeiro scipt


Atenciosamente,

FErnando
Voltar para ASP


1 user(s) are reading this topic

0 membro(s), 1 visitante(s) e 0 membros anônimo(s)

  1. Fórum WMO
  2. → Desenvolvimento
  3. → ASP
  4. Privacy Policy
  5. Regras ·
IPB Skin By Virteq