;
;	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