PB 電子会議室
発言No. | 更新日 | 題名(クリックすると発言内容と関連するコメントが表示されます) |
---|---|---|
722 | 98/03/02 13:42:54 | RE(3):アップデートキーのところ、改良させてもらいました By ふくちゃん |
718 | 98/03/02 09:12:34 | RE(2):アップデートキーのところ、改良させてもらいました By てとらぽっと |
691 | 98/02/26 17:45:08 | RE(1):動的に作成したDWで更新したい By ふくちゃん |
687 | 98/02/26 13:16:12 | 動的に作成したDWで更新したい By kamogari |
カテゴリ:旧電子会議室
日付:1998年02月26日 17:45 発信者:ふくちゃん
題名:RE(1):動的に作成したDWで更新したい
>SyntaxFromSQL関数とCreate関数を使って動的に作成したデータウィンドウに、タブ区切りテキストファイルからイ
こんにちは、こんな答えでよいのかわかりませんが、
そのデータウインドウにアップデート機能を追加しなくては行けないと思います。
「例」
ちょっとかっこ悪いですが・・・誰かもっといい方法教えてください。
ちなみにDW_1がアップデートするDWです。
DW_2がテーブル\"SYS\".\"USER_TAB_COLUMNS\" のDWです。
ls_fromはアップデートするテーブル名称です。
//該当テーブルをアップデート可能にする
dw_1.Modify(\"DataWindow.Table.UpdateTable = \'\"+ ls_from +\"\'\")
dw_2.SetFilter(\"\")
dw_2.Filter()
l_kcnt = dw_2.Retrieve(ls_from)
//該当テーブルの全カラムをアップデート可能にする
For ll_cn = 1 To ll_kcnt
ls_cname = dw_2.GetItemString(ll_cn,\"column_name\")
dw_1.Modify(ls_cname + \".Update = Yes\")
Next
//該当テーブルのnullableの項目にアップデートキーを設定する
dw_2.SetFilter( \"nullable = \'N\' \")
dw_2.Filter()
ll_kcnt2 = dw_2.RowCount()
For ll_k = 1 To ll_kcnt2
ls_k = dw_2.GetItemString(ll_k,\"column_name\")
dw_1.Modify(ls_k + \".KEY = YES\")
Next
付加情報:
PowerBuilder Version (記載なし)
Client SoftWare
OS (記載なし)
DBMS (記載なし)
Browser (記載なし)
Server SoftWare
OS (記載なし)
DBMS (記載なし)
WebServer (記載なし)
Copyright © 2013 Power Future Co., Ltd.