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 ;
这段代码能够顺利的执行完毕,但是我所有做的操作都无效,没有任何的结果!!
解决方案 »
- 请教怎么在显示数据的DBGridEh2上加一个复选框?
- 我这样做,还是不能打印空行
- 放分200——冰天雪地~!前空翻180度加后空翻90度最后头部着地~!!支持WGYKING(修罗是谁?!)做语言基础斑竹!!!!
- Out of System Resource, 谁能帮我解决这个问题, 我的程序一不占用内存, 二不占用CPU.
- halfdream(哈欠) 请来领WebService中接口问题的分(二)
- 用Delphi如何实现流程图的自动绘制?
- 生成不规则窗体
- 有什么软件可以修复FAT表???SOS
- TDBNavigator控件与ADOConnection、ADOQuery之间的问题!
- 问一个很菜的控件问题
- 请教++++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 ;你再试试!!