TIniFile *pIniFile = new TIniFile(ExtractFilePath(Application->ExeName) + "connect.ini"); AnsiString CS = pIniFile->ReadString("BASE CONNECTION", "CONNECTION STRING", ""); delete pIniFile; ADOConnection1->Connected = false; if (CS.Length()< 10) { ADOConnection1->ConnectionString = ""; CS = MainForm->ConnectDB(); } ADOConnection1->ConnectionString = CS; ADOConnection1->Connected = true;
if (!FileExist ("C:\\connect.udl")) ShellExecute(Handle,"open","C:\\connect.udl",NULL,NULL,SW_SHOW);