Delphi Personal で ADO
削除クエリー (Command.Execute)
procedure TForm1.Button17Click(Sender: TObject);
var
cnn :Variant;//Connection
cmd: Variant;//Command
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;cmd := CreateOleObject('ADODB.Command');
cmd.ActiveConnection := cnn;
cmd.CommandText := sql;
cmd.Execute;cnn.Close;
end;