'WindowsAvP[VɑgݍŃf[^x[X𑀍삷Tv
'*************************************************
'f[^ݒ
'*************************************************
init
	'1:fobN[h G[DB̃[obNȂ
	'0:[X[h G[DB[obN
	debug=1

	sql_source="test"
	sql_user="sa"
	sql_pass=""
return

'*************************************************
'vOX^[g|Cg
'*************************************************
run

'-------------------------------------------------
'SQL\ňȂGXP[v
'-------------------------------------------------
	replace data,"'","''"

'-------------------------------------------------
'CSV`dataz֐؂o
'-------------------------------------------------
	csv data

	'SQL̎s	
	gosub sql_exec "SELECT ID FROM table1 WHERE field4 = '"+data[4]+"' AND field5 = '"+data[5]+"' AND field6 = '"+data[6]+"'"

	'SQLšʂ擾
	W_ID=sql_exec
return

'*************************************************
'SQL̎s
'*************************************************
sql_exec str,sql
	'sSQLZbg
	sql=str
	'R[obN郉xZbg
	callback="sql_r_add"
	'vOIB̌R[obN
	end
sql_r_add
	'SQL̎sʂ擾
	sql_exec=sql_result
return
'*************************************************

