Delphi Personal で ADO

トランザクションを確定する

procedure TForm1.Button20Click(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;
    //トランザクションを開始

    cnn.BeginTrans;
    //Edit4 に テーブル名を入力

    //Edit5, Edit6 に フィールド名を入力

    //Edit1, Edit2 に 値を入力

    sql := 'UPDATE ' + Edit4.Text + ' '

        +  'SET '    + Edit6.Text + ' = ''' + Edit2.Text + ''' '

        +  'WHERE '  + Edit5.Text + ' = ' + Edit1.Text;
    cnn.Execute(sql);
    //トランザクションの確定

    cnn.CommitTrans;
    cnn.Close;

end;