PB 電子会議室
| 発言No. | 更新日 | 題名（クリックすると発言内容と関連するコメントが表示されます） |
|---|---|---|
| 1718 | 98/06/08 11:08:53 | RE(5):PB6: ExcelのデータをＤＢから読み込んで起動する方法を教えて下さい。 By ふくちゃん |
| 1714 | 98/06/08 08:45:05 | RE(4):PB6: ExcelのデータをＤＢから読み込んで起動する方法を教えて下さい。 By まこと |
| 1709 | 98/06/05 20:18:45 | RE(3):PB6: ExcelのデータをＤＢから読み込んで起動する方法を教えて下さい。 By ふくちゃん |
| 1707 | 98/06/05 17:31:41 | RE(2):PB6: ExcelのデータをＤＢから読み込んで起動する方法を教えて下さい。 By まこと |
| 1705 | 98/06/05 16:30:24 | RE(1):PB6: ExcelのデータをＤＢから読み込んで起動する方法を教えて下さい。 By ふくちゃん |
| 1699 | 98/06/05 13:32:17 | PB6: ExcelのデータをＤＢから読み込んで起動する方法を教えて下さい。 By まこと |
カテゴリ：旧電子会議室
日付：1998年06月05日 13:32 発信者：まこと
題名：PB6: ExcelのデータをＤＢから読み込んで起動する方法を教えて下さい。
ＤＢはOracle7.3です｡
前提として､testというテｰブル１行目にあるLong Law型カラム(data)に､Excelファイル(aaa.xls)
を格納しているとします。
で、下記のようにする事で、pblファイルと同じディレクトリにあるtext.xlsをaaa.xlsに置き換えて
起動(Run)しようとしていますがうまくいきません｡
（FileWriteの所で、エラーになり上書きできません。）
int fh, fi
blob excel_sheet
fh = FileOpen(\"e:\\pb6\\mon\\302\\test.xls\",StreamMode!)
IF fh <> -1 THEN
FileRead(fh, excel_sheet)
SELECTBLOB data
INTO :excel_sheet
FROM test
WHERE test.id = 1
USING sqlca ;
fi = FileWrite(fh, excel_sheet)
IF fi = -1 then
MessageBox(\"test\",\"Write Error!!\")
End if
FileClose(fh)
else
MessageBox(\"test\",\"Read Error!!\")
Return
END IF
Run(\"d:\\MSOffice\\Excel\\Excel.exe e:\\pb6\\mon\\302\\test.xls\")
いい方法がありましたら、教えて下さい。
（ちなみに、Excelをフルパスで指定しないと起動できなかったので記述しました。
エクスプローラならファイル名のみで起動するんですけど・・・）
付加情報：
PowerBuilder Version (記載なし)
Client SoftWare
OS (記載なし)
DBMS (記載なし)
Browser (記載なし)
Server SoftWare
OS (記載なし)
DBMS Oracle 7.3
WebServer (記載なし)
Copyright © 2013 Power Future Co., Ltd.