Re: Creating MSAccess is with error???
From: Brian Bushay TeamB (BBushay_at_Nmpls.com)
Date: 10/15/03
- Next message: Brian Bushay TeamB: "Re: Problem with Multiple field indexes"
- Previous message: Brian Bushay TeamB: "Re: TADOCommand + MS Access + Date and Time + Parameters"
- In reply to: EnergyWeb: "Creating MSAccess is with error???"
- Next in thread: EnergyWeb: "Re: Creating MSAccess is with error???"
- Reply: EnergyWeb: "Re: Creating MSAccess is with error???"
- Messages sorted by: [ date ] [ thread ] [ subject ] [ author ]
Date: Tue, 14 Oct 2003 21:54:14 -0500
>THIS GIVING A MENSAGM OF MISTAKE:
>SEQUENCE OF DISABLE CLASS
>USE WINDOWS2000, Delphi6, Brazil
I am not familiar with this error my guess is you are translating it incorrectly
>
>var
> access: Variant;
>begin
> access := CreateOleObject('DAO.DBEngine.35');
This requires Jet 3.5 which you probably don't have installed.
Since you posted in the ADO section using ADOX instead of DAO is a better option
import the ADOX type library and you can use code like this
var
Catalog: _Catalog;
CS,dbName: string;
begin
dbName := 'myNewAccessDB6.mdb';
Catalog := CreateCOMObject(StringToGUID('ADOX.Catalog')) as _Catalog;
CS := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + dbName
// Engine type = 5 creates 2000 database
+';Jet OLEDB:Engine Type=5';
if FileExists(dbName) then
DeleteFile(dbName);
Catalog.Create(CS);
Catalog := nil;
end;
-- Brian Bushay (TeamB) Bbushay@NMPLS.com
- Next message: Brian Bushay TeamB: "Re: Problem with Multiple field indexes"
- Previous message: Brian Bushay TeamB: "Re: TADOCommand + MS Access + Date and Time + Parameters"
- In reply to: EnergyWeb: "Creating MSAccess is with error???"
- Next in thread: EnergyWeb: "Re: Creating MSAccess is with error???"
- Reply: EnergyWeb: "Re: Creating MSAccess is with error???"
- Messages sorted by: [ date ] [ thread ] [ subject ] [ author ]
Relevant Pages
|
