Ver Mensaje Individual
  #1 (permalink)  
Antiguo 09/06/2005, 09:27
Avatar de joelvazquez
joelvazquez
 
Fecha de Ingreso: febrero-2005
Ubicación: 192.168.x.x
Mensajes: 448
Antigüedad: 20 años, 1 mes
Puntos: 1
Grabar contenido en Base de Datos

tengo una conexión a una base de datos en Access y al momento ke debería guardar los campos, no los guarda! solo asigna el campo en la tabla pero no escribe nada. El código ke estoy utilizando es algo largo. pero lo pondré para ver si alguien me puede ayudar.
Gracias de ante mano .
(este es el código ASP donde se deben guardar los datos en Access)

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<%
Response.Buffer = true
dim datosformato,rst
' Creamos la conexión a la base de datos sin DSN
set datosformato = Server.CreateObject("ADODB.Connection")
set rst = Server.CreateObject("ADODB.RecordSet")
datosformato.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("datosformato.mdb")
sqltext = "SELECT * FROM orden_servicio"
rst.Open sqltext,datosformato,1,2

dim taller, vehiculo_num, serv_sol_num
taller = Request.Form("taller")
vehiculo_num = Request.Form("vehiculo_num")
marca = Request.Form("marca")
tipo = Request.Form("tipo")
modelo = Request.Form("modelo")
km = Request.Form("km")
serv_sol_num = Request.Form("serv_sol_num")
detalle_serv = Request.Form("detalle_serv")

if vehiculo_num = "" then
error = "Debe llenar numero de vehiculo."
Response.Write error
Response.End
end if

if taller ="" then
error = "Debe llenar taller."
else
error = "Debe llenar Numero de solicitud."
Response.Write error
Response.End
end if
'Si no hay campos vacíos, procedemos a ingresar los datos a la base de datos

rst.Addnew
rst("taller") = taller
rst("vehiculo_num") = vehiculo_num
rst("marca") = marca
rst("tipo") = tipo
rst("modelo") = modelo
rst("km") = km
rst("serv_sol_num") = serv_sol_num
rst("detalle_serv") = detalle_serv
rst.update

'guardamos los datos y mandamos un mensaje al usuario
Response.Write "el dato se ha ingresado se ha ingresado con exito"
%>
</body>
</html>


(el código de los FORMS donde el usuario debe se llenar los datos está en otro post (Grabar contenido en Base de Datos 2))
__________________
"No te ahogas por caerte al agua... te ahogas por kedarte en el agua"

Última edición por joelvazquez; 09/06/2005 a las 09:41