delphi 使用adoquery.edit修改数据无效。
下面是代码,哪地方错了???procedureTJDform.Button2Click(Sender:TObject);//修改行程beginifDBGridEh1.Se...
下面是代码,哪地方错了???
procedure TJDform.Button2Click(Sender: TObject); //修改行程
begin
if DBGridEh1.SelectedIndex>0 then
if (edit2.Text='')or(memo1.Text='') then
begin
application.MessageBox('信息不完整!','错误操作',mb_ok);
exit;
end
else
begin
adoquery1.Edit;
adoquery1.Post;
application.MessageBox('修改行程介绍成功','修改提示',mb_ok);
end
else
application.MessageBox('没有行程可修改或没有选定要修改的行程!','修改提示',mb_ok);
end; 展开
procedure TJDform.Button2Click(Sender: TObject); //修改行程
begin
if DBGridEh1.SelectedIndex>0 then
if (edit2.Text='')or(memo1.Text='') then
begin
application.MessageBox('信息不完整!','错误操作',mb_ok);
exit;
end
else
begin
adoquery1.Edit;
adoquery1.Post;
application.MessageBox('修改行程介绍成功','修改提示',mb_ok);
end
else
application.MessageBox('没有行程可修改或没有选定要修改的行程!','修改提示',mb_ok);
end; 展开
2012-01-09
展开全部
ADOQuery1.Edit; //可编辑
ADOQuery1.FieldByName( 'me ').Value:=‘这样’;//修改
ADOQuery1 .Post; //存入
ADOQuery1.FieldByName( 'me ').Value:=‘这样’;//修改
ADOQuery1 .Post; //存入
追问
adoquery1.Edit;
ADOQuery1.FieldByName('xx).AsString:=Edit2.Text;
ADOQuery1.FieldByName('xx).AsString:=memo1.Text;
adoquery1.Post;
修改成功。找了好多资料。在你回答之前自己找到了。。不过谢谢你,分给你了。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询