Соединение с БД во время выполнения программы, технология ADO

@smoyk · Регистрация: 31.01.2011

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

Надо не только установить соединение, но и сохранить его настройки в файл для последующей загрузки.
Я делаю так:

Delphi

if EditConnectionString(ADOConnection) then
  if (MessegeDLG('Сохранить настройки?',mtConferm,[mbYes,mbNo],0)=mrYes) then
  begin
    AssignFile(f, 'connect.udl'); Rewrite(f);
    writeln(f,'[oledb]'); 
    write(f, ADOConnection.ConnectionString);
    CloseFile(f);
  end;

Во-первых, запрос на сохранение настроек выводится и при загрузке настроек из файла, что не есть гуд.
Во-вторых, пытаюсь загрузить настройки из файла - возникает ошибка, либо "неверный составной файл" (было раньше, но стандартный DBDEMOS.udl принимал), а теперь "неверный параметр" (даже на DBDEMOS.udl). Короче не работает.
Может кто-нибудь посоветовать как сделать, чтоб все работало првильно? Можт я со свойствами у ADOConnection напутал?

@vpanasenko · 11.08.2006, 19:25

А просто в INI сохранить ConnectionString не додумался ? Ложишь на форму(датамодуль) FormStorage из RxLib. Настраиваешь на ADOConnection.ConnectionString... И все... Можно самому из INI читать. А можно все по модному, в реестре хранить. Если сам будешь сохранять/читать, то Readln(FTxt, ConString);
ADOConnection.ConnectionString := ConString;
Без всяких UDL и т.п.

@smoyk · 15.08.2006, 14:11 **[ТС]**

Можно по подробнее, а то я такое еще не делал и не совсем понял, что вы написали. Что такое FormStorag, где его достать, и как с ним работать7

@vpanasenko · 15.08.2006, 14:43

А что можно еще подробней ? Если не работал, то можно так: у TADOConnection свойство ConnectionString - срока. Поэтому ее можно записать в текстовый файл(реестр/ИНИ) и счиатать оттуда.

Delphi

...
var
 FText : TextFile;
AConStr : String;
begin
//-Запись строки подключения
 AssignFile(FText, 'ADOCONNECTIONSTRNG.SET'); 
 Rewrite(FText);
 AConStr := ADOConnection.ConnectionString;
 WriteLn(FText, AConStr);
 CloseFile(FText);
 ...
 //Чтение строки подключения
 Reset(FText);
 ReadLn(FText, AConStr);
with ADOConnection do
begin
  Connected := False
  ConnectionString := AConStr;
  Connected := True;
end;//with
end;

@smoyk · 18.08.2006, 15:05 **[ТС]**

Все это хорошо, но в файл записывается уже готовая строка подключения, а мне надо ее сначала сформировать, т.е. надо ывполнить настройку подключения во время выполнения программы (см. 1-е сообщение).

@vpanasenko · 19.08.2006, 16:46

DS := PromptDataSource(Application.Handle, '');
DS - строка

03.07.2007, 19:21

Приветствую! Если я правильно понял, то необходимо сформировать ConString на этапе выполнения программы? То есть не устраивает хранение готового ConStringa, а нужен такой, в котором параметр пути к базе был бы изменяем?

@vpanasenko 1 / 1 / 7 Регистрация: 28.06.2011 Сообщений: 342
	11.08.2006, 19:25	2
	А просто в INI сохранить ConnectionString не додумался ? Ложишь на форму(датамодуль) FormStorage из RxLib. Настраиваешь на ADOConnection.ConnectionString... И все... Можно самому из INI читать. А можно все по модному, в реестре хранить. Если сам будешь сохранять/читать, то Readln(FTxt, ConString); ADOConnection.ConnectionString := ConString; Без всяких UDL и т.п. 0

@smoyk 2 / 2 / 0 Регистрация: 31.01.2011 Сообщений: 39
	15.08.2006, 14:11 [ТС]	3
	Можно по подробнее, а то я такое еще не делал и не совсем понял, что вы написали. Что такое FormStorag, где его достать, и как с ним работать7 0

@smoyk 2 / 2 / 0 Регистрация: 31.01.2011 Сообщений: 39
	18.08.2006, 15:05 [ТС]	5
	Все это хорошо, но в файл записывается уже готовая строка подключения, а мне надо ее сначала сформировать, т.е. надо ывполнить настройку подключения во время выполнения программы (см. 1-е сообщение). 0

@vpanasenko 1 / 1 / 7 Регистрация: 28.06.2011 Сообщений: 342
	19.08.2006, 16:46	6
	DS := PromptDataSource(Application.Handle, ''); DS - строка 0

AndresMM
	03.07.2007, 19:21	7
	Приветствую! Если я правильно понял, то необходимо сформировать ConString на этапе выполнения программы? То есть не устраивает хранение готового ConStringa, а нужен такой, в котором параметр пути к базе был бы изменяем?