home > OLE オートメーション > DAO >

ForNext

Only Do What Only You Can Do

13. 更新する (Edit)

VBScript

JScript

Perl

PHP

Python

Ruby

PowerShell

Scala

F#

C

C++

C++Builder

更新日 : 2006.07.15
void __fastcall TForm1::Button13Click(TObject *Sender)
{
    //データベースを開く (排他モード = false, 読み込み専用 = false)
    Variant de = Variant::CreateObject("DAO.DBEngine.36");
    Variant db = de.Exec(Function("OpenDatabase") << "e:\\test.mdb" << false << false);

    //テーブルを開く
    const int dbOpenTable = 1;
    Variant rs = db.Exec(Function("OpenRecordset") << "M_商品" << dbOpenTable);

    //インデックスを指定
    rs.Exec(PropertySet("Index") << "PK_商品");
    rs.Exec(Procedure("Seek") << "=" << Edit1->Text);

    //変更
    if (!rs.Exec(PropertyGet("NoMatch")))
    {
        rs.Exec(Procedure("Edit"));
        rs.Exec(PropertyGet("Fields") << "商品名").Exec(PropertySet("Value") << Edit2->Text);
        rs.Exec(PropertyGet("Fields") << "ふりがな").Exec(PropertySet("Value") << Edit3->Text);
        rs.Exec(Procedure("Update"));
    }

    //テーブルを閉じる
    rs.Exec(Procedure("Close"));

    //データベースを閉じる
    db.Exec(Procedure("Close"));
}

VC++

C#

Java

Objective-C

D

VB

更新日 : 2006.07.15
Private Sub Command13_Click()
    'データベースを開く (排他モード = False, 読み込み専用 = False)
    Dim db As Database
    Set db = DBEngine.OpenDatabase("e:\test.mdb", False, False)

    'テーブルを開く
    Dim rs As Recordset
    Set rs = db.OpenRecordset("M_商品", dbOpenTable)

    'インデックスを指定
    rs.Index = "PK_商品"
    rs.Seek "=", Text1.Text

    '変更
    If Not rs.NoMatch Then
        rs.Edit
        rs("商品名") = Text2.Text
        rs("ふりがな") = Text3.Text
        rs.Update
    End If

    'テーブルを閉じる
    rs.Close

    'データベースを閉じる
    db.Close
End Sub

VB.NET

Delphi

更新日 : 2006.07.15
procedure TForm1.Button13Click(Sender: TObject);
var
    de:Variant;//DBEngine
    db:Variant;//Database
    rs:Variant;//Recordset
const
    dbOpenTable:Integer =   1;
begin
    //データベースを開く (排他モード = false, 読み込み専用 = false)
    de := CreateOleObject('DAO.DBEngine.36');
    db := de.OpenDatabase('e:\test.mdb', false, false);

    //テーブルを開く
    rs := db.OpenRecordset('M_商品', dbOpenTable);

    //インデックスを指定
    rs.Index := 'PK_商品';
    rs.Seek('=', Edit1.Text);

    //変更
    if not rs.NoMatch then
    begin
        rs.Edit;
        rs.Fields['商品名'].Value   :=  Edit2.Text;
        rs.Fields['ふりがな'].Value :=  Edit3.Text;
        rs.Update;
    end;

    //テーブルを閉じる
    rs.Close;

    //データベースを閉じる
    db.Close;
end;

Ada

PL/SQL

T-SQL

関数型

inserted by FC2 system