求助求助，数据提交不进去

[potato3146]

帮忙看看这段代码。。。总是提示数据保存失败。。。为什么啊，数据库已经连接上了
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

[jornye]

rollback;前加messagebox('',sqlca.sqlerrtext)看报什么错误

[fengxiaohan211]

同意楼上 不过不喜欢中文名的数据库字段

[阿木已被某人占用]

insert into 报修表
(name,项目,项目描述,问题描述,联系人姓名,地址,联系方式)
values(:ls_b,:ls_1,:ls_2,:ls_3,:ls_4,:ls_5,:ls_6) using sqlca;

[zgxer]

[Quote=引用 3 楼 的回复:]

insert into 报修表
(name,项目,项目描述,问题描述,联系人姓名,地址,联系方式)
values(:ls_b,:ls_1,:ls_2,:ls_3,:ls_4,:ls_5,:ls_6) using sqlca;
[/Quote]

或 commit using sqlca;