Hola!!
Ya casi lo tienes, y digo tienes xq yo hago mas bien poquito.
Ahora ya puedo insertar un usuario pero el problema viene en el campo UserData. Que es un objeto OLE.
Es decir, esto funciona:
Código:
With objCommand
.CommandText = "INSERT INTO User (Name) values (?)"
.CommandType = adCmdText
.ActiveConnection = "DSN=SmaFingerIdelec;"
.Parameters.Append .CreateParameter("@sName", adVarChar, adParamInput, 200, sName)
.Execute
Set .ActiveConnection = Nothing
End Withection = Nothing
End With
Y esto no funciona:
Código:
aUserData(0)=155
aUserData(1)=203
aUserData(2)=169
aUserData(3)=117
With objCommand
.CommandText = "INSERT INTO User (Name,UserData) values (?,?)"
.CommandType = adCmdText
.ActiveConnection = "DSN=SmaFingerIdelec;"
.Parameters.Append .CreateParameter("@sName", adVarChar, adParamInput, 200, sName)
.Parameters.Append .CreateParameter("@aUserData", adVarBinary, adParamInput, 100, aUserData)
.Execute
Set .ActiveConnection = Nothing
End With
Como puedes ver en el primer post, la linea para crear el parámetro es muy similar a la que utilizaba mi amigo en el programa que hizo en Visual. Me refiero a esta:
Código:
cm.Parameters.Append(cm.CreateParameter("@UserData", DataTypeEnum.adVarBinary, ParameterDirectionEnum.adParamInput, 100, UserData))
Se me olvidaba decir que el error que da es que no coinciden los tipos:
Código:
ADODB.Command error '800a0d5d'
La aplicación utiliza un valor de tipo no válido para la operación actual.
/sinc/sincronizar3.asp, line 24