用BDE的TStoredProc调用Oracle的存储过程,提示错误:General SQL error.
ORA-06550: 第 1 行, 第 7 列:
PLS-00201: 必须说明标识符 'kkkkk'
ORA-06550: 第 1 行, 第 7 列:
PL/SQL: Statement ignored.
请高手指点!!
程序代码:
try
try
TempStorp.DatabaseName := Database.DatabaseName;
TempStorp.StoredProcName := 'kkkkk';
TempStorp.Close;
TempStorp.Params.Clear;
TempStorp.Params.CreateParam(ftString,'sInParam',ptInput).AsString := sInMes;
TempStorp.Params.CreateParam(ftString,'sOutStr',ptOutput).AsString := sOutMes;
TempStorp.Params.CreateParam(ftString,'iRet',ptOutPut).AsString := sRet;
TempStorp.Prepared := True;
TempStorp.ExecProc;
sOutMes := Trim(TempStorp.Params[1].AsString);
sRet := Trim(TempStorp.Params[2].AsString);
except
on E: exception do
begin
....
Exit;
end;
end;
finally
TempStorp.Close;
TempStorp.Free;
end;
ORA-06550: 第 1 行, 第 7 列:
PLS-00201: 必须说明标识符 'kkkkk'
ORA-06550: 第 1 行, 第 7 列:
PL/SQL: Statement ignored.
请高手指点!!
程序代码:
try
try
TempStorp.DatabaseName := Database.DatabaseName;
TempStorp.StoredProcName := 'kkkkk';
TempStorp.Close;
TempStorp.Params.Clear;
TempStorp.Params.CreateParam(ftString,'sInParam',ptInput).AsString := sInMes;
TempStorp.Params.CreateParam(ftString,'sOutStr',ptOutput).AsString := sOutMes;
TempStorp.Params.CreateParam(ftString,'iRet',ptOutPut).AsString := sRet;
TempStorp.Prepared := True;
TempStorp.ExecProc;
sOutMes := Trim(TempStorp.Params[1].AsString);
sRet := Trim(TempStorp.Params[2].AsString);
except
on E: exception do
begin
....
Exit;
end;
end;
finally
TempStorp.Close;
TempStorp.Free;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货