Delphi Personal で DAO

追加クエリー

procedure TForm1.Button15Click(Sender: TObject);

var

    de:Variant;//DBEngine

    db:Variant;//Database

    qd:Variant;//QueryDef

begin

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

    db  := de.OpenDatabase(Edit3.Text,false, false);

    qd  := db.CreateQueryDef('');
    //Edit4 に テーブル名を入力

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

    //Edit1, Edit2 に 値を入力

    qd.Sql := 'INSERT INTO ' + Edit4.Text + ' (' + Edit5.Text + ', ' + Edit6.Text + ') '

           +  'VALUES (' + Edit1.Text + ', ''' + Edit2.Text + ''')';

    qd.Execute;
    qd.Close;

    db.Close;

end;