
31/10/2005, 07:12
|
| | Fecha de Ingreso: diciembre-2003
Mensajes: 46
Antigüedad: 21 años, 4 meses Puntos: 0 | |
Error en insercion de campo de texto a base de datos!! Que triste! Pues si, que no soy capaz de hacer una insercion de registros en una tabla de una base de datos....
El caso es que me devuelve un error (al estilo del 404 del explorer), y no se porqué es. He ido comentando lineas hasta que veo que el error lo da en el momento de ejecutar la sentencia SQL (.Execute)
Os pego este trozito de codigo, que es donde casca: Dim MM_Accion_Insertar
Dim MM_editConnection
Dim MM_editQuery
Dim valorComentario
Dim valorUsuario
Dim valorfecha
Dim MM_cnxLongJorn_STRING
MM_cnxLongJorn_STRING = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.mapPath("/LongJorn/access_db/longjorn.mdb")
MM_Accion_Insertar = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (CStr(Request("hdFormulario")) = "Form2") Then
valorComentario=CStr(Request.Form("txtComentario") )
valorUsuario=Request.Cookies("Usuario")
valorfecha=Date()
MM_editQuery="insert into comentarios(Id,Comentario,Fecha,Usuario)values('"& idComentario&"','"&valorComentario&"','"&valorfech a&"','"&valorUsuario&"')"
MM_editConnection = MM_cnxLongJorn_STRING
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery MM_editCmd.Execute 'Aqui es donde casca
MM_editCmd.ActiveConnection.Close
por cierto que valorfecha me lo escribe valorfech a pero eso es cosa de aqui, de este foro. |