Dear All:     我要如何用 ADO 元件去接回 Oracle Return FUNCTION 的值呢?? 假設 Oracle FUNCTION  為 number 我要如何下手??   < > ======================= 謝謝各位大德不吝賜教!! 小弟感激不進< > =======================

------
願
南無藥師琉璃光如來
保佑您

Hi elvis114,    語法大致如下：

procedure TForm1.Button1Click(Sender: TObject);
Var
    Result : Integer;
begin
    ADOStoredProc1.Close;
    ADOStoredProc1.Parameters.ParamByName('p_ip_address').Value := Edit1.Text;
    ADOStoredProc1.ExecProc;
    Result := ADOStoredProc1.Parameters.ParamByName('RETURN_VALUE').Value;
    ADOStoredProc1.Close;
    ShowMessage(IntToStr(Result));
end;

---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

謝謝 Fishman 的回答 如果是 > =======================

------
願
南無藥師琉璃光如來
保佑您

Hi elvis114,    我用的是 Function 而不是 Procedure，看你的語法，應該是呼叫 Package 中的 Function，根據我測試結果，好像不行耶，你改為直接呼叫 Function 試試     ---------------------------------- 小弟才疏學淺，若有謬誤尚請不吝指教 ----------------------------------

------
Fishman

再次謝謝 Fishman 的回答 我單獨拉出FLAG = 'N'>是否要更改Delphi的寫法??因我Oracle FUNCTION 測試是OK的< > ======================= 謝謝各位大德不吝賜教!! 小弟感激不進< > =======================

------
願
南無藥師琉璃光如來
保佑您

Hi elvis114您好: 小弟都是用偷懶的方式...經過實驗證明可行.... 不管Function 或是 Procedure 我都是用Tquery    假設您的Function Name: Func1, 參數型態為Varchar2,回傳型態為Number 請試試看啦...    

Var 
 i: Integer;
begin
 Query1.Close;
 Query1.sql.text:='Select Func1('ABC') Return_value from dual';
//Procedure 如下
// Query1.sql.text:='begin procedureName end;';
 Query1.Open;
 i:=Query1.fieldByName('Return_value').asInteger;
end;

p.s. Oracle 保證可行, 其他資料庫沒有測試過.. 發表人 - yachanga 於 2004/05/20 23:58:56

Hi elvis114,    Delphi Login 到 DataBase 的帳號是否與該 Function 的 Schema 相同？ 若不相同可能會產生此錯誤，意即 你若由 A 帳號 Login  DataBase，並呼叫 Function1，即是在 呼叫 A.Function1，檢查一下是否有此錯誤 再者，建立參數時，必須多一個 Return_Value 作為傳回值

procedure TForm1.Button1Click(Sender: TObject);
Var
    Result : Integer;
begin
    ADOStoredProc1.Close;
    ADOStoredProc1.Parameters.Clear;
    ADOStoredProc1.ProcedureName := 'TEST_FUNCTION';
    ADOStoredProc1.Parameters.CreateParameter('RETURN_VALUE',ftFloat,pdReturnValue,4000,Null); // 回傳值
    ADOStoredProc1.Parameters.CreateParameter('P_IP_ADDRESS',ftString,pdInput,4000,Null); // 傳入值
    ADOStoredProc1.Parameters.ParamByName('P_IP_ADDRESS').Value := Edit1.Text;
    ADOStoredProc1.ExecProc;
    Result := ADOStoredProc1.Parameters.ParamByName('RETURN_VALUE').Value;
    ADOStoredProc1.Close;
    ShowMessage(IntToStr(Result));
end;

發表人 -

------
Fishman

謝謝 yachanga 你ㄉ方法真的可以  但是真的無法用 >我想要多嘗試一下用 > 或許我有一些強人所難， > 也非常謝謝 > ======================= 謝謝各位大德不吝賜教!! 小弟感激不進< > =======================

------
願
南無藥師琉璃光如來
保佑您

超級感謝Fishman < > 你的方式是可以的< > 我試出來了< > ======================= 謝謝各位大德不吝賜教!! 小弟感激不進< > =======================

------
願
南無藥師琉璃光如來
保佑您