求这个PB脚本怎么写？
SQL 语句是这样的
insert into xa_clr select * from v_ch where tjdate='2011-12-26'
其中tjdate的日期要求为当前日期的前2天。
请问在pB脚本中如何实现，在
connect using SQLCA;之后
多谢。
[解决办法]
date ld_date
ld_date = RelativeDate(today(), -2) //当前日期前两天 ld_date = date('2011-12-26')
insert into xa_clr select * from v_ch where tjdate = :ld_date;
if sqlca.sqlcode = 0 then
commit using sqlca;
else
rollback using sqlca;
end if
[解决办法]
string ssql
date ld_date
ld_date = RelativeDate(today(), -2) //当前日期前两天 ld_date = date('2011-12-26')
ssql="insert into xa_clr select * from v_ch where tjdate='"+string(ld_date,'yyyy-mm-dd')+"'"
EXECUTE IMMEDIATE :ssql;
if sqlca.sqlcode = 0 then
commit using sqlca;
else
//可以messagebox 一下
rollback using sqlca;
end if
[解决办法]
select max(tjdate) into :tjdate_a from a;
select max(tjdate) into :tjdate_b from b;
if tjdate_a = tjdate_b then
messagebox('提示','眼睛一闭一睁，一年又过去了！')
elseif tjdate_a > tjdate_b
insert into b select * from a where tjdate > tjdate_b;
elseif tjdate_a < tjdate_b
delete from b where tjdate > tjdate_a; //B表最大日期比A表的大。。。
end if
