Запись, Сохранение и Чтение пути к БД Access в файл txt Delphi 7

@arsenkorotkin · Регистрация: 28.04.2017

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

P.S. После перемещения файла базы Access, при запуске проекта выбивает ошибку о том что программа не может найти путь к файлу базы.
Так вот я хочу создать файл txt в который записывался путь к бд Access при подключении базы к проекта и сохранялся путь в txt файле и считывался путь к базе из файла при запуске проекта.

@D1973 · 23.12.2019, 13:48

Алгоритм:
1. Проверяете наличие своего ТХТ-файла.
2. Если ТХТ-файла нет
2.1 открываете диалоговое окно для выбора базы
2.2. Если файл БД был выбран - соединяетесь с БД и записываете путь в файл
3. Если ТХТ-файл есть:
3.1 Проверяете действительное наличие файла БД по указанному пути.
3.1.1 Если файл БД на месте - соединяетесь и работаете
3.1.2 Если файла БД на месте нет - см. п. 2.1

@Мудрый Ижик · 23.12.2019, 18:15

Не нужен этот текстовый файл, т.к. если файл базы лежит постоянно в одном месте, то что мешает это место определить как каталог с приложением, а если не постоянно, то нужен диалог выбора места с БД и снова ваш текстовый файл не нужен.
Предлагаю несколько иначе это делать:
1. Проверить наличие БД в каталоге с приложением
2. Если найден п.3 если не найден п.5
3. Запустить
4. Выйти из приложения
5. Выбрать диалогом файл БД
6. перейти к п.3

@arsenkorotkin · 23.12.2019, 19:18 **[ТС]**

Мудрый Ижик, а если база лежит в другом месте?

@Мудрый Ижик · 23.12.2019, 20:53

а если база лежит в другом месте?

На компашке, а компашка в шкафу?
Тогда достать компашку и выполнить п.5

@arsenkorotkin · 23.12.2019, 21:01 **[ТС]**

Мудрый Ижик, мне нужен код

@UR1004SWL · 24.12.2019, 20:15

Сам разберёшься или опять не понятно.

@arsenkorotkin · 24.12.2019, 22:02 **[ТС]**

UR1004SWL, наверное да, надо обьяснять

@arsenkorotkin · 24.12.2019, 22:04 **[ТС]**

UR1004SWL, я хочу чтобы путь к бд записывался и сохранялся в txt файл при нажатии на эту кнопку

@arsenkorotkin · 24.12.2019, 22:11 **[ТС]**

UR1004SWL, а считывался из txt файла при запуске программы
И мне нужна сама база в не таблицы в ней

Добавлено через 5 минут
UR1004SWL, код кнопки "Подключить базу данных

Delphi

procedure TForm1.sBitBtn9Click(Sender: TObject);
const
  ADOConnectionString = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s';
begin
 if not sOpenDialog1.Execute then Exit;
 Form23.ADOConnection1.ConnectionString := Format(ADOConnectionString, [sOpenDialog1.FileName]);
  Form23.ADOConnection1.LoginPrompt := False;
 try
    Form23.ADOConnection1.Open;
 except on E: Exception
   do begin
      ShowMessage(E.Message);
      Application.Terminate;
      end;
 end;
end;

"

@arsenkorotkin · 28.12.2019, 21:03 **[ТС]**

UR1004SWL, помоги

@arsenkorotkin · 03.01.2020, 15:19 **[ТС]**

UR1004SWL, помоги мне разобраться, пожалуйста

@arsenkorotkin · 04.01.2020, 05:47 **[ТС]**

UR1004SWL, привет, друг. Извини за чертову назойливоть, но не мог ли ты бы сам переделать свой код под мою программу, а то я не понимаю, что и как сделать. Может постараюсь объяснить болнн понятно.
1. Я хочу указывать путь к бд не каждый раз при запуске программы, а только тогда, когда я меняю расположение бд и чтобы это расположение записалось в ini файл.
2 При запуске программы я хочу чтобы из ini файла считывался путь к бд и подключались все таблицы без помощи пользователя т.е. сами.
Для подключения я использую sLabel14 (Подключить базу данных) находится на форме Form1 (База заказов) т.е. через него я хочу подключать Бд как я указать в 1м пункте выше, а 2й пункт это уже при запуске самой программы.
И я не хочу использовать компонент Combobox и другие компоненты. Надеюсь на твою помощь и заранее СПАСИБО

@arsenkorotkin · 04.01.2020, 16:17 **[ТС]**

UR1004SWL, можете помочь?

@UR1004SWL · 04.01.2020, 16:21

