Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ADO
 Ayuda para agregar registro en access.
 Foro Bloqueado  Tema Bloqueado


Autor Temas
axion2000
New Member

Chile
84 Posts
Mensajes - 06 Aug 2003 :  07:28:34  Ver Perfil  Enviar Email  Visit axion2000's Homepage
No se que pasa con este codigo, la pagina solo me dice NO SE PUEDE MOSTRAR LA PAGINA,
Hay un problema con la página solicitada y no puede ser mostrada..

Este es el codigo, Por favor ayudenme...la idea es que recogo los datos ingresados en un formulario, los paso a vectores, luego recorro los vectores y llamo a una sub pasandole el dato de turno para que lo grabe

Parece tambien que se puede grabar directamente el vector sin tener que recorrerlo o no???
Gracias por su sapiencia !!!

Este es el codigo :

<%
Private Function GUARDAR_REGISTRO(Codig,Produ,Preci,Canti)
Dim Conexion
Dim RS
Dim strSQL
Dim strConnectionString
strConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db\Compra.mdb")
Set Conexion = Server.CreateObject("ADODB.Connection")
Conexion.Open strConnectionString
strSQL = "INSERT INTO Compra(Usuario, Codigo, Producto, Precio, Compra) VALUES(" & _
PC(Quien_Es) & "," & PC(Codig) & "," & PC(Produ) & "," & Preci & "," & Canti & ")" 'Guarda el registro an la tabla
Set RS = Conexion.Execute(strSQL)
Conexion.Close
Set Conexion = Nothing
End Function

Private Function PC(Cadena)
Cadena = "'" & Cadena & "'"
PC = Cadena
End Function
%>

<%
Quien_Es=Request.ServerVariables("REMOTE_ADDR")
Codigo=Split(Request.Form("Codigo"), ", ")
Producto=Split(Request.Form("Producto"), ", ")
Precio=Split(Request.Form("Precio"), ", ")
Compra=Split(Request.Form("Cantidad"), ", ")

For t=0 To UBound(Codigo)
if Trim(Codigo(t))<>"" Then
Guardar_Registro(Quien_es, Codigo(t), Producto(t), Precio(t), Compra(t))
End if
Next

buho_nero
Moderator

España
1316 Posts
Posted - 06 Aug 2003 :  08:47:36  Ver perfil  Enviar e-mail
Si fuese un error de ADO no te aparecería ese aviso, sería mucho más espefífico.
Quizá tengas un error en una url durante la navegación, o esa página ASP no retorne nada al navegador, es decir, no envíe HTML o haga un redirect ...

Inicio Pagina

nubeazul
Moderator


814 Posts
Posted - 06 Aug 2003 :  13:04:54  Ver perfil  Enviar e-mail  Visit nubeazul's Homepage
Para que puedas ver el error que se trata deshabilita la opcion en el explorador (herramientas>opciones de Internet>opciones avanzadas) de mostrar errores descriptivos, asi te podra decir en que línea falla.

Nubeazul
Contruyendo un Mundo más Azul y HumanoInicio Pagina

   
 Foro Bloqueado  Tema Bloqueado
Ir a:
Los Foros de ASPTutor.com Los Foros de ASPTutor.com
Ir al principio de la Página

 Imprimir Tema
 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar