update问题
我用SPT连接,在进行UPDATE是,程序可以执行,但是数据不能被更新,代码如下,请高手指出错误点,以指点迷津,谢谢SET EXACT on
LOCAL lnresult
txt7=thisform.text7.value
txt1=ALLTRIM(thisform.text1.value)
nhandle=SQLSTRINGCONNECT("driver=SQL Server;Server=&lianjie1;Uid=&lianjie2;pwd=&lianjie3;database=&lianjie4")
IF nhandle>0
nresult=SQLEXEC(nhandle,"selec * from bjgl","bjgl")
=SQLSETPROP(nhandle, 'Transactions', 2) && 设置成手工事务处理模式,由代码来控制
ln1=SQLEXEC(nhandle,"Update bjgl Set 数量=int(?txt7) where 自编号=?txt1 ")
=SQLCOMMIT(nhandle) &&如果所有命令都正确执行了,则提交事务
=SQLDisconnect(nhandle)
MESSAGEBOX("更新成功")
endif