A la hora de invocar dicho procedimiento me causa este error:
Cita:
Ya revisè y revisè, me la he pasado en google como 3 días y no encuentro, pongo el codigo para ver si alguna buena alma caritativa puede ayudarme:Microsoft OLE DB Provider for ODBC Drivers error '80040e21'
La operación de múltiples pasos de OLE DB generó errores. Compruebe los valores de estado de OLE DB si es posible. No se realizó ningún trabajo.
/MassiveTrance/procesar.asp, línea 81
La operación de múltiples pasos de OLE DB generó errores. Compruebe los valores de estado de OLE DB si es posible. No se realizó ningún trabajo.
/MassiveTrance/procesar.asp, línea 81
Código:
Nota: este es mi ARCHIVO DE CONEXION<%@ Language=VBScript %>
<!--#include file="Include/connect.asp" -->
<%
response.flush
random = Request.Form("random")
sueldonuevo = Request.Form("sueldo")
VALor= Request.Form("QUERY") 'este es un query, o select de una consulta donde le voy a cambiar el salario
Set rsVALor = Server.CreateObject("ADODB.Recordset")
rsVALor.Open VALor, connEmind, adOpenStatic, adLockReadOnly
Set comando = Server.CreateObject("ADODB.Command")
With comando
.ActiveConnection = connEmind
.CommandText = "M4PR_HACER_MS_ST"
.CommandType = adCmdStoredProc
.Parameters.Append .CreateParameter ("@VPRIMERATABLA", adNumeric, adParamInput, , Request.Form("random"))
.Parameters.Append .CreateParameter ("@VID_SOCIEDAD", adVarchar, adParamInput, 2, rsVALor.Fields("ID_SOCIEDAD"))
.Parameters.Append .CreateParameter ("@VID_ID_EMPLEADO",adVarchar, adParamInput, 10, rsVALor.Fields("ID_Empleado"))
.Parameters.Append .CreateParameter ("@VFEC_ALTA_ANTERIOR", adDate, adParamInput, , rsVALor.Fields("FEC_ALTA_EMPLEADO"))
.Parameters.Append .CreateParameter ("@VFEC_ALTA_NUEVA",adDate, adParamInput, , Date())
.Parameters.Append .CreateParameter ("@VFEC_ANTIGUEDAD", adDate, adParamInput, , rsVALor.Fields("FEC_ANTIGUEDAD"))
.Parameters.Append .CreateParameter ("@VID_ESTADO_NOMINA",adVarchar, adParamInput,10, rsVALor.Fields("ID_ESTADO_NOMINA"))
.Parameters.Append .CreateParameter ("@VID_ESTADO_PLANTILLA", adVarchar, adParamInput, 4, rsVALor.Fields("ID_ESTADO_PLANTILLA"))
.Parameters.Append .CreateParameter ("@VID_CABECERA_IMSS",adVarchar, adParamInput,10, rsVALor.Fields("ID_CABECERA_IMSS"))
.Parameters.Append .CreateParameter ("@VID_CATEGORIA",adVarchar, adParamInput, 4, rsVALor.Fields("ID_CATEGORIA"))
.Parameters.Append .CreateParameter ("@VID_CENTRO_COSTO",adVarchar, adParamInput, 4, rsVALor.Fields("ID_CENTRO_COSTO"))
.Parameters.Append .CreateParameter ("@VID_CENTRO_TRABAJO", adVarchar, adParamInput, 10, rsVALor.Fields("ID_CENTRO_TRABAJO"))
.Parameters.Append .CreateParameter ("@VID_CONTRATO_INTERNO",adVarchar, adParamInput, 2, rsVALor.Fields("ID_CONTRATO_INTERNO"))
.Parameters.Append .CreateParameter ("@VFEC_INICIO_CONTRATO", adDate, adParamInput, , rsVALor.Fields("FEC_INICIO_CONTRATO"))
.Parameters.Append .CreateParameter ("@VFEC_FIN_CONTRATO",
adDate, adParamInput, , rsVALor.Fields("FEC_FIN_CONTRATO"))
.Parameters.Append .CreateParameter ("@VFEC_FIN_PERIODO_PRUEBA",adDate, adParamInput, , rsVALor.Fields("FEC_FIN_PERIODO_PRUEBA"))
.Parameters.Append .CreateParameter ("@VID_CONVENIO", adVarchar, adParamInput, 4, rsVALor.Fields("ID_CONVENIO"))
.Parameters.Append .CreateParameter ("@VID_DEPARTAMENTO",adVarchar, adParamInput,10, rsVALor.Fields("ID_DEPARTAMENTO"))
.Parameters.Append .CreateParameter ("@VID_EMPRESA", adVarchar, adParamInput,10, rsVALor.Fields("ID_EMPRESA"))
.Parameters.Append .CreateParameter ("@VID_GRUPO_SALARIO",adVarchar, adParamInput, 1, rsVALor.Fields("ID_GRUPO_SALARIO"))
.Parameters.Append .CreateParameter ("@VID_PUESTO", adVarchar, adParamInput,10, rsVALor.Fields("ID_PUESTO"))
.Parameters.Append .CreateParameter ("@VBRUTO_ANUAL", adNumeric, adParamInput, , rsVALor.Fields("BRUTO_ANUAL"))
.Parameters.Append .CreateParameter("@VID_AGRUPACION_SEGURIDAD", adVarchar, adParamInput,10, rsVALor.Fields("ID_AGRUPACION_SEGURIDAD"))
.Parameters.Append .CreateParameter ("@VNIVEL_SEGURIDAD", adNumeric, adParamInput, , rsVALor.Fields("BRUTO_ANUAL"))
.Parameters.Append .CreateParameter ("@VID_TIPO_AJUSTE", adVarchar, adParamInput, 1, rsVALor.Fields("ID_TIPO_AJUSTE"))
.Parameters.Append .CreateParameter ("@VID_TIPO_SALARIO", adVarchar, adParamInput, 1, rsVALor.Fields("ID_TIPO_SALARIO"))
.Parameters.Append .CreateParameter ("@VID_UNIDAD", adVarchar, adParamInput,10, rsVALor.Fields("ID_UNIDAD"))
.Parameters.Append .CreateParameter ("@VID_TURNO", adVarchar, adParamInput, 2, rsVALor.Fields("ID_TURNO"))
.Parameters.Append .CreateParameter ("@VID_TIPO_JORNADA",adVarchar, adParamInput, 1, rsVALor.Fields("ID_TIPO_JORNADA"))
.Parameters.Append .CreateParameter ("@VID_TIPO_TRABAJADOR", adVarchar, adParamInput, 1, rsVALor.Fields("ID_TIPO_TRABAJADOR"))
.Parameters.Append .CreateParameter ("@VSALARIO", adNumeric, adParamInput, , rsVALor.Fields("SUELDO"))
.Parameters.Append .CreateParameter ("@VEMAIL", adVarchar, adParamInput,50, rsVALor.Fields("DIRECCION_MAIL"))
.Execute("exec M4PR_HACER_MS_ST") 'ESTA ES LA LINEA 81
'.Execute ' OTRA PRUEBA
'Set rsVALor= Execute("exec sp_emp") 'AQUI HIZE PRUEBAS
end With
comando= Nothing
%>
Código:
AYUDAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA <%
'***CONEXION CON LA BASE DE DATOS EMIND
Dim ConnectString, conn, ConnectStringEmind, connEmind
ConnectString = "DRIVER=SQL Server;SERVER=192.168.XXX.XX;UID=sa;DATABASE=emind_altaira;Address=192.168.167.XXXX,XXXX;"
Set conn = Server.CreateObject("ADODB.Connection")
conn.CommandTimeout = 360
conn.ConnectionTimeout = 360
conn.open ConnectString, "USUARIO", "PASSWORD"
ConnectStringEmind = "DRIVER=SQL Server;SERVER=192.SSS.SSS.SS;UID=sa;DATABASE=emind_altaira;Address=192.168.SSS.SSS,SSS;"
Set connEmind = Server.CreateObject("ADODB.Connection")
connEmind.CommandTimeout = 360
connEmind.ConnectionTimeout = 360
connEmind.open ConnectStringEmind, "USR2", "PWD"
session.Timeout = 120
%>
tiene que ver
