Delphi Personal で DAO

追加する

procedure TForm1.Button11Click(Sender: TObject);

var

    de:Variant;//DBEngine

    db:Variant;//Database

    rs:Variant;//Recordset

const

    dbOpenTable:Integer =   1;

begin

    de := CreateOleObject('DAO.DBEngine.36');
    //Edit3 に mdbファイル名を入力

    db := de.OpenDatabase(Edit3.Text,false, false);
    //Edit4 に テーブル名を入力

    rs := db.OpenRecordset(Edit4.Text, dbOpenTable);
    rs.AddNew;

    rs.Fields[0].Value  :=  Edit1.Text;

    rs.Fields[1].Value  :=  Edit2.Text;

    rs.Update;
    rs.Close;

    db.Close;

end;