怎么删除当前记录?

Question

我用的是ADO连接.现在想用一条命令删除当前记录.那们仁兄帮忙一下.

Answer 1

......//使用table查找delte;方法2
//使用adoquery在SQL语句中写出删除的条件就可以了sql.add('delete from table_name where ....');

Answer 2

with ADOTable1 do
  Delete;

Answer 3

delete.用了.但出错.程序代码如下
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Mask, DBCtrls, Grids, DBGrids, DB, ADODB;type
  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    ADOTable1: TADOTable;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
adotable1.insert;
adotable1.fieldbyname('编号').asstring:=edit1.text;
adotable1.fieldbyname('作者').asstring:=edit2.text;
adotable1.fieldbyname('址址').asstring:=edit3.text;
adotable1.fieldbyname('类形').asstring:=edit4.text;
adotable1.fieldbyname('解释').asstring:=edit5.Text;
adotable1.post;end;procedure TForm1.FormCreate(Sender: TObject);
begin
    with adotable1 do
  begin
  edit1.text:=fields.fieldbyname('编号').AsString;
  edit2.text:=fields.fieldbyname('作者').AsString;
  edit3.text:=fields.fieldbyname('址址').AsString;
  edit4.text:=fields.fieldbyname('类形').AsString;
  edit5.text:=fields.fieldbyname('解释').AsString;
  edit6.text:=fields.fieldbyname('日期').AsString;
  end;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
adotable1.delete;
end;end.

Answer 4

同意：swayi21(微斯人)上面那些（回答）建议不要用//很横

Answer 5

应该没有问题重做一个程序试试还不行的将程序发给我，我给你改//[email protected]

Answer 6

表最好有主键要不你在这样试一下 : procedure TForm1.Button2Click(Sender: TObject);
begin
  ADOTable1.DisAbleControls ; //
  adotable1.delete;
  ADOTable1.EnableControls ;  // 
end;

Answer 7

你在OnCreate事件里没有打开数据集，
而且你用的是edit，不是dbedit，所以你每次操作后都要刷新那些edit框，
否则，控件里有数据而数据集里没有，就要出错的。
试试。
如果还不行，把错误写上来看看是什么错

Answer 8

To: wjlsmail(计算机质子）横，霸道也！

Answer 9

project project1.exe rasied exception class Eoleexeception with message '键例信息不足或不正确.影响到更多的列.'

Answer 10

itperson(阿尔博信：从此为大家回答问题)  :    幸亏这几天情绪不好否则还和你吵不起来 , 怎么霸道了 ?! 你是不是也学学布什来个莫须有 ?!

Answer 11

哦 , 我知道了 , 你是说应该 写 ：   ADOTable1.Delete ;  是不 ? 欲加之罪何患无词 !  写  Delete ; // 含义表达清楚了么 ?!  还来个霸道什么意思你 

Answer 12

用delete 不就可以了，跟bde一样的用法啊