🚀 go-pugleaf

Hi!
I have one class called DBHandler. In this class i have three ADO objects. I
also have a frame. There is one button in this frame. I got some strange
exception when pressing this button.. I should call a function in my
DBHandler called ConnectTo(AnsiString Database), and connect to a database,
whats the problem ??

.. here is my code. :

void __fastcall TForm1::Button3Click(TObject *Sender)
{
    DBHandler->ConnectTo("nucleusdb");
}


bool __fastcall TDBaseHandler::ConnectTo(AnsiString Database)
{
    try{
        FDatabase = Database;

        AnsiString Def("Provider=MSDASQL.1;Persist Security Info=False;Data
Source=");
        AnsiString ConnectionString(Def + FDatabase);

        MainConnection->ConnectionString = WideString(ConnectionString);
        MainConnection->Open();
        Query_Updater->DatabaseName = FDatabase;
        Query_Updater->OpenDatabase();
        XMLRecordHolder->Connection = MainConnection;
        Query_XMLLoader->Connection = MainConnection;
        return true;

    }catch(Exception &E)
    {
        return false;
    }

}

dec.

TADOConnection *MainConnection;
TADOTable *XMLRecordHolder;
TADOQuery *Query_XMLLoader;
TQuery *Query_Updater;

A ADOQuery don't seem to support ParamByName().. .. or SQL server conflicts
with ADOQuery's Parameters.. hum I dono whats wrong. i just want it to
work.. ..
'


I hope someone can help me!

/wr Henrik Franz�n