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

@viktooor · Регистрация: 08.06.2010

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

Программа имеет несколько таблиц. все работает
При переносе на другой компьютер приходится в каждой форме обновлять ссылку на свою таблицу.
Каждый раз используя ConnectionString
Подскажите пожалуйста можно ли это сделать програмно, ввести путь к базы и чтобы все пути к таблицам обновились.

@SAMZ · 28.02.2011, 14:06

Сообщение от viktooor

можно ли это сделать програмно, ввести путь к базы и чтобы все пути к таблицам обновились

Можно, а что мешает. Соорудите Ini файл, в который при переносе (инсталяции) программы прописывается путь к БД. Затем, при пишете обрадотчик для формы для события OnCreate и в этом обработчике задаете (подменяете) ConnectionString

@Mad_Dog · 28.02.2011, 14:07

Какая база? И на чем писана оболочка?

@viktooor · 28.02.2011, 14:36 **[ТС]**

.*mdb
Access
ADO

Добавлено через 3 минуты
.*mdb
Access
ADO
Поясните пожалуйста подробнее, если можите

@unick12345 · 28.02.2011, 14:41

в этом случае самое лучше через ini. при первом запуске проверять если есть ini, если нету, то создать и вывести окно выбора базы. после этого записать значение и с ним работать.

Добавлено через 1 минуту
а вобще, база у тебя в папке с программой или идет в другом месте? типа сетевого диска?

@viktooor · 28.02.2011, 15:18 **[ТС]**

Папка с базой на сервере

Добавлено через 3 минуты
А где можно найти описание про INI-файл

@unick12345 · 28.02.2011, 15:47

вот пример

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
procedure TForm1.FormActivate(Sender: TObject);
var ini:tinifile;
begin
cd:=extractfilepath(application.exename);
if not fileexists(cd+'settings.ini') then
if opendialog1.execute then
if length(opendialog1.files[0])<>0 then
begin
baza:=opendialog1.FileName;
ini:=tinifile.Create(cd+'settings.ini');
ini.WriteString('param','puti',baza);
ini.Free;
end
else
begin
ini:=tinifile.Create(cd+'settings.ini');
baza:=ini.ReadString('param','puti',baza);
ini.Free;
end;
end;

в uses добавить inifiles

@SAMZ · 28.02.2011, 15:50

Можно файлы инмциализации писать самому, но лчше использовать класс TIniFile из юнита IniFiles
Для этого прописываете IniFiles в uses
Сам ini файл можно создать примитивным текстровым редактором
Функция чтения из файла может выглядеть так

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
function ReadIni(AINIFName, ASection, AString : String) : String;
//AINIFName - имя файла инициализации;ASection, AString  = секция о параметр
var
   sIniFile: TIniFile;
   sPath : string;
const
   S = 'Невозможно открыть файл инициализации';
begin
   GetDir(0,sPath);
   sIniFile := TIniFile.Create(sPath + '\' + AINIFName);
   Result := sIniFile.ReadString(ASection, AString, S + AINIFName); { [Section] String=Value }
   sIniFile.Free;
end;

Сам файл может выглядеть так
[DataBase]
patch=server51:sud
statpatch=server51:stat
practicepatch=server51:chel_court_practi ce
[SYSTEM]
POSTINDEX=454006
SENDPOSTINDEX = 454091
[XML_DESTINATION]
DefaultXMLFullDir=C:\UNI_EXPORT
Пример чтения из файла

Delphi
1
2
3
4
5
procedure TfmDtMdl.dbSudBeforeConnect(Database: TFIBDatabase;
  LoginParams: TStrings; var DoConnect: Boolean);
begin
  dbSud.DatabaseName := ReadIni('Court.ini', 'DataBase', 'patch');
end;

@viktooor · 28.02.2011, 15:52 **[ТС]**

СПАСИБО

@Follout · 02.03.2011, 14:51

А самый простой вариант - это просто убрать несколько символов в ConnectionString

Тоесть открываем ConnectionString, в строчке вида

Delphi
1
Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=baza.mdb;Mode=Share Deny None;Extended Properties="";Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Password="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False

Вот в этой строчке ищем фразу "Data Source=" после "=" просто пишем имя базы с расширенирем.
И всё! Программа будет искать базу в той же папке что и exe'шник

@Рабигушка · 21.04.2011, 23:35

ничё не поняла (

@Krit-Ydachnik · 21.04.2011, 23:37

В ConnectionString заместо адреса к прмиеру D:/123/Baza.mdb напишите
./Baza.mdb

И так с каждой базой

П.с. Baza это имя базы в аксессе у вас оно наверно другое))

