🚀 go-pugleaf

"Vassiliev V.V." <news@vassilievvv.mtu-net.ru> schrieb im Newsbeitrag
news:3de469d7@newsgroups.borland.com...
>
> >Can i suppress this Message?
> Please provide your code.
>

Unit1.h:

//---------------------------------------------------------------------------

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ADOX_tlb.h>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published: // Von der IDE verwaltete Komponenten
   TButton *Button1;
   void __fastcall Button1Click(TObject *Sender);
private: // Anwender-Deklarationen
public:  // Anwender-Deklarationen
   __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif


Unit1.cpp:

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
   : TForm(Owner)
{}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   String strPath = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=G:\\test.mdb";

   try
   {
      Adox_tlb::TCOM_Catalog cat = CoCatalog::Create();
      cat->Create(WideString(strPath).c_bstr());
   }
   catch(...)
   {
      ShowMessage("Error!");
   }
}
//---------------------------------------------------------------------------

The first time i klick on the button1, it works.
The second time (because a database is there) an error occurs
and i get the message:

(this->Create(ConnectString, (TVariant*)&Connection)) Error: 80040E17 (-2147217897) @
C:\Programme\Borland\Cbuilder5\imports\ADOX_tlb.h/465
Press [Y]es to terminate, [N]o to continue and [C]ancel to Debug.

I don't want this Message, I only want my own Message.

Joachim