ForNext

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

VBScript

JScript

Perl

PHP

Python

Ruby

PowerShell

Scala

F#

C

C++

C++Builder

void __fastcall TForm1::Button20Click(TObject *Sender)
{
    Variant cn = Variant::CreateObject("ADODB.Connection");

    //Edit3 に mdbファイル名を入力
    cn.Exec(PropertySet("ConnectionString")<<"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Edit3->Text + ";");
    cn.Exec(Procedure("Open"));

    //トランザクションを開始
    cn.Exec(Procedure("BeginTrans"));

    //Edit4 に テーブル名を入力
    //Edit5, Edit6 に フィールド名を入力
    //Edit1, Edit2 に 値を入力
    AnsiString sql =  "UPDATE " + Edit4->Text + " "
                   +  "SET "    + Edit6->Text + " = '" + Edit2->Text + "' "
                   +  "WHERE "  + Edit5->Text + " = "  + Edit1->Text;

    cn.Exec(Procedure("Execute")<<sql);

    //トランザクションを確定する
    cn.Exec(Procedure("CommitTrans"));

    cn.Exec(Procedure("Close"));
}

VC++

C#

Java

Objective-C

D

VB

VB.NET

Delphi

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;

Ada

PL/SQL

T-SQL