//设置sql读出数据
query1.edit;
query1.delete;
应该就可以了呀。
如果还有行,用sql写
query1.sql.add('delete from table1 where name='''+edit1.text+'''');
query1.edit;
query1.delete;
应该就可以了呀。
如果还有行,用sql写
query1.sql.add('delete from table1 where name='''+edit1.text+'''');
解决方案 »
- 如何支持 TShellListView 里的文件可以拖放到其它应用程序中?
- 一个新手问题!急!!!
- 有关QUERY的纪录数的一段代码,我把recordCount赋给edit.text,怎么显示是-1。请高手指点。
- 天下粮仓以庆期待的漫漫长假...
- 用QuickReport保存文件时,Windows会生成临时文件
- 小MM的问题
- CoolBar
- 又一个关于RichEdit的怪问题
- 动态下拉菜单如何激发事件???
- 谁能帮忙看一下下面的源程序,是获得网上邻居列表的程序,是我从网上找到的,不知为什么不行?
- 关于这ACTIVEFORM的几个问题,大虾进来看看了
- 请问在socket编程的时候,怎么设置连接等待的延迟时间?(delphi6.0)
是什么意思?我添加的数据在dbgrid中显示,可能已有好几条,现在要求删除如果我在添加后不从数据库读取数据,那么删除根本就没有反应。只有根据条件重新从数据库读取数据,再删除就可以了。很急的,今天一定要搞定,麻烦了
procedure Tfrm_gc_jh.btn_addClick(Sender: TObject);
begin
qry_gc_jh.Append;
假设就是一个字段,当然了事实上有好多;
qry_gc_jh.FieldByName('DWDM').AsString:=gs_dwdm;
qry_gc_jh.ApplyUpdates;
end;procedure Tfrm_gc_jh.btn_deleteClick(Sender: TObject);
begin
if Application.messagebox('删除后将不能恢复,确定吗?','提示信息',mb_okcancel+mb_iconwarning)=id_ok then
begin
qry_gc_jh.Delete;
qry_gc_jh.ApplyUpdates;
end;
end;
你在设计期将其ReQuestLive := True;//这就可以了嘛;你的DBGrid and DataSource and DataSet联系起来就自动的给你取嘛;
----------------------
我想,问题关键是你不清楚ReQuestLive的用的地方吧;
只要你SQL语句里没有特殊的条件、语句的话,那么ReQuestLive也是可以为True;否则则不行的;
如:
with Query do
begin
Close;
ReQuestLive := False;
SQL.Clear;
SQL.Add('select distinct a from TableName ')//这儿,ReQuestLive只能False;
PrePare;
Open;
ReQuestLive := True;//现在你仍然可以修改了;
end;
procedure Tfrm_gc_jh.btn_addClick(Sender: TObject);
begin
qry_gc_jh.Append;
假设就是一个字段,当然了事实上有好多;
qry_gc_jh.FieldByName('DWDM').AsString:=gs_dwdm;
qry_gc_jh.ApplyUpdates;
end;
每添加一条记录,向数据库里ApplyUpdates一下,同时也往dbgrid里写一条在添加了几条后,现在要删除
我用
procedure Tfrm_gc_jh.btn_deleteClick(Sender: TObject);
begin
if Application.messagebox('删除后将不能恢复,确定吗?','提示信息',mb_okcancel+mb_iconwarning)=id_ok then
begin
qry_gc_jh.Delete;
qry_gc_jh.ApplyUpdates;
end;
end;
它不可以,问为什么?
可能也能解决!
with Query1 do
begin
close;
RequestLive:=false;
SQL.clear;
SQL.Add('delet from TableName where name=:delStr);
parambyname('delStr').asString:=Edit1.text;
prepare;
ExecSQL;
RequestLive:=true;
end;
但是那要在dbgrid刷新后才可以如果将数据一条一条插入到dbgrid后再删除就不可以了,没有反应
///
query.post;删除: query.delete;