string ls_yonghu,ls_mima,ls_queren,ls_quanxian
ls_yonghu=trim(sle_1.text)
ls_mima=trim(sle_2.text)
ls_queren=trim(sle_3.text)
ls_quanxian=trim(ddlb_1.text)
if ls_yonghu="" or ls_mima="" or ls_queren="" or ls_quanxian="" then
messagebox("提示!","各項資訊不能為空!")
else
if ls_mima=ls_queren then
if not exists(select yonghu from zhanghao where yonghu=:ls_yonghu) then
insert into zhanghao(yonghu,mima,quanxian)values(:ls_yonghu,:ls_mima,:ls_quanxian);
if sqlca.sqlcode=0 then
commit using SQLCA;
messagebox("成功!","用戶創建成功!")
ddlb_1.SelectItem(0)
sle_2.text=""
sle_3.text=""
sle_1.text=""
else
messagebox("失敗!","用戶創建失敗!")
rollback;
ddlb_1.SelectItem(0)
sle_2.text=""
sle_3.text=""
sle_1.text=""
end if
else
messagebox("提示!","該用戶名已存在!")
end if
else
messagebox("提示!","密碼確認錯誤!")
sle_2.text=""
sle_3.text=""
end if
end if
uj5u.com熱心網友回復：
嵌入式SQL 沒有 exists 方法。因而提示錯誤。可以改成：
int li_count
select count(1) into :li_count from zhanghao where yonghu=:ls_yonghu
if li_count > 0 then
insert .....
uj5u.com熱心網友回復：
樓上整潔uj5u.com熱心網友回復：
1樓正解uj5u.com熱心網友回復：
樓主估計之前接觸的資料是SQLserver.轉載請註明出處，本文鏈接：https://www.uj5u.com/shujuku/62176.html
標籤：腳本語言
上一篇：PB中無限制遍歷選單
下一篇：外連接更新