Hola....
Cabe anotar que es la primera vez que estoy trabajando con este tipo de base de datos.... en serio....
Estoy haciendo una funcion que sea standart para cualquier procedimientos sea de consulta o ejecución.... no tengo muy claro lo de ADOStoreprocedure
La funcion es la siguiente:
Código Delphi
[-]function TClase.ejecuta_sp(ADOSP : TADOStoredProc; SP: String;
datos: array of String; Exec : Boolean = true; campo_devolver : string = ''): string;
var line, Y : string; x : byte;
begin
with ADOSP do
begin
Close;
Parameters.Clear;
ProcedureName := SP;
Parameters.Refresh;
Prepared := true;
for x := 0 to high(datos) do
Parameters.Items[x].Value := datos[x];
if Exec then ExecProc
else Active := true;
if campo_devolver <> '' then result := FieldByName(campo_devolver).AsString;
end;
end;
Y la estoy llamando así :
Código Delphi
[-]
eId.Text :=Clase.ejecuta_sp(DM.SP,'SP_USUARIO_I',[eLogin.Text,eNombres.Text,
eApellidos.Text,est,'1',true,'USU_ID');
y al momento de ejecutarlo me muestra el siguiente mensaje:
Cita:
"La aplicación utiliza n valor de tipo no válido para la operación actual"
|
Agradezco de antemano la colaboración ....