Delphi Personal で ADO

クエリーを作成する

procedure TForm1.Button7Click(Sender: TObject);

var

    cat: Variant;//Catalog

    cmd: Variant;//Command

    sql: string;

begin

    cat := CreateOleObject('ADOX.Catalog');
    //Edit3 に mdbファイル名を入力

    cat.ActiveConnection := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + Edit3.Text + ';';
    //Edit4 に テーブル名を入力

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

    //Edit1 に Key値を入力

    sql :=  'SELECT * FROM ' + Edit4.Text + '  WHERE ' + Edit5.Text + ' = ' + Edit1.Text;
    cmd := CreateOleObject('ADODB.Command');

    cmd.CommandText := sql;
    cat.Views.Append('Q_TEST', cmd);

end;