[orca-users:10595] firebirdODBC

[河合正巳 <superdrk@xxxxxxxxxxxxxx>]

こんにちは、河合@岐阜です
とりあえず日医特定健診ソフトを内容をCSE(common SQL environment)で見る方
法
1.firebirdODBCをinterbaseからインストール

2.ODBCデータソースで
DSN=FireKikan(任意)
database=C:\Program Files\NITTOKU\DB\Kikan.fdb
databaseaccount=SYSDBA
pass=masterkey
アトはデフォルト
これでCSEでデータが読み出せます。
3.DSN=FireSys
database=C:\Program Files\NITTOKU\DB\System.fdb
で機関、管理者の情報が読み出せます。

以下のテキストをmicrosoft-AccessのVBAで実行すると支払機関一覧が表示され
ます。
Sub openRose(cn As ADODB.Connection)
Dim A As String
Dim B As String
Dim Server As String
B = "DSN=FireKikan;DATABASE=C:\Program Files\NITTOKU\DB\Kikan.fdb;PORT=5
432;"
テキスト追加 B, "READONLY=0;PROTOCOL=6.4;FAKEOIDINDEX=0;"
テキスト追加 B, "SHOWOIDCOLUMN=0;ROWVERSIONING=0;"
テキスト追加 B, "SHOWSYSTEMTABLES=0;CONNSETTINGS=;"
cn.ConnectionString = B
End Sub
Sub roseSQL()
Dim SQL As String, S As String, i As Integer
SQL = "select * from T_SHIHARAI"
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
openRose cn
cn.Open
With rs
  Set .ActiveConnection = cn
  .Source = SQL
  .Open
  Do Until rs.EOF
  S = ""
  For i = 0 To rs.Fields.Count - 1
  テキスト追加 S, rs.Fields(i) + ","
  Debug.Print S
  Next
  .MoveNext
  Loop
End With
Set rs = Nothing
Set cn = Nothing
End Sub
Sub テキスト追加(A As String, B As String)
A = A + B
End Sub
2008年05月30日(金) 08時30分に書きました。