arsenkorotkin
То, что Вы хотите сделать в Вашем проекте, это нужно весь проект переделывать. Так как у Вас всё завязано на конкретном пути к базе, да ещё путь привязан к Вашему компьютеру. И без кардинальной переработки всего проекта очень проблемматично.

@arsenkorotkin · 04.01.2020, 16:23 **[ТС]**

разве?

Добавлено через 17 секунд
UR1004SWL, разве? я так понимаю что лучше забить?

@UR1004SWL · 04.01.2020, 16:35

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

разве?

А что тогда спрашиваете.

@arsenkorotkin · 04.01.2020, 16:58 **[ТС]**

Может получится решить вопрос если пароль для авторизации брать с ini файла и записывать его в ini файл?

@UR1004SWL · 04.01.2020, 17:48

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

пароль для авторизации брать с ini файла и записывать его в ini файл

При первом старте нужно вводить пароль, в дальнейшем пароль будет брать с ini.

@arsenkorotkin · 04.01.2020, 20:18 **[ТС]**

UR1004SWL, спасибо друг, работает, но как мне сменить пароль, удалить

Добавлено через 50 секунд
UR1004SWL, и я так понимаю, что при первом вводе любого пароля он записывает в ini файл?

Новые блоги и статьи
Алгоритмы и исполнители hw_wired 28.01.2025 Введение в алгоритмы В современном мире информационных технологий алгоритмы играют основополагающую роль в решении различных задач и автоматизации процессов. Алгоритм представляет собой точную. . .	Хранение информации hw_wired 28.01.2025 Введение: Роль систем хранения информации в современном мире В современную эпоху цифровых технологий эффективное хранение информации становится одним из ключевых факторов успешного развития любой. . .	Обработка числовой информации hw_wired 28.01.2025 Введение в обработку числовой информации В современном мире обработка числовой информации стала неотъемлемой частью как профессиональной деятельности, так и повседневной жизни. Электронные таблицы. . .	Мультимедиа hw_wired 28.01.2025 Введение в мультимедийные технологии В современном мире мультимедийные технологии стали неотъемлемой частью нашей жизни, проникнув во все сферы человеческой деятельности. Термин "мультимедиа". . .	Обработка текстовой информации hw_wired 28.01.2025 Введение в обработку текстовой информации В современном мире обработка текстовой информации играет фундаментальную роль в различных сферах человеческой деятельности. Текстовые редакторы стали. . .	Обработка графической информации hw_wired 28.01.2025 Введение в компьютерную графику Компьютерная графика стала неотъемлемой частью современного цифрового мира, пройдя впечатляющий путь развития от простейших черно-белых изображений до сложных. . .
Python в Алгоритмике: Решение задач hw_wired 28.01.2025 Введение в Python и Алгоритмику В современном мире программирование стало неотъемлемой частью образования и профессионального развития. Python зарекомендовал себя как один из самых популярных и. . .	Компьютер как универсальное устройство для работы с информацией hw_wired 28.01.2025 Введение в устройство компьютера Компьютер представляет собой универсальное электронное устройство, предназначенное для автоматической обработки информации. В современном мире компьютер стал. . .	Информация и информационные процессы hw_wired 28.01.2025 Понятие информации и ее виды В современном мире информация является одним из фундаментальных понятий, пронизывающих все сферы человеческой деятельности. Под информацией понимают любые сведения об. . .	Алгоритмика hw_wired 28.01.2025 Введение: Основы алгоритмики и её роль в информатике В современном мире программирование и алгоритмическое мышление стали неотъемлемой частью образования и профессиональной деятельности. . . .	Информационное моделирование hw_wired 28.01.2025 Введение в информационное моделирование В современном мире информационное моделирование стало неотъемлемой частью научной, образовательной и профессиональной деятельности. Это мощный инструмент. . .	Объекты и их имена hw_wired 28.01.2025 Введение: Основы объектного подхода и их роль в информатике В современном мире информационных технологий объектный подход стал фундаментальным принципом организации и обработки информации. Этот. . .

@arsenkorotkin 0 / 0 / 0 Регистрация: 28.04.2017 Сообщений: 282
		1
	Delphi 6-7 Запись, Сохранение и Чтение пути к БД Access в файл txt Delphi 7 23.12.2019, 13:29. Показов 6751. Ответов 100 Метки нет (Все метки) P.S. После перемещения файла базы Access, при запуске проекта выбивает ошибку о том что программа не может найти путь к файлу базы. Так вот я хочу создать файл txt в который записывался путь к бд Access при подключении базы к проекта и сохранялся путь в txt файле и считывался путь к базе из файла при запуске проекта. 0

