VISUAL FOX Y ADO
Hola a todos.
Estoy tratando de ejecutar un procedimiento almacenado desde VFP 7, pero cuando trato de adicionar y crear los parametros me sale "No se encuentra la variable ADINTEGER", todo el codigo es:
oclass = CREATEOBJECT("clases_comunes")
oconn = oclass.obtener_conexion()
ocomm = oclass.obtener_command()
ocomm.commandtext = "spactualizarempleado"
ocomm.commandtype = 4 && adCmdStoredProc = 4
ocomm.commandtimeout = 86400
ocomm.activeconnection = oconn
ocomm.Parameters.refresh
ocomm.Parameters.Append(ocomm.createparameter("RETURN_VALUE", adInteger, adparamreturnvalue, 4))
ocomm.Parameters.Append(ocomm.createparameter("@id", advarchar, adparaminput, 20, ThisForm.TXTCODIGO.VALUE))
NO SE COMO SOLUCIONAR EL PROBLEMA.
Mil Gracias.
Estoy tratando de ejecutar un procedimiento almacenado desde VFP 7, pero cuando trato de adicionar y crear los parametros me sale "No se encuentra la variable ADINTEGER", todo el codigo es:
oclass = CREATEOBJECT("clases_comunes")
oconn = oclass.obtener_conexion()
ocomm = oclass.obtener_command()
ocomm.commandtext = "spactualizarempleado"
ocomm.commandtype = 4 && adCmdStoredProc = 4
ocomm.commandtimeout = 86400
ocomm.activeconnection = oconn
ocomm.Parameters.refresh
ocomm.Parameters.Append(ocomm.createparameter("RETURN_VALUE", adInteger, adparamreturnvalue, 4))
ocomm.Parameters.Append(ocomm.createparameter("@id", advarchar, adparaminput, 20, ThisForm.TXTCODIGO.VALUE))
NO SE COMO SOLUCIONAR EL PROBLEMA.
Mil Gracias.
adInteger no es reconocida por el compilador de FoxPro, busca que valor numerico es el que quieres poner en las propieddes de createparameter y lo sustituyes. El problema debe estar que ese no es el nombre de la constante