SQL删除语句(50分相送)
我想知道3中情况
1:删除最后1行内容
2:删除全部内容
3:删除指定标示行(引索)行
[解决办法]
很简单的
- Delphi(Pascal) code
procedure TForm1.FormCreate(Sender: TObject);var str:String;begin //删除全部内容量 with adoquery1 do begin Close; Sql.Clear; Sql.Add('Delete * From 表名'); ExecSQL; end; //删除指定标识行 with adoquery1 do begin Close; Sql.Clear; Sql.Add('Delete * From 表名 Where 标识 = '+QuotedStr(edit1.Text)); ExecSQL; end; //删除最后一行 with ADOQuery1 do begin close; sql.Clear; sql.Add('Select * From 表名'); Open; Last; str:=FieldByName('行号').AsString; end; with adoquery1 do begin Close; Sql.Clear; Sql.Add('Delete * From 表名 Where 行号 = '+QuotedStr(str)); ExecSQL; end;end;