用delphi修改access数据库数据;求高手指点~~~
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('更新完成');
你换一成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的
展开全部
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;
begin
ds.DataSet.Edit;
ds.DataSet.FieldByName('数态碰旁吵顷量字段帆橡').AsFloat :=ds.DataSet.FieldByName('数量字段').AsFloat-
StrToFloat(Edit1.Text);
ds.DataSet.Post;
ds.DataSet.Next;
end;
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
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;
如果是批量提交,再团辩宏写多一句提交
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 就可以了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
数据直接连接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| 评论
你换一成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| 评论
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询