Перенос программы с БД на другой компьютер

@Gisele · Регистрация: 04.11.2010

Author24 — интернет-сервис помощи студентам

Есть программа для работы с бд. БД - Access, доступ - ADO. БД лежит в каталоге с прогой.
В компоненте ADOConnection при соединении прописывается путь к БД, который на моем компьютере. На других он не может найти базу. Как сделать так, чтобы путь к базе искался автоматически, а не был привязан к моему компьютеру?
Спасибо всем.

@Sasha · 15.06.2011, 08:58

миллион раз писал ответ на этот вопрос и ещё раз напишу

C++

void __fastcall TMainForm::FormCreate(TObject *Sender)
{
 String filename = "Êîìïüþòåðíàÿ áàçà.mdb";
  if(!FileExists(ExtractFilePath(Application->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(Application->ExeName)+filename;
  ADOConnection1->ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+WayToBase+";Persist Security Info=True";
  ADOConnection1->Connected = true;
  ADOQuery1->ConnectionString = ADOConnection1->ConnectionString;
  DBGrid1->Options = TDBGridOptions(DBGrid1->Options) >> dgIndicator >> dgTitles >> dgColLines >> dgRowLines >> dgColumnResize >>dgEditing;
  DataSource1->DataSet = ADOQuery1;
  DBGrid1->DataSource = DataSource1;
  DBNavigator1->DataSource = DataSource1;
  ADOQuery1->Active = false;

@Gisele · 15.06.2011, 09:10 **[ТС]**

Sasha, спасибо, попробую

Добавлено через 1 минуту
Sasha, а свойство ConnectionString у ADOConnection очистить?

@Sasha · 15.06.2011, 09:23

Да очистить

@Gisele 1 / 1 / 3 Регистрация: 04.11.2010 Сообщений: 85
		1
	Перенос программы с БД на другой компьютер 15.06.2011, 08:32. Показов 2263. Ответов 3 Метки нет (Все метки) Есть программа для работы с бд. БД - Access, доступ - ADO. БД лежит в каталоге с прогой. В компоненте ADOConnection при соединении прописывается путь к БД, который на моем компьютере. На других он не может найти базу. Как сделать так, чтобы путь к базе искался автоматически, а не был привязан к моему компьютеру? Спасибо всем. 0

@Gisele 1 / 1 / 3 Регистрация: 04.11.2010 Сообщений: 85
	15.06.2011, 09:10 [ТС]	3
	Sasha, спасибо, попробую Добавлено через 1 минуту Sasha, а свойство ConnectionString у ADOConnection очистить? 0

@Sasha 4956 / 2420 / 531 Регистрация: 05.06.2008 Сообщений: 7,518 Записей в блоге: 3
	15.06.2011, 09:23	4
	Да очистить 0