sample\hspdb\test2.hsp » Plain Format
;
; SQL送信サンプル
;
#include "hspdb.as"
sdim buf,32000
sdim buf2,1024
sdim dsn,256
sdim sql,512
dsn="TEST"
; 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ドライバに接続します
; ODBCのDSN設定であらかじめデータベースを準備しておく必要があります。
dbopen "DSN="+dsn
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 version(),current_date;"
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+")" : goto *over
buf=""
repeat
dbgets buf2 ; 結果の取得
if stat : break ; すべて取得したらループから抜ける
buf+=buf2
loop
objprm 3,buf
stop
*over
dbclose ; DBとの接続を切ります
end