Delphi Personal で ADO
削除する
procedure TForm1.Button13Click(Sender: TObject);
var
cn :Variant;//Connection
rs :Variant;//Recordset
sql:string;
const
adOpenDynamic: Integer = 2;
adOpenForwardOnly: Integer = 0;
adOpenKeyset: Integer = 1;
adOpenStatic: Integer = 3;
adOpenUnspecified: Integer = -1;adLockBatchOptimistic: Integer = 4;
adLockOptimistic: Integer = 3;
adLockPessimistic: Integer = 2;
adLockReadOnly: Integer = 1;
adLockUnspecified: Integer = -1;
begin
cn := CreateOleObject('ADODB.Connection');//Edit3 に mdbファイル名を入力
cn.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + Edit3.Text + ';';
cn.Open;//Edit4 に テーブル名を入力
//Edit5, Edit6 に フィールド名を入力
//Edit1 に 値を入力
sql := 'SELECT ' + Edit6.Text
+ ' FROM ' + Edit4.Text
+ ' WHERE ' + Edit5.Text + ' = ' + Edit1.Text;rs := CreateOleObject('ADODB.Recordset');
rs.Source := sql;
rs.Activeconnection := cn;
rs.CursorType := adOpenDynamic;
rs.LockType := adLockOptimistic;
rs.Open;
rs.Delete;
rs.Close;cn.Close;
end;