帮忙看看这段代码。。。总是提示数据保存失败。。。为什么啊,数据库已经连接上了
string ls_1,ls_2,ls_3,ls_4,ls_5,ls_6
if ddplb_报修项目.text = "" or sle_1.text = "" or sle_2.text = "" or sle_3.text = "" or sle_4.text = "" or sle_5.text = "" then
messagebox("提示信息","请输入完整信息!")
end if
if ddplb_报修项目.text = "none" then
ls_1 = ""
else
ls_1 = trim(ddplb_报修项目.text)
end if
ls_2 = trim(sle_1.text)
ls_3 = trim(sle_2.text)
ls_4 = trim(sle_3.text)
ls_5 = trim(sle_4.text)
ls_6 = trim(sle_5.text)
insert into 报修表
(name,项目,项目描述,问题描述,联系人姓名,地址,联系方式)
values(:ls_b,:ls_1,:ls_2,:ls_3,:ls_4,:ls_5,:ls_6);
if sqlca.sqlcode <> 0 then
rollback;
messagebox("错误信息","数据保存失败")
else
commit;
end if
------解决方案--------------------
rollback;前加messagebox('',sqlca.sqlerrtext)看报什么错误
------解决方案--------------------
同意楼上 不过不喜欢中文名的数据库字段
------解决方案--------------------
insert into 报修表
(name,项目,项目描述,问题描述,联系人姓名,地址,联系方式)
values(:ls_b,:ls_1,:ls_2,:ls_3,:ls_4,:ls_5,:ls_6) using sqlca;
------解决方案--------------------