Error en cuadros de texto

Cuezaltzin · #1 (**permalink**) 06/01/2004, 17:15

Que tal.

Mi pregunta es la siguiente. Tengo un formulario en el cual se agregan algunos datos a un base de datos.

El problema es cuando en los cuadros de texto el usuario escribe o una comilla doble o simple (",'). Marca el siguiente error :

Tipo de error:
Microsoft JET Database Engine (0x80040E14)
Error de sintaxis (falta operador) en la expresión de consulta

Como puedo evitar este error. Aqui pongo el codigo el cual estoy utilizando:

<%
Response.Buffer = True

' load object
Dim load
Set load = new Loader

' calling initialize method
load.initialize

' File binary data
Dim fileData
fileData = load.getFileData("file")
' File name
Dim fileName
fileName = LCase(load.getFileName("file"))

Dim Id
Id = load.getValue("Id")

' Value of text input field "Seccion"

Dim SeccionInput
SeccionInput = load.getValue("Seccion")

Dim AutorInput
AutorInput = load.getValue("Autor")

Dim FechaInput
FechaInput = load.getValue("Fecha")

Dim TituloInput
TituloInput = load.getValue("Titulo")

Dim CortoInput
CortoInput = load.getValue("Texto_Corto")

Dim CompletoInput
CompletoInput = load.getValue("Texto_Completo")

' Path where file will be uploaded
Dim pathToFile
pathToFile = Server.mapPath("..\..\IA") & "\" & fileName
' Uploading file data
Dim fileUploaded
fileUploaded = load.saveToFile ("file", pathToFile)

' destroying load object
Set load = Nothing
%>

<html>
<head>
<title>File Uploading with ASP</title>
<style>
body, input, td { font-family:verdana,arial; font-size:10pt; }
</style>
<meta name="Microsoft Theme" content="-a- 011">
</head>
<body background="../../../_themes/-a-/probkgnd.gif" bgcolor="#FFFFFF" text="#000000" link="#FF0000" vlink="#FF0000" alink="#FF0000"><table width="700" border="1" align="center" bordercolordark="#666666" bordercolorlight="#999999">
<tr>
<td>Nombre del Archivo</td><td><%= fileName %> </td>
</tr><tr>
<td>Sección</td><td><%= SeccionInput %> </td>
</tr><tr>
<td>Autor</td><td><%= AutorInput %> </td>
</tr><tr>
<td>Fecha</td><td><%= FechaInput %> </td>
</tr><tr>
<td>Titulo</td><td><%= TituloInput %> </td>
</tr><tr>
<td>Texto Corto</td><td><%= CortoInput %> </td>
</tr><tr>
<td>Texto Completo</td><td><%= CompletoInput %> </td>
</tr>

</table><br><br>
<p style="padding-left:220;">

<%
Dim BDD
Dim TABLA
Dim SQL

Set BDD = Server.CreateObject("ADODB.Connection")
Set TABLA = Server.CreateObject("ADODB.Recordset")

BDD.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0; DATA SOURCE=" + Server.MapPath ("../../home.mdb"))

SQL = "UPDATE "&request.QueryString("Tabla")& " SET Seccion='"&SeccionInput&"',Autor='"&AutorInput&"', Fecha='"&FechaInput&"', Titulo='"&TituloInput&"', Texto_Corto='"&CortoInput&"', Texto_Completo='"&CompletoInput&"', IMG='"&fileName&"' WHERE Id LIKE "&Id&" "

BDD.Execute SQL
%>

</p>

</body>
</html>

Por su ayuda mil Gracias.

Cuelzaltzin.

arlin · #2 (**permalink**) 06/01/2004, 22:29

Puedes utilizar un Replace en la variable, para sustituir las comillas simples antes de insertarla en la base de datos, puedes sustituirlo por comillas dobles o un asterisco o cualquier otro simbolo, luego cuando tienes que mostrar el dato utilizas la misma funcion pero a la inversa... sustituyes el simbolo por la comilla simple, ejemplo:

Para insertar el valor en la base de datos
variable = Request.Form("valor")
Replace(variable,"'","*")

Para mostrar el valor
variable = RS("valor")
Replace(variable,"*","'")

Saludos

Ysdragil · #3 (**permalink**) 07/01/2004, 11:02

Ese problema por lo regular se debe a la comilla simple. La respuesta de arlin es buena, sin embargo que va a pasar cuando alguien en el texto coloque un asterisco, y despues le aplicas el proceso inverso ???, el asterisco te lo va a cambiar a comilla simple. Mejor guarda la informacion tal y como es. Para evitar el problema de la comilla simple utiliza un Replace y en donde la cadena a substituir sea la comilla simple y la substituyes por dos comillas simples. Ojo es por dos comillas simples no por comillas dobles. Este es el codigo:

Replace(tu_variable,"'","''")

Espero que esto te sirva

Cuezaltzin · #4 (**permalink**) 14/01/2004, 18:26

Hola de nuevo.

Todavia tengo el mismo problema ya probe las dos respuestas y me marca el siguiente error:

Tipo de error:
Error de compilación de Microsoft VBScript (0x800A0414)
No se puede utilizar paréntesis al llamar a Sub

En esta linea me marca el error:

Replace(Marca,"'","''")

Aqui les agrego mi codigo para que me ayuden.Mil Gracias



<%
Response.Buffer = True

' load object
Dim load
Set load = new Loader

' calling initialize method
load.initialize

' File binary data
Dim fileData
fileData = load.getFileData("file")
' File name
Dim fileName
fileName = LCase(load.getFileName("file"))

' Value of text input field "Producto"

Dim ProductoInput
ProductoInput = load.getValue("Producto")

Replace(Marca,"'","''")

Dim MarcaInput
MarcaInput = load.getValue("Marca")

Dim ModeloInput
ModeloInput = load.getValue("Modelo")

Dim PrecioInput
PrecioInput = load.getValue("Precio")

Dim Valor1Input
Valor1Input = load.getValue("Valor1")

Dim Valor2Input
Valor2Input = load.getValue("Valor2")

Dim Valor3Input
Valor3Input = load.getValue("Valor3")

Dim Valor4Input
Valor4Input = load.getValue("Valor4")

Dim Valor5Input
Valor5Input = load.getValue("Valor5")

Dim Valor6Input
Valor6Input = load.getValue("Valor6")

Dim CaracteristicasInput
CaracteristicasInput = load.getValue("Caracteristicas")

' Path where file will be uploaded
Dim pathToFile
pathToFile = Server.mapPath("..\..\IA") & "\" & fileName
' Uploading file data
Dim fileUploaded
fileUploaded = load.saveToFile ("file", pathToFile)

' destroying load object
Set load = Nothing
%>

<%
Dim BDD
Dim TABLA
Dim SQL

Set BDD = Server.CreateObject("ADODB.Connection")
Set TABLA = Server.CreateObject("ADODB.Recordset")

BDD.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0; DATA SOURCE=" + Server.MapPath ("../../Productos.mdb"))

SQL = "Insert into Productos (Producto,Marca,Modelo,Precio,Valor1,Valor2,Valor3 ,Valor4,Valor5,Valor6,Caracteristicas,IMG) values ('"&ProductoInput&"','"&MarcaInput&"','"&ModeloInp ut&"','"&PrecioInput&"','"&Valor1Input&"','"&Valor 2Input&"','"&Valor3Input&"','"&Valor4Input&"','"&V alor5Input&"','"&Valor6Input&"','"&Caracteristicas Input&"','"&fileName&"')"

BDD.Execute SQL

%>

u_goldman · #5 (**permalink**) 14/01/2004, 18:43

"Hola de nuevo.
Todavia tengo el mismo problema ya probe las dos respuestas y me marca el siguiente error:
Tipo de error:
Error de compilación de Microsoft VBScript (0x800A0414)
No se puede utilizar paréntesis al llamar a Sub
En esta linea me marca el error:
Replace(Marca,"'","''")"

Si, recuerda que replace es una función, como toda función, regresa un valor, en este caso el string después de reemplazar los caracteres, por lo cual tienes que pasarle el calor que te regrese a una variable para utilizarla en tu proceso:

variable = Replace(Marca,"'","''")

Salu2,

Berletzis · #6 (**permalink**) 14/01/2004, 20:32

Lógica Web