Delphi Personal で ADO

データベースを作成する

procedure TForm1.Button5Click(Sender: TObject);

var

    cat: Variant;//Catalog

begin

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

    cat.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + Edit3.Text + ';');
    // Access97   OLEDB.3.51

    // Access2000 OLEDB.4.0

end;