VPF::ADO (MS Access). Ошибка "Проверка подлинности"

Sansa

Дата 17.5.2007, 13:23 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 173
Регистрация: 18.10.2006
Где: Королев

Репутация: 2
Всего: 6

Следующий код в строке помеченной стрелкой, вызывает исключение EOleException "Не выполнена проверка подлинности"
Когда ADOQuery лежал на TDataModule код работал.
Как выполнить эту проверку?

Код


function OpenRBUDataSet(const ADBFileName: string; ASQL: TStrings): TDataSet;
var
  LADODataSet: TADOQuery;
begin
  LADODataSet:= TADOQuery.Create(nil);
  LADODataSet.ConnectionString:= 'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source='
      + ADBFileName + ';Persist Security Info=False';
  LADODataSet.SQL.Clear;
 --> LADODataSet.SQL.AddStrings(ASQL);
//  LADODataSet.Parameters.ParseSQL(LADODataSet.SQL.Text, True);
  Result:= LADODataSet;
end;

--------------------

- Здравствуйте, я Ваш патологоанатом

drkot

Дата 17.5.2007, 23:40 (ссылка)

(нет голосов)

Загрузка ...

Ищущий

Профиль
Группа: Завсегдатай
Сообщений: 1042
Регистрация: 5.5.2006

Репутация: нет
Всего: 8

От того где лежит не важно.
важно значение которое имеет ASQL

--------------------

Ошибка не становится истиной по причине широкого распространения,
как и Истина не становится Ошибкой из-за того, что никто её не видит.

Sansa

Дата 18.5.2007, 08:56 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 173
Регистрация: 18.10.2006
Где: Королев

Репутация: 2
Всего: 6

Сейчас немного переделал код (использовал вместо сборки строки подключения файл udl), и все заработало. Странно, но если не считать Unicode, то содержимое этого файла от моей строки ничем не отличается.
Рабочий код:

Код


function OpenRBUDataSet(const ADBConnFileName: string; ASQL: TStrings): TADOQuery;

var

  LADODataSet: TADOQuery;

begin

  LADODataSet:= TADOQuery.Create(nil);

  LADODataSet.ConnectionString:= 'FILE NAME=' + ADBConnFileName;

  LADODataSet.SQL.Clear;

  LADODataSet.SQL:= ASQL;

//  LADODataSet.Parameters.ParseSQL(LADODataSet.SQL.Text, True);

  Result:= LADODataSet;

end;

--------------------

- Здравствуйте, я Ваш патологоанатом

SergeBS

Дата 18.5.2007, 10:17 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1111
Регистрация: 10.6.2005
Где: Владимир

Репутация: 11
Всего: 22

LADODataSet.Open - не хватало перед строкой со стрелкой..

Добавлено через 13 минут и 9 секунд
Пардон, ошибался. Не то. Скорее дело в именно в Unicode. Можно попробовать строку из udl запихнуть в ConnectionString и убедиться.

Sansa

Дата 18.5.2007, 11:27 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 173
Регистрация: 18.10.2006
Где: Королев

Репутация: 2
Всего: 6

Не уверен. Так как когда ADOQuery находилась на DataModule строка подключения формировалась точно так же. Вся разница только в том, что после "оптимизации" этот Query стал локальной переменной

--------------------

- Здравствуйте, я Ваш патологоанатом

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »