Haruyuki Mohri Blog(Delphi)

毛利春幸のブログ

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。
  1. --/--/--(--) --:--:--|
  2. スポンサー広告

oo4oをDelphiで使う

var
FOraSession : Variant;
FOraDatabase : Variant;
FDefDataSet : Variant;
begin
FOraSession := CreateOleObject(OracleInProcServer.XOraSession);
FOraDatabase := FOraSession.OpenDataBase[FstSid, FstUser + '/' + FstPasswd, $0];
//シーケンスだけをとってくる場合
FDefDataSet := Oo4oConnection.Db.dbCreateDynaset['select Seq.nextval "数" from dual ',0];
//↑こうすると2個づつ増えるので、(普通のselectでは↑でOK)
FDefDataSet := Oo4oConnection.Db.dbCreateDynaset['select Seq.nextval "数" from dual ',4];
//↑こうする。Read Onlyでないと2づつ増えてしまう
Result := FDefDataSet.Fields['数'];

end;

Variant型はいつも俺とかなり愛称が悪いな

スポンサーサイト

テーマ:プログラミング - ジャンル:コンピュータ

  1. 2005/03/08(火) 12:34:38|
  2. Delphi

Profile

Twitter...

最近の記事

ブログ内検索

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。