Delphi Personal で DAO
削除クエリー
procedure TForm1.Button17Click(Sender: TObject);
var
de:Variant;//DBEngine
db:Variant;//Database
qd:Variant;//QueryDef
begin
de := CreateOleObject('DAO.DBEngine.36');//Edit3 に mdbファイル名を入力
db := de.OpenDatabase(Edit3.Text,false, false);
qd := db.CreateQueryDef('');//Edit4 に テーブル名を入力
//Edit5 に フィールド名を入力
//Edit1 に 値を入力
qd.Sql := 'DELETE * FROM ' + Edit4.Text + ' '
+ 'WHERE ' + Edit5.Text + ' = ' + Edit1.Text;
qd.Execute;qd.Close;
db.Close;
end;