Подключение БД(.db) через делфи

@Mariana · Регистрация: 07.12.2010

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

Народ, такой вопрос.
Есть программа, которая подключается к БД и извлекает из нее данные. Программа работает, если программа и база лежат в одной папке и вызываются отсюда же. Вопрос в следующем, как сделать, чтобы программа и база, находясь в разных папках, могли работать друг с другом.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
begin
 
    f:=TStringList.Create;
    lessql.SQL.Clear;
    lessql.SQL.Add('Select * from les where dat='''+ dt +'''');
    lessql.Active:=True;
    f.Add('IdStantion'#9'Dat'#9'SSS'#9'RRR'#9'E'#9'DD'#9'LL'#9'K'#9'b0'#9'b1'#9'b2'#9'b3'#9'b4'#9'b5'#9'b6'#9'b7'#9'b8'#9'b9'#9'e0'#9'e1'#9'e2'#9'e3'#9'e4'#9'e5'#9'e6'#9'e7'#9'e8'#9'e9');
 
    if lessql.RecordCount > 0 then //если в таблице записей > 0
    begin
      for i:=1 to lessql.RecordCount  do
      begin
         f.Add(lessql.fieldbyname('IdStantion').asstring+#9+lessql.fieldbyname('Dat').asstring+#9+lessql.fieldbyname('SSS').asstring+#9
        +lessql.fieldbyname('RRR').asstring+#9+lessql.fieldbyname('E').asstring+#9+lessql.fieldbyname('DD').asstring+#9
        +lessql.fieldbyname('LL').asstring+#9+lessql.fieldbyname('K').asstring+#9+lessql.fieldbyname('b0').asstring+#9
        +lessql.fieldbyname('b1').asstring+#9+lessql.fieldbyname('b2').asstring+#9+lessql.fieldbyname('b3').asstring+#9
        +lessql.fieldbyname('b4').asstring+#9+lessql.fieldbyname('b5').asstring+#9+lessql.fieldbyname('b6').asstring+#9
        +lessql.fieldbyname('b7').asstring+#9+lessql.fieldbyname('b8').asstring+#9+lessql.fieldbyname('b9').asstring+#9
        +lessql.fieldbyname('e0').asstring+#9+lessql.fieldbyname('e1').asstring+#9+lessql.fieldbyname('e2').asstring+#9
        +lessql.fieldbyname('e3').asstring+#9+lessql.fieldbyname('e4').asstring+#9+lessql.fieldbyname('e5').asstring+#9
        +lessql.fieldbyname('e6').asstring+#9+lessql.fieldbyname('e7').asstring+#9+lessql.fieldbyname('e8').asstring+#9+lessql.fieldbyname('e9').asstring);
        lessql.Next;
      end;
 
      try
        outputFile := FolderOrDefault(folder) + dt + '-снегосъемка в лесу.txt'; //'-les.txt'; // даписывает в '' название файла
        f.SaveToFile(outputFile);
        Result := true;
      except
        outputFile := ''
      end;

@Lord_Voodoo · 07.12.2010, 15:04

Mariana, для БДЕ создается алиас в бде админе, тогда прога сама будет знать, где лежит база, для адо - это TADOConnection настроить надо... а основные настройки можно вынести в ини-файл

@VampireKB · 08.12.2010, 04:07

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

Delphi
1
Query1.sql.text:='select * from "c:\1.DB" where x>0

@Mariana · 08.12.2010, 14:05 **[ТС]**

А подскажите, можно ли в ини файле прописать путь к бд. Если да то каким образом?????

@VampireKB · 08.12.2010, 22:25

Можно...
в uses добавляем Inifiles

в var добавляем DBpath:string

и действие на

Delphi
1
2
3
4
5
6
7
8
9
Form.OnCreate
var
myini:Tinifile;
begin
myini:=Tinifilecreate(Extractfilepath(Application.Exename)+'options.ini');
DBpath:=myini.readstring('DB','DBPATH',Extractfilepath(Application.Exename)+'DATABASE\DATABASE.DB');
myini.writestring('DB','DBPATH',DBpath);
myini.Updatefiles;
myini.free;

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	07.12.2010, 15:04
	Mariana, для БДЕ создается алиас в бде админе, тогда прога сама будет знать, где лежит база, для адо - это TADOConnection настроить надо... а основные настройки можно вынести в ини-файл 0

@Mariana 0 / 0 / 0 Регистрация: 07.12.2010 Сообщений: 9
	08.12.2010, 14:05 [ТС]
	А подскажите, можно ли в ини файле прописать путь к бд. Если да то каким образом????? 0