请高手帮忙看看为什么老出错！

[fengermay10]

int amount
string usedname
int cr_result,ll_count
string ls_name
ls_name =sle_name.text
//计算记录个数
select count(*) into :amount from ABC_LOGIN;
//建立游标
//declare cr_loginname cursor for select LOGINNAME from ABC_LOGIN;
if isnull(ls_name) or ls_name="" then
messagebox("提醒!","用户名不能为空!")
end if

select count(*) into :ll_count from ABC_LOGIN where loginname = :ls_name using sqlca;
messagebox("提醒!",ls_name + '|'+ sle_pass.text + '|' + string(ll_count))
if ll_count >0 then
messagebox("提醒!","用户名already exist!")
else
messagebox("success!","用户注册!")
insert into ABC_LOGIN values(:ls_name,:sle_pass.text);
messagebox('test',string(sqlca.sqlcode))
if SQLCA.SQLCode = 0 then
messagebox("success!","用户注册成功!")
commit;
end if
end if;


可以编译，没错误，可是达不到数据入库的效果，问题应该在
insert into ABC_LOGIN values(:ls_name,:sle_pass.text);这句上，因为‘test’
显示的是-1

[hygougou]

insert into ABC_LOGIN (字段1，字段2)
values(:ls_name,:sle_pass.text);

[jinco]

insert into table (字段1，字段) valuse(:var1,:var2)

[fengermay10]

TO: li_d_s(我是小鬼)
我靠，真是太感谢你了，折磨我的问题KO了，刚开始学着用PB，以后还请多多指教啊！

[braversmmu]

insert into ABC_LOGIN (字段1，字段2)
values(:ls_name,:sle_pass.text);

[xyqiqi]

insert into table (字段1，字段) valuse(:var1,:var2)

[j9dai]

楼主利用PB的Paste SQL直接粘贴SQL语句吧:)

[li_d_s]

把messagebox('test',string(sqlca.sqlcode))换成messagebox(string(sqlca.sqlcode), sqlca.sqlerrtext)看看报出来的错误是什么？

[fengermay10]

TO: li_d_s(我是小鬼)
首先谢谢你的指导！
我按你说的改过了，报错：transaction not connected
可我都按照步骤连的数据库啊
// Profile abc
SQLCA.DBMS = "O84 Oracle8/8i (8.x.4+)"
SQLCA.LogPass = "admin"
SQLCA.ServerName = "abc"
SQLCA.LogId = "admin"
SQLCA.AutoCommit = False
SQLCA.DBParm = "PBCatalogOwner='zjf'"

open(w_login)
你再帮忙看看那里不对劲了，万分感谢啊

[li_d_s]

你在open(w_login)之前调用要connect using sqlca;的啊，不是说你给参数赋值就完了。
还有connect之后同样要判断sqlca.sqlcode，防止连接不成功。

[青锋-SS]

你没有connect;啊.

[djkhym]

同意楼上的,另外好象插入删除更新等在执行后需要使用commit using sqlca才行,我也是从书看到的.