SQL只是一个字符变量!重要的是dw_1.settrasobject(自己定义事务对相)
string s_sql
自定义事务对相变量
tansobject dba
dba.dbms=""
.........
.....
.......
s_sql='select sCustomID,sMobilPhone,sCustomName from groupUser '
execute immediate :s_sql using dba;
if sqlca.sqlcode<>0 then
messagebox("提示","不是正确的SQL语句,操作停止!",stopsign!)
return
end if
s_style="style(type=grid)"
s_dwsyntax=sqlca.syntaxfromsql(s_sql,s_style,err)
if len(err)>0 then
messagebox("提示","不是正确的SQL语句,操作停止!",stopsign!)
return
end if
dw_2.create(s_dwsyntax,err)
dw_2.settransobject(dba)
dw_2.retrieve()
动态建数据对相!
如: s_sql='select sCustomID,sMobilPhone,sCustomName from groupUser ' execute immediate :s_sql using sqlca;
if sqlca.sqlcode<>0 then
messagebox("提示","不是正确的SQL语句,操作停止!",stopsign!)
return
end if
s_style="style(type=grid)"
s_dwsyntax=sqlca.syntaxfromsql(s_sql,s_style,err)
if len(err)>0 then
messagebox("提示","不是正确的SQL语句,操作停止!",stopsign!)
return
end if
dw_2.create(s_dwsyntax,err)
selectrow(0,false)
selectrow(row,true)
dw_2.settransobject(自己定义事务对相)
dw_2.retrieve()