Exception при подключении через dbExpress
В тестовом приложении SQLConnection расположен на форме, где происходит вызов:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
SQLConnection1->Params->Values["user_name"] = Edit1->Text;
SQLConnection1->Params->Values["password"] = Edit2->Text;
SQLConnection1->CloseDataSets();
SQLConnection1->Close();
try
{
SQLConnection1->Open();
ShowMessage("OK");
}
catch(Exception &e)
{
ShowMessage("ERROR");
}
}
Цитата:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
SQLConnection1->Params->Values["user_name"] = Edit1->Text;
SQLConnection1->Params->Values["password"] = Edit2->Text;
SQLConnection1->CloseDataSets();
SQLConnection1->Close();
try
{
SQLConnection1->Open();
ShowMessage("OK");
}
catch(Exception &e)
{
ShowMessage("ERROR");
}
}
А в рабочем приложении TSQLConnection расположен в DataModule.
Подлючение происходит к одной и той же базе..
При вводе неправильных логина/пароля в тестовом приложении вываливается Exception, а в рабочем - нет! Так помимо этого Connected выставляется в true!! А ошибки валятся потом - при попытке сделать выборку и т.п.
Установил 4-ое обновление, создал заново проект и поместил в него все файлы.. НЕ РАБОТАЕТ!
Помогите плиз!
Или подскажите как можно проверить соединение в данном случае?