@Рабигушка · 21.04.2011, 23:41

и она откроется на любом компе не указывая путь каждый раз ?

@Krit-Ydachnik · 21.04.2011, 23:42

Ну у меня база там же где и exe файл и всё отлично работает.

Добавлено через 14 секунд
Ну у меня база там же где и exe файл и всё отлично работает на разныхх компах.

@Рабигушка · 22.04.2011, 00:14

спасибо! посмотрю...

Добавлено через 15 минут
у меня не запускается .вот посмотри ,если откроется ) http://pics.kz/view/2327201

Добавлено через 15 минут
всё в порядке я разобралась,спасибо!

@Krit-Ydachnik · 22.04.2011, 02:50

А спасибо сказать нажатием кнопки??))) +1 Спасибо.

Незабывай)

Новые блоги и статьи Все статьи Все блоги /
Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .	Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.

@viktooor 2 / 2 / 0 Регистрация: 08.06.2010 Сообщений: 72

	Перенос программы с базой на другой компьютер 28.02.2011, 13:40. Показов 6698. Ответов 15 Метки нет (Все метки) Программа имеет несколько таблиц. все работает При переносе на другой компьютер приходится в каждой форме обновлять ссылку на свою таблицу. Каждый раз используя ConnectionString Подскажите пожалуйста можно ли это сделать програмно, ввести путь к базы и чтобы все пути к таблицам обновились. 0

@Mad_Dog Фрилансер 452 / 433 / 117 Регистрация: 01.06.2010 Сообщений: 1,314
	28.02.2011, 14:07
	Какая база? И на чем писана оболочка? 0

@viktooor 2 / 2 / 0 Регистрация: 08.06.2010 Сообщений: 72
	28.02.2011, 14:36 [ТС]
	.mdb Access ADO Добавлено через 3 минуты* .*mdb Access ADO Поясните пожалуйста подробнее, если можите 0

@unick12345 1866 / 1186 / 192 Регистрация: 27.03.2009 Сообщений: 4,603
	28.02.2011, 14:41
	в этом случае самое лучше через ini. при первом запуске проверять если есть ini, если нету, то создать и вывести окно выбора базы. после этого записать значение и с ним работать. Добавлено через 1 минуту а вобще, база у тебя в папке с программой или идет в другом месте? типа сетевого диска? 0

@viktooor 2 / 2 / 0 Регистрация: 08.06.2010 Сообщений: 72
	28.02.2011, 15:18 [ТС]
	Папка с базой на сервере Добавлено через 3 минуты А где можно найти описание про INI-файл 0

@viktooor 2 / 2 / 0 Регистрация: 08.06.2010 Сообщений: 72
	28.02.2011, 15:52 [ТС]
	СПАСИБО 0

@Рабигушка 1 / 1 / 1 Регистрация: 08.12.2009 Сообщений: 15
	21.04.2011, 23:35
	ничё не поняла ( 0

@Krit-Ydachnik 36 / 36 / 1 Регистрация: 06.12.2010 Сообщений: 205
	21.04.2011, 23:37
	В ConnectionString заместо адреса к прмиеру D:/123/Baza.mdb напишите ./Baza.mdb И так с каждой базой П.с. Baza это имя базы в аксессе у вас оно наверно другое)) 0

@Рабигушка 1 / 1 / 1 Регистрация: 08.12.2009 Сообщений: 15
	21.04.2011, 23:41
	и она откроется на любом компе не указывая путь каждый раз ? 0

@Krit-Ydachnik 36 / 36 / 1 Регистрация: 06.12.2010 Сообщений: 205
	21.04.2011, 23:42
	Ну у меня база там же где и exe файл и всё отлично работает. Добавлено через 14 секунд Ну у меня база там же где и exe файл и всё отлично работает на разныхх компах. 1

@Рабигушка 1 / 1 / 1 Регистрация: 08.12.2009 Сообщений: 15
	22.04.2011, 00:14
	спасибо! посмотрю... Добавлено через 15 минут у меня не запускается .вот посмотри ,если откроется ) http://pics.kz/view/2327201 Добавлено через 15 минут всё в порядке я разобралась,спасибо! 0

@Krit-Ydachnik 36 / 36 / 1 Регистрация: 06.12.2010 Сообщений: 205
	22.04.2011, 02:50
	А спасибо сказать нажатием кнопки??))) +1 Спасибо. Незабывай) 1