ADOconnection- соединение с БД через регистр

[Silverra]

Добрый день! Есть две функции, реализующие считывание из регистра и получение командной строки

function ReadFromReg(KeyName, ParamName: string; DefaultValue: string = ''): string;
begin
  try
    with TRegistry.Create do
    try
      RootKey := HKEY_LOCAL_MACHINE;
      if OpenKey(KeyName, True) then
      begin
        if not ValueExists(ParamName) then
          WriteString(ParamName, DefaultValue);
        Result := ReadString(ParamName);
      end;
      CloseKey;
    finally
      Free;
    end;
  finally
  end;
  end;

  function GetConnectionString(RegConnectionKey: string): string;
begin
  Result := 'Provider=SQLOLEDB.1;Persist Security Info=False;' +
            'Initial Catalog=' + ReadFromReg(RegConnectionKey, 'Initial Catalog') + ';' +
            'Data Source=' + ReadFromReg(RegConnectionKey, 'Data Source');
  if ReadFromReg(RegConnectionKey, 'Integrated Security') <> '' then
    Result := Result + ';Integrated Security=' + ReadFromReg(RegConnectionKey, 'Integrated Security')
  else
    Result := Result + ';User ID=' + ReadFromReg(RegConnectionKey, 'User ID') + ';' +
                       ';Password=' + ReadFromReg(RegConnectionKey, 'Password');
//  MessageBox(0, PChar(Result), PChar(cstRegConnectionKey), 0);
end;

Вопрос: как теперь функцию получения командной строки связать с ADOConnection?

[Yurk@]

ADOConnection.ConnectionString := GetConnectionString(<ключ реестра>);

не?

[Silverra]

ошибка недопустимая спецификация авторизации

Сообщение от Yurk@

ADOConnection.ConnectionString := GetConnectionString(<ключ реестра>);

не?

Эту строку я указываю при создании формы? Я правильно поняла?

[Serge_Bliznykov]

Эту строку я указываю при создании формы? Я правильно поняла?

да, правильно!
можно, в принципе, указывать в любом месте ДО открытия ADOCOnnection...

ошибка недопустимая спецификация авторизации

в какой момент возникает ошибка?
И трудно судить издалека, но, скорее всего, строчка, которую возвращает GetConnectionString имеет ошибку.
Попробуйте вывести текст в переменную (например, в Memo:

Memo1.Text := GetConnectionString(<ключ реестра>);
// ADOConnection.ConnectionString := GetConnectionString(<ключ реестра>);

и посмотрите, что за строчка получается..
попробуйте эту строчку прописать в дизайнере (прямо в инспекторе объктов выделите ADOConnection - щелкните по свойству ConnectionString и пропишите туда полученный текст). Если ошибка возникнет - разбирайтесь, какая и устраняйте её. После это, исправьте в реестре найденную проблему...

[Silverra]

Проблема возникает при создании формы, скорее как вы и сказали ошибка в формировании строки соединения, попробую последовать вашим рекомендациям.

Почему то в строке соединения не получены данные из регистра, она вообще пустая

Provider=SQLOLEDB.1;Persist Security Info=False;Initial Catalog=;Data Source=;User ID=;;Password=