Antes que nada, estoy muy pez en ASP siempre utilizo PHP pero al tener que modificar un campo OLE en access me he tenido que pasar a ASP.
El problema es sencillo (creo). Tengo un programa hecho por un amigo en VB.Net que inserta los datos que quiero en esa tabla de access pero ahora quiero hacerlo en ASP.
El codigo que tengo en .NEt es este. Pero no hay manera de hacer esta consulta en ASP.
Alguien me puede echar una mano, o indicarme donde buscar xq por google ya he dado mas de mil vueltas y no hay manera. Conectarme con la BBDD me conecto sin problemas y puedo recoger datos con una consulta normal, el problema viene en la consulta parametrica.
Un saludo
Código:
Try ''Sentencia INSERT en la tabla User queryString = "insert into User (UserID, SerialNumber, Name, Surname, Sex, UserData) VALUES (?, ?, ?, ?, ?, ?)" ''Generamos el comando, asignandole la sentencia INSERT y añadiendole los parametros necesarios. Dim cm As ADODB.Command cm = New ADODB.Command cm.ActiveConnection = ConexionBD cm.CommandText = queryString ''Parametros. cm.Parameters.Append(cm.CreateParameter("@UserID", DataTypeEnum.adInteger, ParameterDirectionEnum.adParamInput, , oROW.Item("UserID"))) cm.Parameters.Append(cm.CreateParameter("@SerialNumber", DataTypeEnum.adVarChar, ParameterDirectionEnum.adParamInput, 200, oROW.Item("SerialNumber"))) cm.Parameters.Append(cm.CreateParameter("@Name", DataTypeEnum.adVarChar, ParameterDirectionEnum.adParamInput, 200, oROW.Item("Name"))) cm.Parameters.Append(cm.CreateParameter("@Surname", DataTypeEnum.adVarChar, ParameterDirectionEnum.adParamInput, 200, oROW.Item("Surname"))) cm.Parameters.Append(cm.CreateParameter("@Sex", DataTypeEnum.adVarChar, ParameterDirectionEnum.adParamInput, 200, oROW.Item("Sex"))) Dim UserData(3) As Byte UserData(0) = oROW.Item("UserData1") UserData(1) = oROW.Item("UserData2") UserData(2) = oROW.Item("UserData3") UserData(3) = oROW.Item("UserData4") cm.Parameters.Append(cm.CreateParameter("@UserData", DataTypeEnum.adVarBinary, ParameterDirectionEnum.adParamInput, 100, UserData)) cm.CommandType = CommandTypeEnum.adCmdText ''Se ejecuta el comnado y se cierra la conexion. cm.Execute() Catch ex As Exception ConexionBD.Close() l_LOGS("Error al dar de alta el usuario con UserID: " & oROW.Item("UserID") & vbCrLf & ex.Message) Return False End Try