- /----用ADO动态建立ACCESS数据库，使用到 Comobj单元。20080627
- procedure ADOCreateMDB(const MDBName:string);
- var
- MDB:OleVariant;
- begin
- MDB:=CreateOleObject('ADOX.Catalog');
- MDB.Create('Provider=Microsoft.Jet.OLEDB.4.0;'+
- 'Data Source='+MDBName);
- MDB:=Unassigned;
- end;
- end.