|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
04.05.2011, 15:38 | #1 |
Пользователь
Регистрация: 25.02.2011
Сообщений: 14
|
Проблема при запуске программы
при компилировании ошибки нет никакой, а вот когда запускаю, вот это выводится:http://programmersforum.ru/attachmen...1&d=1304508896, помогите, пожалуйста что делать?Ниже приведён программный код:
AnsiString path = ExtractFileDir(_argv[0]); AnsiString filename=path + "\\Machine.mdb"; void __fastcall TFrmMain::FormCreate(TObject *Sender) { String ConnString = "Provider=Microsoft.Jet.OLEDB.4.0;" ; ConnString += "User ID=%s;Password=%s;Data Source=%s;"; /*All ADO variables*/ TADOConnection* ADOConn; TADOTable* ADOTEksk; TADOTable* ADOTSam; TADOTable* ADOTMach; TDataSource* DSEksk; TDataSource* DSSam; TDataSource* DSMach; //TParameter* Param; ADOConn = new TADOConnection(this); ADOConn->LoginPrompt=False; if(!FileExists(ExtractFilePath(Appl ication->ExeName)+filename)) { AnsiString ds = "В корневом каталоге отсутствует файл с именем \n\n\t"+ filename; if(Application->MessageBox(ds.c_str(),"Предупрежде ние",MB_OK + MB_TOPMOST+ MB_ICONWARNING)==IDOK) { Application->Terminate(); } } else { String WayToBase=ExtractFilePath(Applicati on->ExeName)+filename; ADOConn->ConnectionString="Provider=Microso ft.Jet.OLEDB.4.0;Data Source="+ WayToBase+";Persist Security Info=True"; ADOConn->Connected=true; ADOTEksk->ConnectionString=ADOConn->ConnectionString; ADOTSam->ConnectionString=ADOConn->ConnectionString; ADOTMach->ConnectionString=ADOConn->ConnectionString; ADOTEksk->TableName="Ekskavator"; ADOTEksk->Active=true; ADOTSam->TableName="Samosval"; ADOTSam->Active=true; ADOTMach->TableName="Machine_for_compac"; } try { ADOConn->Connected=true; } catch(EADOError *e) { MessageDlg("Error while connecting", mtError, TMsgDlgButtons()<<mbOK, 0); return; } /*Create the table*/ ADOTEksk = new TADOTable(this); ADOTSam = new TADOTable(this); ADOTMach = new TADOTable(this); //ADOTable->Connection=ADOConn; //ADOTable->Active=true; /*Create the data source*/ DSEksk = new TDataSource(this); DSSam = new TDataSource(this); DSMach = new TDataSource(this); DSEksk->DataSet = ADOTEksk; DSSam->DataSet = ADOTSam; DSMach->DataSet = ADOTMach; DSEksk->Enabled=true; DSSam->Enabled=true; DSMach->Enabled=true; } |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Проблема при запуске программы Extreme surebet. | Ale758fjg | Помощь студентам | 0 | 19.04.2010 22:22 |
mp3 при запуске программы - ? | Evgenii | Общие вопросы Delphi | 8 | 12.08.2009 08:11 |
Проблема найти путь к винде при запуске программы через удаленный рабочий стол | grenles | Общие вопросы Delphi | 4 | 12.04.2009 23:29 |
Эффекты при запуске программы | Vladya | Общие вопросы Delphi | 10 | 17.03.2009 17:29 |
Ошибка при запуске программы | MAcK | Общие вопросы .NET | 5 | 14.08.2008 15:12 |