我有一個插入/更新的存盤程序，然后回傳結果。
create or alter procedure sp_update_system_sticker (
i_sticker_id integer,
i_file_name file_name_type,
i_sticker_name item_name_type,
i_group_id integer)
returns (
o_result integer)
as
begin
update
system_stickers s
set
s.file_name = :i_file_name,
s.name = :i_sticker_name,
s.fk_stickers_groups = :i_group_id
where
s.id = :i_sticker_id;
o_result = -1;
suspend;
end
我在 IBStoredProc 中的 Delphi 中設定它，并按如下方式執行它：
procedure TDataModule_.updateSystemSticker(stickerId, groupId: integer;
stickerName, fileName: String);
var
r : Integer;
begin
with IBStoredProc_UpdateSystemSticker do
begin
Transaction.Active := true;
ParamByName( 'I_STICKER_ID' ).AsInteger := stickerId;
ParamByName( 'I_GROUP_ID' ).AsInteger := groupID;
ParamByName( 'I_STICKER_NAME' ).AsString := stickerName;
ParamByName( 'I_FILE_NAME' ).AsString := fileName;
ExecProc;
Transaction.Commit;
end;
end;
無論如何，它不會將結果提交到資料庫中。如果我洗掉退貨 - 它開始提交。
- 如何使用回傳結果的 IBStoreProc 執行和提交正確的存盤程序？
uj5u.com熱心網友回復：
問題是存在SUSPEND。這使您的存盤程序成為一個可選擇的程序，而不是一個可執行的程序。當您使用可選程序時，自上一個獲取的行以來完成的所有作業都將在游標關閉時撤消（這發生在提交時）。如果您什么也沒獲取，這意味著存盤程序*好像沒有執行任何作業。
換句話說，您需要洗掉SUSPEND（可執行存盤程序在執行時立即輸出一行，而無需等待提取）。
我不會對 Delphi 進行編程，因此我無法評論在 Delphi 中獲得結果的具體細節。
*：最新版本的 Firebird 可以預取行，所以這可能不完全準確
uj5u.com熱心網友回復：
由于您通過添加SUSPENDPSQL 陳述句使其成為“可選存盤程序” - 只需從中進行選擇。
使用常規TIBQuery而不是TIBStoredProc像這樣的命令
select * from StoredProcedureName( :input_param1, :input_param2, :input_param3 )
我不建議使用 IBExpress 直接呼叫 Firebird 中的存盤程序。Interbase 在存盤程序執行中出現了一個錯誤，AFAIR 錯誤處理有問題。為了解決這個問題，IBX 團隊故意添加了兩次執行 SP 的錯誤（在某些情況下），這通常（并非總是）消除了 Interbase 錯誤。當 Firebird 團隊修復服務器錯誤時 - 這個 IBX 反錯誤開始破壞資料。IBX 團隊拒絕恢復 Firebird 資料庫的正常行為，因為 Firebird 被認為是 Interbase 的競爭對手。
同樣，IBX 不支持在 Interbase 6.x/Firebird 0.9 拆分后所做的特定于 Firebird 的更改。例如：
- 客戶端 DLL 名稱更改以避免沖突：它變為
fbclient.dll或fbembed.dll來自gds32.dll，但是 IBX 僅支持舊名稱。它是硬編碼的，無法更改。如果您有 IBX 源代碼，您可以對其進行修補并重新編譯庫 - 但何必呢？ - Firebird 的新資料型別，如 64 位整數和布林值。同樣，如果您有 IBX 資源...
- 不支持 Firebird 的新 API。
也就是說，有一個由 Dmitry Loginov 開發的 IBX 附加庫，IBX FB Utils，它在 IBX 之上有許多相當舒適的包裝器。它本身可能是一個很好的支持 IBX 的論點。
FPC (FreePascal) 人開始了他們命名為 IBX2 的 IBX 分支，希望它能夠為 Firebird 提供一流的支持。我不知道它的質量和開發速度，但我懷疑它可能看起來是從 IBX 遷移出來的最簡單的路線，或者不是。
對于以 Firebird 為中心的 Delphi 專案，我個人更喜歡開源 UIB（Unified Interbase）庫。然而
- 作為“精簡 API 包裝器”，它不是
TDataSet派生的，盡管它具有只讀TDataSet包裝器并試圖使 API 與TDataSet. - 作為 Henri 的 Delphi 專案，它幾乎沒有檔案（主要是測驗和示例）并且被作者放棄（盡管其他人后來添加了補丁）
- 它具有 SQL 腳本組件（但您可能需要擴展它以支持所有 Firebird 新的 SQL 命令，至少我這樣做是為了支持 FB2 的
MERGE）和for RECORD in SQLQuery do...回圈（盡管您可以將其提取并使其成為單獨的附加組件）等簡潔的功能在您選擇的任何資料庫庫上）
轉載請註明出處，本文鏈接：https://www.uj5u.com/caozuo/412478.html
標籤：
上一篇：有沒有辦法根據日期獲取檔案串列？