error al agregar registro a access

axion2000
06 de Agosto del 2003
No se que pasa con este codigo, la pagina solo me dice NO SE PUEDE MOSTRAR LA PAGINA,
Hay un problema con la pgina 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("dbCompra.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



tamakun
06 de Agosto del 2003
Dentro del VALUES( ... ) tienes que asegurarte que los datos string (texto, no numericos) vayan delimitados; como ests utilizando las comillas dobles para definir strings, entonces para que la cadena contenga delimitadores debes usar comillas simples (tambin conocidos como apstrofes) slo en campos no numricos ni lgicos.