é 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 ?
Posted 07/03/2005, 14:59
Sql ="Insert into tabela values ('" & vMensagem & "')"
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 ifPosted 07/03/2005, 15:43
Posted 07/03/2005, 16:14
Realmente mto trabalho pra pouca coisa utilizar ADO.. sendo que a melhor solução é via SQL.Como faço para inserir na tabela do db um campo texto que possa receber apóstrofe ?
é q faço assimSql ="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 ?
vMensagem = Replace(vMensagem, "'", "''")
vMensagem = Replace(vMensagem, "'", "\'")
Posted 04/04/2005, 09:42
Posted 04/04/2005, 10:25
replace(variavel, """", "")
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)