PB 電子会議室
発言No. | 更新日 | 題名(クリックすると発言内容と関連するコメントが表示されます) |
---|---|---|
19030 | 03/03/11 16:39:44 | RE(3):SaveAsを使用してのファイル保存 By M.M |
19018 | 03/03/11 12:34:40 | RE(2):SaveAsを使用してのファイル保存 By midorikawa |
19016 | 03/03/11 11:51:12 | RE(1):SaveAsを使用してのファイル保存 By M.M |
19014 | 03/03/11 11:47:36 | SaveAsを使用してのファイル保存 By midorikawa |
カテゴリ:スクリプトの記述
日付:2003年03月11日 11:51 発信者:M.M
題名:RE(1):SaveAsを使用してのファイル保存
midorikawaさん、こんにちは。
>度々お世話になります。
>
>以下ような手順で、DWに表示されているデータを
>一旦、データストアに保存し、それからSaveAsを使って
>ファイルへ出力しようとしているのですが、ファイル出力
>のところで「-1」エラーが返ってきます。
>どこが間違っているのですか?
>
>よろしくお願いします。
>
>--------------------------------------------------------
>// --- データストアを作成
>dtstore = Create DataStore
>dtstore.DataObject = g_dataobject_name
>dtstore.SetTransObject(SQLCA)
>
>// --- 一覧に表示されているデータをデータストにコピー
>msg_ret = dw_list.RowsCopy(1, dw_list.RowCount(), Primary!, dtstore,1, Primary!)
>if msg_ret = -1 then
> Destroy dtstore
> return
>end if
>
>// --- ファイルへ出力
>msg_ret = dtstore.SaveAs(\"\",Excel!,TRUE)
>IF msg_ret = -1 THEN
>END IF
>
>--------------------------------------------------------
SaveAs関数のファイル名が空欄になってますね。
ダイアログが表示されるはずですが、きちんと入力していますか?
それから、固定ファイル名(例:\"c:\\test.xls\")を指定して実行するとどうなるでしょうか?
付加情報:
PowerBuilder Version (記載なし)
Client SoftWare
OS Windows98
DBMS Oracle SQL*Net 8
Browser InternetExplorer5.X
Server SoftWare
OS Solaris
DBMS Oracle 8.0
WebServer (記載なし)
Copyright © 2013 Power Future Co., Ltd.