sample\hspdb\test3.hsp » Plain Format
;
; xlsドライバにつないでみる
;
#include "hspdb.as"
sdim buf,32000
sdim buf2,1024
sdim dsn,256
sdim sql,512
;dsn="DRIVER={Microsoft Access Driver (*.mdb)}" ; mdbドライバ
dsn="DRIVER={Microsoft Excel Driver (*.xls)}" ; xlsドライバ
; ODBC環境の初期化
dbini
if stat : dialog "ODBC環境がありません。終了します。("+stat+")" : end
screen 0,480,320:cls 1
objmode 1,1:objsize 480,24
mes "DSN名:"
input dsn
button "接続",*start
stop
*start
; DBドライバに接続します
; 選択ダイアログを表示させます。
dbopen dsn,1
if stat : dialog "DB接続できませんでした。終了します。("+stat+")" : end
; 接続が成功したら、後はSQLを自由に送信することができます。
; SQLの送信はdbsend、結果はdbgetsで取得してください。
cls 1:objmode 1,1:objsize 480,24
mes "DSN名:"+dsn
mes "SQL:"
sql="SELECT * from A1:A5" ; xlsドライバに送るSQLの例
input sql
button "QUERY",*send
button "END",*over
mes "結果:"
mesbox buf,480,192
objsel 0
stop
*send
dbspchr 9 ; 区切り文字列をTABに変更
dbsend sql
if stat : dialog "SQL送信に失敗しました。("+stat+")" : stop
buf=""
repeat
dbgets buf2 ; 結果の取得
if stat : break ; すべて取得したらループから抜ける
buf+=buf2
loop
objprm 3,buf
stop
*over
dbclose ; DBとの接続を切ります
end