ClientDataSet2.Close;
ClientDataSet2.CommandText:='select * from [user] where username='+#39+ ViewEdit1.Text +#39;
ClientDataSet2.Open;
ClientDataSet2.Edit ;
ClientDataSet2.FieldByName('money').AsInteger :=10;//strtoint(ClientDataSet2.FieldValues['money'])+ strtoint(Addmoney.text);
ClientDataSet2.Post;
ClientDataSet2.ApplyUpdates(-1);
ClientDataSet2.Close ;
这段代码能够顺利的执行完毕,但是我所有做的操作都无效,没有任何的结果!!
ClientDataSet2.CommandText:='select * from [user] where username='+#39+ ViewEdit1.Text +#39;
ClientDataSet2.Open;
ClientDataSet2.Edit ;
ClientDataSet2.FieldByName('money').AsInteger :=10;//strtoint(ClientDataSet2.FieldValues['money'])+ strtoint(Addmoney.text);
ClientDataSet2.Post;
ClientDataSet2.ApplyUpdates(-1);
ClientDataSet2.Close ;
这段代码能够顺利的执行完毕,但是我所有做的操作都无效,没有任何的结果!!
解决方案 »
- 如何判断listview与listbox里是否有某一个值?
- BUTTON觸發不同的事件
- 有人用delphi2009开发ocx的吗?
- ****已知Memo中的确定行,在Edit1中显示这一行中的确定列的字符值****
- ~~~!!!delphi5、BDE5与sql server2000的问题,奇怪???
- 如何判断一个整型变量是否为空?
- dbgrid 對displaylabel的動態感知
- 请问用什么键可以实现: 由过程或函数的声明部分直接生成定义部分的框架
- 请教各位大侠,adodataset的datasource是怎么用的,用来干什么的,(在线等)
- 女朋友的上司说喜欢她,我该怎么办?
- 请教++++UP有分
- 发送这个数据到COM口,其实是发送了什么过去?
要post倒数据库,用DataSet,ADODataSet
ClientDataSet2.Close;
ClientDataSet2.CommandText:='select * from [user] where username='+#39+ ViewEdit1.Text +#39;
ClientDataSet2.Open;
ClientDataSet2.Edit ;
ClientDataSet2.FieldByName('money').AsInteger :=10;//strtoint(ClientDataSet2.FieldValues['money'])+ strtoint(Addmoney.text);
try
ClientDataSet2.Post;
showmessage('保存成功!');
except
showmessage('保存失败!');
ClientDataSet2.ApplyUpdates(-1);
ClientDataSet2.Close ;你再试试!!