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

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