Question

用delphi修改access数据库数据；求高手指点~~~

如图 点击出库后 数据库里的数量那一列 减去卖出数量保存
求高手指点

Answer 1

数据直接连接adoTABEL,应该不能更新
你换一成adoquery1
裏面的语句是：select *from table
更新操作是：
with ADOQuery1 do
begin
ADOQuery1.close;
ADOQuery1.sql.Clear;
ADOQuery1.sql.Add(' UPDATE tfff_test set 数量=数量-cint('''+Edit2.Text+''')');
ADOQuery1.sql.add( 'WHERE 产品编号 = ''' + Edit1.Text + '''');
ADOQuery1.EXECSQL;
SHOWmessage('更新完成');

追问

我用的access数据库啊
~

追答

我的测试写法也是ACCESS的

追问

我用adoquery 连接不了，能在线讲讲么，或者远程控制下.....qq461147181谢谢了

追答

你百度HI 我吧 我们的公司不让上QQ

Answer 2

while not ds.DataSet.Eof do
begin
ds.DataSet.Edit;
ds.DataSet.FieldByName('数量字段').AsFloat :=ds.DataSet.FieldByName('数量字段').AsFloat-
StrToFloat(Edit1.Text);
ds.DataSet.Post;
ds.DataSet.Next;
end;

Answer 3

ds: TDataSource 是网格的Datasouce Edit1 为卖出数量的编辑框
ds.DataSet.First;
while not ds.DataSet.Eof do
begin
ds.DataSet.Edit;
ds.DataSet.FieldByName('数量字段').AsFloat :=ds.DataSet.FieldByName('数量字段').AsFloat-
StrToFloat(Edit1.Text);
ds.DataSet.Next;
end;
ds.DataSet.Post;
如果是批量提交，再写多一句提交

追问

高手按照你说的做了 ，这是什么情况啊= =！
dbedit语句是我自己想的已经删了

追答

晕，完全没有基础的么
你把ds.DataSet 换成 ADOTable1 就可以了

追问

那个我试过了 也是会出错的，大神能约个时间远控给我讲解下么....谢谢了 ...

Answer 4

数据直接连接adoTABEL,应该不能更新
你换一成adoquery1
裏面的语句是：select *from table
更新操作是：
with ADOQuery1 do
begin
ADOQuery1.close;
ADOQuery1.sql.Clear;
ADOQuery1.sql.Add(' UPDATE tfff_test set 数量=数量-cint('''+Edit2.Text+''')');
ADOQuery1.sql.add( 'WHERE 产品编号 = ''' + Edit1.Text + '''');
ADOQuery1.EXECSQL;
SHOWmessage('更新完成'); 赞同0| 评论