Jump to content


Photo

Campo Texto Que Possua Apóstrofe


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

#1 andrerp

andrerp

    Novato no fórum

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

Posted 07/03/2005, 14:59

Como faço para inserir na tabela do db um campo texto que possa receber apóstrofe ?


é q faço assim

   Sql ="Insert into tabela values ('" & vMensagem & "')"
   


Daí se vMensagem tiver o apóstrofe(') vai dar erro de cadastro, qpq trunca o SQL.

Alguém sabe a solução ?

#2 andrerp

andrerp

    Novato no fórum

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

Posted 07/03/2005, 15:32

vMensagem=Ucase(Request.Form("recado"))
   vUsuario=Session("usuario")
   cnpath="DBQ=" & Server.MapPath("Dados/BDRM.mdb") 
   DataSource = "Driver={Microsoft Access Driver (*.mdb)}; " & cnpath 
   Set Conn = Server.CreateObject("ADODB.Connection") 
   set rs = Server.CreateObject("ADODB.Recordset")
   Conn.Open DataSource
   
   Sql = "SELECT recado, cod_usuario, data_hora from recados"

   rs.open Sql, conn, 1, 2, adCmdText
   rs.AddNew
   rs.fields("recado").value = vMensagem
   rs.fields("cod_usuario").value = vUsuario
   rs.fields("data_hora").value = Now
   rs.Update
   rs.close   
         
   Conn.Close
   
   if err <> 0 then 
      Response.Write "<h1>Um erro foi encontrado!</h1><p>" & err.number & " - " & err.description & "</p>"
   else 
   Response.redirect "mural.asp?"  
   end if

Deu Certo galera !

#3 viniciusjau

viniciusjau

    Veterano

  • Usuários
  • 1492 posts
  • Sexo:Masculino
  • Localidade:Jaú
  • Interesses:Web Designer em Geral

Posted 07/03/2005, 15:43

usa replace tbm... achu que funciona....

#4 felipecm

felipecm

    Expert

  • Usuários
  • 541 posts
  • Sexo:Não informado
  • Localidade:ABC / SP

Posted 07/03/2005, 16:14

Como faço para inserir na tabela do db um campo texto que possa receber apóstrofe ?


é q faço assim

   Sql ="Insert into tabela values ('" & vMensagem & "')"
   


Daí se vMensagem tiver o apóstrofe(') vai dar erro de cadastro, qpq trunca o SQL.

Alguém sabe a solução ?

Realmente mto trabalho pra pouca coisa utilizar ADO.. sendo que a melhor solução é via SQL.

Se teu banco de dados for MySQL, vc usa replace com barra invertida seguido de apostrofe.. se for Access/MSSQL vc usa apostre seguida de apostrofe.

vMensagem = Replace(vMensagem, "'", "''")
vMensagem = Replace(vMensagem, "'", "\'")

MCAD, MCP

#5 Rafa_nostrova

Rafa_nostrova

    Novato no fórum

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

Posted 04/04/2005, 09:42

Olá.. Como posso usar a função REPLACE para retirar " de algum texto.

Tentei
Replace(descricao, """, "")
mas ocorreu um erro. Existe alguma solução para isso ou forma direfente de fazer isso????

#6 otavio

otavio

    http://www.cursosvirtuais.net

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

Posted 04/04/2005, 10:25

faz:

replace(variavel, """", "")

[]'s
/////////////////////////////////////////////

http://www.cursosvirtuais.net/




1 user(s) are reading this topic

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

IPB Skin By Virteq