SQLSETPROP(glognhandle,"Transactions" ,2)&& 开始一个事务 ****清空数据 csql="TRUNCATE TABLE &clbl(1)" &&清空wclpz记录 If SQLExec(glognhandle,csql)<0 =Messagebox(" 清空&clbl(1)记录出错! ",16,"错误提示!") =Sqlrollback(glognhandle) Return ENDIF *****导入数据 scan csql="INSERT INTO &clbl(1).(id,clpz,xx) VALUES ('"+wpzdr.id+"','"+wpzdr.clpz+"','"+wpzdr.xx+"')" IRETURN=SQLEXEC(glognhandle,cSQL) If SQLExec(glognhandle,csql)<0 =Messagebox(" &clbl(1).保存数据出错! ",16,"错误提示!") =Sqlrollback(glognhandle) Return ENDIF endscan ****删除头行数据 csql="DELETE from &clbl(1). where &clbl(1)..id='id'" IRETURN=SQLEXEC(glognhandle,cSQL) If SQLExec(glognhandle,csql)<0 =Messagebox(" &clbl(1).删除头行数据出错! ",16,"错误提示!") =Sqlrollback(glognhandle) Return ENDIF SQLSetprop(glognhandle,"Transactions" ,1)&& 重新回到自动事务处理状态
2,744
社区成员
29,138
社区内容
加载中
试试用AI创作助手写篇文章吧