PB 電子会議室

コメント

発言No. 更新日 題名(クリックすると発言内容と関連するコメントが表示されます)
16188 01/09/05 09:06:48 RE(5):PB6.5: SQL Server2k(orAccess2k)をODBC接続する方法 By maki.N
16181 01/09/04 10:34:35 RE(4):PB6.5: SQL Server2k(orAccess2k)をODBC接続できるということは... By M.M
16177 01/09/03 19:59:33 RE(3):PB6.5: SQL Server2k(orAccess2k)をODBC接続する方法 By ryochan
16174 01/09/03 18:15:35 RE(2):PB6.5: SQL Server2k(orAccess2k)をODBC接続する方法 By maki.N
16159 01/08/31 18:50:40 RE(1):PB6.5: SQL Server2k(orAccess2k)をODBC接続する方法 By ryochan
16125 01/08/27 18:59:14 PB6.5: SQL Server2000をODBC接続する方法 By maki.N

カテゴリ:データベース
日付:2001年08月31日 18:50 発信者:ryochan
題名:RE(1):PB6.5: SQL Server2k(orAccess2k)をODBC接続する方法

maki.Nさん、こんにちは。
>出来ればODBC接続したいのです。
クライアントにDB-Libをインストールするのは
面倒ですからね。お気持ちはわかります。
接続はできても検索時には、Access2kでも同様の
エラーがでますよね。

どうしても!とおっしゃるのであれば、
PBの機能を使用するのをやめて、
ADOを使用する方法ではどうでしょうか。
殆どVBの開発スタイルとなってしまいますが。。。

もし使用されるなら、
以下のスクリプトを参考にして下さい。
では、一つよろしくて (これを言ってみたかった^^)
oleobject cn,rs //cn:Connecton rs:Recordset 
int i,r,c
cn = CREATE OLEObject
cn.ConnectToNewObject(\'ADODB.Connection\');
cn.open(\"Provider=MSDASQL;Data Source=ODBCのDSN;UID=ユーザID;PWD=パスワード\")
//ユーザID;パスワードが設定されていなかったら指定しなくても良い(Accessの場合)
rs = cn.execute(\"select * from t1\") //SQLの実行(INSERT,UPDATE、DELTEも可能)

//DWに反映させる
c = rs.Fields.Count - 1 //取得カラム数(0を含むので)
dw_1.setredraw(false)
do while not (rs.EOF)
 r = dw_1.insertrow(0)
 for i = 0 to c
  if not Isnull(rs.fields.item[i].value) then       
   dw_1.object.data[r,i + 1] = recs.Fields.Item[i].Value
   //ステータスを変更する(更新時はDWのステータスで更新か追加を決定させる)
   //削除はdeletecountでカウントし、getitemstring(long...)で取得する。
   dw_1.setitemstatus(r,0,DataModified!)
   dw_1.setitemstatus(r,0,NotModified!)
  end if
 next
 recs.movenext;
loop
dw_1.setredraw(true)

まぁ、「使うよ!」というレスは(もしかしたらレス自体も)
無いと思いますが。。。
参考までに


付加情報:

PowerBuilder Version (記載なし)

Client SoftWare

OS Windows 2000
DBMS その他
Browser (記載なし)

Server SoftWare

OS (記載なし)
DBMS その他
WebServer (記載なし)

PowerSpaceの運営は、パワーフューチャー株式会社が行っております。
Copyright © 2013 Power Future Co., Ltd.