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 (記載なし)

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