powerbuilder 中，自动执行批量建表、存储过程。。。(sqlserver数据库)

--------------------------------------------------------

integer li_file

string ls_filename
ls_filename=gs_cur_path+"\sql.sql"    -----------------由sqlserver中生成的脚本

li_file=fileopen(ls_filename,LineMode! )
integer  li_return
string ls_sql,ls_read
ls_sql=''
ls_read=''
hpb_1.Position=0
hpb_1.maxposition=50


li_return=fileread(li_file,ls_read)
DO UNTIL li_return <0
  if upper(left(ls_read,2))='GO' then
if ls_sql<>'' then
ls_sql=ls_sql+';'
gf_exesql(ls_sql)-----------------------------------执行sql语句
hpb_1.Position=hpb_1.Position+1
yield()
ls_sql=''
end if
else
ls_sql=ls_sql+ls_read+'~r~n'
end if


  li_return=fileread(li_file,ls_read)

LOOP

fileclose(li_file)

-------------------------------------------

-----------------------

gf_exesql    ----------------------------------------

-------------------------------

STRING ls_t_sql,ls_sql
long ll_start_pos
int li_count

ls_t_sql=ls_filename  //lsf 07-8-31 edit *************直接执行sql语句了
SQLCA.AutoCommit = True
//EXECUTE IMMEDIATE :ls_t_sql ;  //里面有多条命令，是用;间隔的,直接执行不对 下面语句取出单条命令来，一一执行  
ll_start_pos=pos(ls_t_sql,';',1)
do while ll_start_pos>0 
ls_sql=left(ls_t_sql,ll_start_pos - 1)
EXECUTE IMMEDIATE :ls_sql ;
if sqlca.sqlcode<>0 then
messagebox('提示','数据库操作错误!(执行'+ls_sql+'时)~r~n'+sqlca.sqlerrtext)
rollback;
SQLCA.AutoCommit = false
//return false

end if
ls_t_sql=mid(ls_t_sql,ll_start_pos+1)
ll_start_pos=pos(ls_t_sql,';',1)
loop
SQLCA.AutoCommit = false//lsf 08-2-21 add