Delphi Personal で DAO

選択クエリー

procedure TForm1.Button14Click(Sender: TObject);

var

    de :Variant;//DBEngine

    db :Variant;//Database

    rs :Variant;//Recordset

    sql:string;

const

    dbOpenForwardOnly:Integer =   8;

begin

    //表示用コントロールをクリア

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

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

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

    //Edit1 に Key値を入力

    sql :=  'SELECT ' + Edit6.Text + ' FROM ' + Edit4.Text + '  WHERE ' + Edit5.Text + ' = ' + Edit1.Text;
    rs  :=  db.OpenRecordset(sql, dbOpenForwardOnly);

    if not rs.EOF then

        Edit2.Text := rs.Fields[0].Value;
    rs.Close;

    db.Close;

end;