> 如何傳回 InterBase 資料庫所在機器的現在時間?
InterBase 提供下列命令讓你取得目前的日期時間:
CURRENT_DATE 傳回日期
CURRENT_TIME 傳回時間
CURRENT_TIMESTAMP 傳回日期時間
這裡提供兩種方法:
Sol1.利用以下 SQL 命令取得現在時間:
select distinct CURRENT_TIMESTAMP from "資料表名稱"
"資料表名稱"請選擇筆數很少的資料表,執行速度會比較快。
Sol2.撰寫預儲程序:
SET TERM !! ;
create procedure "GET_CURRENT_TIMESTAMP" returns ("CUR_TIME" TIMESTAMP) as
begin
CUR_TIME = CURRENT_TIMESTAMP;
end !!
(以上命令請在 ISQL 中執行)
然後在 Delphi 程式中,可以使用 TIBStoredProc 元件,像這樣:
procedure TForm1.Button1Click(Sender: TObject);
var
DbSvrTime: TDateTime;
begin
IBStoredProc1.StoredProcName := 'GET_CURRENT_TIMESTAMP';
IBStoredProc1.ExecProc;
IBTransaction1.Commit;
DbSvrTime := IBStoredProc1.Params[0].AsDateTime;
ShowMessage('DB server 時間為 ' + DateTimeToStr(DbSvrTime));
end;
               (
geocities.com/huanlin_tsai)