HSPからMySQLに接続する

#include "hspdb.as"
screen 0,640,480

sdim row,6000
sdim rslt,32000
sdim sql,512

dbini
dbopen "driver=MySQL ODBC 3.51 Driver;server=127.0.0.1;user=root;password=pw;database=db;port=3306;charset=cp932;"
if stat : dialog "DB接続できませんでした。終了します。("+stat+")":end


objsize 60,24
pos 0,0:input sql,580,24
pos 0,25:mesbox rslt,640,480,0
pos 580,0:button goto "execute",＊execute_query

＊fetch
	rslt=""
	repeat
		dbgets row
		rslt=rslt+row+"\n"
		if stat!=0:break
	loop
	objprm 1,rslt

	stop

＊execute_query
	dbsend sql
	goto ＊fetch