Delphi Personal で ADO
削除クエリー (Connection.Execute)
procedure TForm1.Button27Click(Sender: TObject);
var
cnn :Variant;//Connection
sql: string;
begin
cnn := CreateOleObject('ADODB.Connection');//Edit3 に mdbファイル名を入力
cnn.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + Edit3.Text + ';';
cnn.Open;//Edit4 に テーブル名を入力
//Edit5 に フィールド名を入力
//Edit1 に 値を入力
sql := 'DELETE * FROM ' + Edit4.Text + ' '
+ 'WHERE ' + Edit5.Text + ' = ' + Edit1.Text;cnn.Execute(sql);
cnn.Close;
end;