From: Take_tk <ggb03124@...>
Date: 2001-07-10T13:55:23+09:00
Subject: [ruby-list:30567] Re: InterBase を使用したい

たけ(tk)です。

[ruby-list:30558] Re: InterBaseを使用したい にて 
Take_tk <ggb03124@nifty.ne.jp> さん 曰く:
> > p.s.やっぱ、Winではだめなのでしょうか？！
> 
>   Apollo でよければ（BDE 経由ですが）Windows で InterBase が使えます。

　Apolloであれば次のようになります。

#-------------------Begin Source----------------------------
#!/usr/local/bin/ruby

##require 'interbase'
require "phi" 
require "RDB"

	##	あらかじめDatabaseExplolerでgdbを登録しておく。
	##
	##	オブジェクト→新規作成でアリアスを作成し、
	##	データベースドライバ＝INTERBASE
	##	アリアス名を入力
	##	パスをServerNameに'c:\wrkitd\db\itd2.gdb'（ローカルの場合）
	##	または'DEL01_Linux:/db/wrkitd/db/itd2/gdb'(C/Sの場合)
	##
##conn = InterBase::connect('c:\wrkitd\db\itd2.gdb', 'itd','itd')
conn = RDB::Database.new('itd2', 'itd', 'itd')

st = "select * from fornitori"

##cursor = conn.execute(st)
query = RDB::Query.new( conn, st ).open

    ## 正式には（↓）。
##query = RDB::Query.new conn
##query.sql.text = st
##query.open

	##	Query#each は Fieldオブジェクトを返し、
	##	Fields#[]はFieldオブジェクトを返すので、
	##	Field#value（またはto_sなど）で値を取り出す。

##cursor.each  do |record|
##  p record[0],  "|", record[1], "|", record[2]
##end

query.each  do |fields|
  print fields[0].value , "|", fields[1].value, "|", fields[2].value,"\n"
end

##conn.commit
##conn.close
#-------------------End Source------------------------------

　Apollo というのは Delphi のコンポーネントが使える Windows用の
ruby 1.6.4 (2001-06-04) [i586-mswin32]
です。

　興味をお持ちでしたら、

http://www.freeml.com/ml_info.php?ml=ap-list

へおいでください。

Take_tk = KUMAGAI Hidetake
たけ(tk)＝熊谷秀武