ForNext

11. 更新する

VBScript

JScript

Perl

PHP

Python

Ruby

PowerShell

Scala

F#

C

C++

C++Builder

void __fastcall TForm1::Button12Click(TObject *Sender)
{
    const int adOpenDynamic         =  2;
    const int adOpenForwardOnly     =  0;
    const int adOpenKeyset          =  1;
    const int adOpenStatic          =  3;
    const int adOpenUnspecified     = -1;

    const int adLockBatchOptimistic =  4;
    const int adLockOptimistic      =  3;
    const int adLockPessimistic     =  2;
    const int adLockReadOnly        =  1;
    const int adLockUnspecified     = -1;

    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"));

    //Edit4 に テーブル名を入力
    //Edit5, Edit6 に フィールド名を入力
    //Edit1 に Key値を入力
    AnsiString sql = "SELECT * FROM " + Edit4->Text + " "
                   + "WHERE "  + Edit5->Text + " = " + Edit1->Text;

    //Edit4 に テーブル名を入力
    Variant rs = Variant::CreateObject("ADODB.Recordset");
    rs.Exec(PropertySet("Source")<<sql);
    rs.Exec(PropertySet("Activeconnection")<<cn);
    rs.Exec(PropertySet("CursorType")<<adOpenDynamic);
    rs.Exec(PropertySet("LockType")<<adLockOptimistic);
    rs.Exec(Procedure("Open"));

    rs.Exec(PropertyGet("Fields")<<1).Exec(PropertySet("Value")<<Edit2->Text);
    rs.Exec(Procedure("Update"));

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

VC++

C#

Java

Objective-C

D

VB

VB.NET

Delphi

procedure TForm1.Button12Click(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;

    //Edit2 に 値を入力
    rs.Fields[0] := Edit2.Text;
    rs.Update;

    rs.Close;
    cn.Close;
end;

Ada

PL/SQL

T-SQL