é 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 if
Posted 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)