@D1973 Модератор 9655 / 6261 / 2429 Регистрация: 21.01.2014 Сообщений: 26,694 Записей в блоге: 3
	23.12.2019, 13:48	2
	Алгоритм: 1. Проверяете наличие своего ТХТ-файла. 2. Если ТХТ-файла нет 2.1 открываете диалоговое окно для выбора базы 2.2. Если файл БД был выбран - соединяетесь с БД и записываете путь в файл 3. Если ТХТ-файл есть: 3.1 Проверяете действительное наличие файла БД по указанному пути. 3.1.1 Если файл БД на месте - соединяетесь и работаете 3.1.2 Если файла БД на месте нет - см. п. 2.1 0

@Мудрый Ижик 32 / 26 / 7 Регистрация: 18.10.2019 Сообщений: 187
	23.12.2019, 18:15	3
	Не нужен этот текстовый файл, т.к. если файл базы лежит постоянно в одном месте, то что мешает это место определить как каталог с приложением, а если не постоянно, то нужен диалог выбора места с БД и снова ваш текстовый файл не нужен. Предлагаю несколько иначе это делать: 1. Проверить наличие БД в каталоге с приложением 2. Если найден п.3 если не найден п.5 3. Запустить 4. Выйти из приложения 5. Выбрать диалогом файл БД 6. перейти к п.3 0

@arsenkorotkin 0 / 0 / 0 Регистрация: 28.04.2017 Сообщений: 282
	23.12.2019, 19:18 [ТС]	4
	Мудрый Ижик, а если база лежит в другом месте? 0

@Мудрый Ижик 32 / 26 / 7 Регистрация: 18.10.2019 Сообщений: 187
	23.12.2019, 20:53	5
	а если база лежит в другом месте? На компашке, а компашка в шкафу? Тогда достать компашку и выполнить п.5 0

@arsenkorotkin 0 / 0 / 0 Регистрация: 28.04.2017 Сообщений: 282
	23.12.2019, 21:01 [ТС]	6
	Мудрый Ижик, мне нужен код 0

@arsenkorotkin 0 / 0 / 0 Регистрация: 28.04.2017 Сообщений: 282
	24.12.2019, 22:02 [ТС]	8
	UR1004SWL, наверное да, надо обьяснять 0

@arsenkorotkin 0 / 0 / 0 Регистрация: 28.04.2017 Сообщений: 282
	24.12.2019, 22:04 [ТС]	9
	UR1004SWL, я хочу чтобы путь к бд записывался и сохранялся в txt файл при нажатии на эту кнопку Миниатюры 0

@arsenkorotkin 0 / 0 / 0 Регистрация: 28.04.2017 Сообщений: 282
	28.12.2019, 21:03 [ТС]	11
	UR1004SWL, помоги 0

@arsenkorotkin 0 / 0 / 0 Регистрация: 28.04.2017 Сообщений: 282
	03.01.2020, 15:19 [ТС]	12
	UR1004SWL, помоги мне разобраться, пожалуйста 0

	04.01.2020, 20:18

@arsenkorotkin 0 / 0 / 0 Регистрация: 28.04.2017 Сообщений: 282
	04.01.2020, 16:17 [ТС]	14
	UR1004SWL, можете помочь? 0

@UR1004SWL 561 / 230 / 88 Регистрация: 11.07.2015 Сообщений: 817
	04.01.2020, 16:21	15
	arsenkorotkin То, что Вы хотите сделать в Вашем проекте, это нужно весь проект переделывать. Так как у Вас всё завязано на конкретном пути к базе, да ещё путь привязан к Вашему компьютеру. И без кардинальной переработки всего проекта очень проблемматично. 0

@arsenkorotkin 0 / 0 / 0 Регистрация: 28.04.2017 Сообщений: 282
	04.01.2020, 16:23 [ТС]	16
	разве? Добавлено через 17 секунд UR1004SWL, разве? я так понимаю что лучше забить? 0

@UR1004SWL 561 / 230 / 88 Регистрация: 11.07.2015 Сообщений: 817
	04.01.2020, 16:35	17
	Сообщение от arsenkorotkin разве? А что тогда спрашиваете. 0

@arsenkorotkin 0 / 0 / 0 Регистрация: 28.04.2017 Сообщений: 282
	04.01.2020, 16:58 [ТС]	18
	Может получится решить вопрос если пароль для авторизации брать с ini файла и записывать его в ini файл? 0

@arsenkorotkin 0 / 0 / 0 Регистрация: 28.04.2017 Сообщений: 282
	04.01.2020, 20:18 [ТС]	20
	UR1004SWL, спасибо друг, работает, но как мне сменить пароль, удалить Добавлено через 50 секунд UR1004SWL, и я так понимаю, что при первом вводе любого пароля он записывает в ini файл? 0