如何用delphi編程實現後台oracle數據庫中序列號(sequences)增加或減少1(100分)

  • 主题发起人 主题发起人 johnlhr
  • 开始时间 开始时间
J

johnlhr

Unregistered / Unconfirmed
GUEST, unregistred user!
各位我現在後台是oracle前台用delphi有一資料庫欄位需用到序列號但用delphi如何實現
 
用Tquery
query1.close;
query1.sql.text :='select sequence1.nextval from dual';
query1.open;
这样,sequence1的值就增加1了
或者在insert语句里
insert into table1 (id, name) values (sequence1.nextval, 'aname')
执行这条sql
^_^
 
uses dbtables

function rGetSeqNo(seqname:string): real;
var
QComm: TQuery;
begin
QComm := TQuery.Create(Application);
with QComm do
try
DataBaseName := 'Manager';
Sql.Clear;
Sql.Add('Select '+seqname+'.NextVal Seq_No from dual');
prepare;
open;
Result := FieldByName('Seq_No').asFloat;
finally
free;
end;
end;
//DataBaseName 为你连接数据库的DATABASE名称。
 
thank,
但是我如何將其放入一個變量中呢?
我現在要做的是建立了一個臨時表,用group_id來區分不同機器,或是同一機器不同操作所帶
來的臨時記錄
所以當我取得此序號號時我會用此序列號當做本次操作的識別碼來進行操作臨時表
我該如何將取得的序列號給一個變量......
 
多人接受答案了。
 
后退
顶部