Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > C/C++ программирование > C++ Builder
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 04.05.2011, 15:38   #1
Neo_AVE
Пользователь
 
Регистрация: 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;
}
Изображения
Тип файла: jpg ош.jpg (34.8 Кб, 59 просмотров)
Neo_AVE вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Проблема при запуске программы 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