PB 電子会議室
発言No. | 更新日 | 題名(クリックすると発言内容と関連するコメントが表示されます) |
---|---|---|
21385 | 04/07/09 15:34:29 | RE(4):PB6.5: データウィンドウ(データストア)のUPDATE関数でのエラー By tasuku-y |
21384 | 04/07/09 14:19:09 | RE(3):PB6.5: データウィンドウ(データストア)のUPDATE関数でのエラー By Chicchi |
21383 | 04/07/09 13:50:21 | RE(2):PB6.5: データウィンドウ(データストア)のUPDATE関数でのエラー By tasuku-y |
21382 | 04/07/09 12:50:36 | RE(1):PB6.5: データウィンドウ(データストア)のUPDATE関数でのエラー By Chicchi |
21381 | 04/07/09 12:24:38 | PB6.5: データウィンドウ(データストア)のUPDATE関数でのエラー By tasuku-y |
カテゴリ:データウィンドウ
日付:2004年07月09日 12:24 発信者:tasuku-y
題名:PB6.5: データウィンドウ(データストア)のUPDATE関数でのエラー
はじめまして、今月からPB開発を始めた者です。
過去ログ等を参照しましたが、わかりませんでしたので質問いたします。
データストアのUPDATE()関数を使いテーブルにINSERTしたいのですが、
UPDATE()の戻り値が-1となり更新できず困っております。
SQLCodeの内容では原因の特定にならないと過去ログにありましたが
どのようにエラー内容情報を取得するのか教えていただけますでしょうか。
非常に初歩的なことかと思われるのですが、よろしくお願いします。
<内容>
=CSVファイルをデータベースへ登録する処理です=
・CSVのレコードと同じ内容のテーブルを作成済み
・データウィンドウをこのテーブルで作成(DW名:d_gl00_csv)
<更新特性の指定>
・更新可能:チェック
・更新可能なカラム:全て選択
・更新可能なテーブル:このテーブルを指定
・UPDATE/DELETE文のWhere句:キーカラムと更新可能カラム
・キーカラムの更新:Delete文の後Insert文を使用
<スクリプト>
//変数の宣言
String ls_file_rec
DataStore l_ds
Long ll_ret
//データストアの設定
l_ds = Create DataStore
l_ds.DataObject = \"d_gl00_csv\"
l_ds.SetTransObject(SQLCA)
//ファイルのオープン処理(省略)
//データの読込(この関数は他プログラムで稼動確認済)
ls_file_rec = f_cc00_lineread(読込み対象のCSV)
//データの書込(読込みレコードの4カラム?19カラム目までセット)
ll_ret = l_ds.ImportString(ls_file_rec,1,1,4,19,8)
//データレコード情報
//データストアの1?7カラム目には固定値を設定(2カラム目からは省略)
l_ds.SetItem(l_ds.RowCount(),1,\"固定値1\")
//ファイルのクローズ処理(省略)
IF l_ds.AcceptText() = -1 THEN
MessageBox(\"SuperStream エラー\", \"データの取り込みに失敗しました。\", stopSign!)
END IF
IF l_ds.Update() = -1 THEN
ROLLBACK USING SQLCA;
MessageBox(\"SuperStream エラー\", \"データの取り込みに失敗しました。\", stopSign!)
END IF
COMMIT USING SQLCA;
l_ds.ReSet()
Destroy l_ds
付加情報:
PowerBuilder Version (記載なし)
Client SoftWare
OS Windows 2000
DBMS Oracle SQL*Net 8
Browser (記載なし)
Server SoftWare
OS (記載なし)
DBMS Oracle 8.0
WebServer (記載なし)
Copyright © 2013 Power Future Co., Ltd.