BorlandTalk.com Borland discussion newsgroups   Archives   FAQ   Search   Memberlist   Usergroups   Register   Profile   Log in to check your private messages   Log in  Not enough Parameters?          BorlandTalk.com Forum Index -> Delphi Databases (ADO) View previous topic :: View next topic   Author Message jason Guest Posted: Thu Feb 24, 2005 8:08 am    Post subject: Not enough Parameters? Hi all, I have written the following function to compact & repair my MS Access database. My problem is that I keep getting the following exception on the V.CompactDatabase line saying "project blah.exe raised exception class EOleSysError with message 'Invalide number of parameters'" Hope you can shed some light on this. The function is below: Many thanks, Jason. ========================== function TfrmMaintenance.CompactAndRepair(DB: string): Boolean; {DB = Path to Access Database} var v: OLEvariant; begin Result := True; try v := CreateOLEObject('JRO.JetEngine'); try V.CompactDatabase('Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+DB+';Mode=Share Deny None;Persist Security Info=false;Jet OLEDB:Database Password=xxxxxxx' + 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+DB+'x;Mode=Share Deny None;Persist Security Info=false;Jet OLEDB:Database Password=xxxxxxx'); frmMaintenance.lbStatus.Caption := 'Finished repairing database.'; Application.ProcessMessages; // DeleteFile(DB); // RenameFile(DB+'x',DB); finally V := Unassigned; end; except Result := False; end; end; Back to top jason Guest Posted: Fri Feb 25, 2005 5:00 am    Post subject: Re: Not enough Parameters? Brian, Quote: I don't see a coma separating the two parameters that compactDatabase requires Thanks, I did notice that after I posted. However, I am still having problems. See post below: http://newsgroups.borland.com/cgi-bin/dnewsweb?cmd=article&group=borland.public.delphi.database.ado&item=51727&utag= I hope you can help, it's frustrating the hell out of me!! Cheers, Jason. Back to top Bas van Beek Guest Posted: Fri Feb 25, 2005 9:12 am    Post subject: Re: Not enough Parameters? jason wrote: Quote: Brian, I don't see a coma separating the two parameters that compactDatabase requires Thanks, I did notice that after I posted. However, I am still having problems. See post below: http://newsgroups.borland.com/cgi-bin/dnewsweb?cmd=article&group=borland.public.delphi.database.ado&item=51727&utag= I hope you can help, it's frustrating the hell out of me!! Cheers, Jason. How about importing the type library 'Microsoft Jet and Replication Objects'? This way you get two new objects in your VCL, one being the JetEngine which has the desired CompactDatabase function. This has worked for me... CopyDB := TJetEngine.Create(nil); try CopyDB.CompactDataBase(oldConnString, newConnString); finally FreeAndNil(CopyDB); end; Bas van Beek Back to top jason Guest Posted: Fri Feb 25, 2005 9:13 pm    Post subject: Re: Not enough Parameters? Bas, Quote: How about importing the type library 'Microsoft Jet and Replication Objects'? This way you get two new objects in your VCL, one being the JetEngine which has the desired CompactDatabase function. This has worked for me... I have, now I have the JetEngine & Replica components appearing on the ActiveX component palette. But...still exactly the same problem? I don't know what I'm doing wrong? It still says "EOleException class does not exist" when I try the JE.CompactDatabase function. Jason. Back to top Bas van Beek Guest Posted: Fri Feb 25, 2005 10:25 pm    Post subject: Re: Not enough Parameters? Quote: I have, now I have the JetEngine & Replica components appearing on the ActiveX component palette. But...still exactly the same problem? I don't know what I'm doing wrong? It still says "EOleException class does not exist" when I try the JE.CompactDatabase function. What if you use the ComObj unit in your uses clause... That unit contains the EOleException class Back to top jason Guest Posted: Sun Feb 27, 2005 10:58 pm    Post subject: Re: Not enough Parameters? Bas, Quote: What if you use the ComObj unit in your uses clause... That unit contains the EOleException class I have this unit in my uses clause? This bug is killing me!! Jason. Back to top jason Guest Posted: Mon Feb 28, 2005 5:27 am    Post subject: Re: Not enough Parameters? Brian, Quote: Your connection string is the problem Try V.CompactDatabase('Data Source='+DB +';Jet OLEDB:Engine Type=5'+';Jet OLEDB:Database Password=xxxxxxxx' ,'Data Source='+'x.mdb;Jet OLEDB:Engine Type=5') Your a champ, that fixed it!!! Thanks, this was killing me!! Thanks for your help. Jason. Back to top Display posts from previous: All Posts1 Day7 Days2 Weeks1 Month3 Months6 Months1 Year Oldest FirstNewest First         BorlandTalk.com Forum Index -> Delphi Databases (ADO) All times are GMT Page 1 of 1   Jump to: Select a forum C++ Builder Newsgroups----------------C++ BuilderC++ Builder (ActiveX)C++ Builder (Announcements)C++ Builder (Command Line Tools)C++ Builder DatabasesC++ Builder Databases (ADO)C++ Builder Databases (Desktop)C++ Builder Databases (InterBase Express)C++ Builder Databases (Multi-Tier)C++ Builder Databases (SQL Servers)C++ Builder (Graphics)C++ Builder (IDE)C++ Builder (Internet)C++ Builder (Internet Socket)C++ Builder (Internet Web)C++ Builder (Jobs)C++ Builder (Language)C++ Builder (Language C++)C++ Builder (Compatibility with MFC)C++ Builder (Native API)C++ Builder (Non-Technical)C++ Builder (Students)C++ Builder (Third Party Tools)C++ Builder (Upgrade)C++ Builder (VCL)C++ Builder (VCL Components Usage)C++ Builder (VCL Components Development)C++ Builder (VCL Usage)C++ Builder (WinAPI)C++ Builder Installation Delphi Newsgroups----------------Delphi (General)Delphi ActiveX Controls UsageDelphi ActiveX Controls DevelopmentDelphi As400Delphi DatabasesDelphi Databases (ADO)Delphi Databases (dbExpress)Delphi Databases (Desktop)Delphi Databases (InterBase Express)Delphi Databases (Multi-Tier)Delphi Databases (SQL Servers)Delphi DeploymentDelphi GraphicsDelphi IDEDelphi InternationalizationDelphi InternetDelphi Internet Isapi-WebBrokerDelphi Internet WebSnapDelphi Internet WinsockDelphi JobsDelphi Language BASMDelphi Language ObjectPascalDelphi Model Driven Architecture (General)Delphi Model Driven Architecture (Third Party)Delphi MultimediaDelphi Native APIDelphi Non-TechnicalDelphi ObjectPascalDelphi OLE AutomationDelphi OO designDelphi OpenToolsAPIDelphi Reporting-ChartingDelphi RTLDelphi StudentsDelphi TeamSourceDelphi Thirdparty ToolsDelphi Thirdparty Tools (General)Delphi Thirdparty Tools (IntraWeb)Delphi Thirdparty Tools (RaveReports)Delphi UpgradeDelphi VCLDelphi VCL ComponentsDelphi VCL Components UsingDelphi VCL Components WritingDelphi WebServices SOAPDelphi WinAPIDelphi XMLDelphi Installationcomp.lang.pascal.delphi.components.misccomp.lang.pascal.delphi.components.usagecomp.lang.pascal.delphi.components.writingcomp.lang.pascal.delphi.databasescomp.lang.pascal.delphi.misccomp.sources.delphi JBuilder Newsgroups----------------JBuilderJBuilder AnnouncementsJBuilder Applet IssuesJBuilder As400JBuilder CompilerJBuilder CORBA/RMIJBuilder DatabasesJBuilder DB SwingJBuilder DebuggerJBuilder DeploymentJBuilder DocumentationJBuilder EnterpriseJBuilder HandheldJBuilder IDEJBuilder JavaJBuilder JavaAPIJBuilder Java LanguageJBuilder Java SwingJBuilder Java BeansJBuilder Java Beans UsageJBuilder Java Beans DevelopmentJBuilder JBCLJBuilder JDataStoreJBuilder JobsJBuilder LinuxJBuilder MacintoshJBuilder & MobileSetJBuilder MultiLingual AppsJBuilder Non-TechnicalJBuilder OpenToolsJBuilder Servlets (JSP)JBuilder StudentsJBuilder Team DevelopmentJBuilder Thirdparty ToolsJBuilder UpgradeJBuilder Installation InterBase Newsgroups----------------InterBaseInterBase Bug DiscussionInterBase GeneralInterBase IBConsoleInterBase OpenSourceInterBase ReplicationInterBase SQLInterBase ThirdpartyInterBase Installation Miscellaneous Borland Newsgroups----------------AppCenterAppServerEnteraVisiBroker  You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum Powered by phpBB © 2001, 2006 phpBB Group SEO toolkit © 2004-2006 webmedic.