Перейти к содержанию
  • 0
mari rogan

FD+MSacc проблема с подключением

Вопросы

Лежит здесь
I:\Projects\Embarcadero\Delphi\Server-Client\étoile\Serveur\Win64\Debug\BD\UserBD.mdb

функция

function TForm2.BDconnected(S3: string; S2, S1: Tobject): string;

begin
if s1 is TFDConnection then
begin

TFDConnection(s1).Params.DriverID:='MSAcc';
TFDConnection(s1).Params.Database:=S3;
//TFDConnection(s1).Params.AddPair('ODBCAdvanced','DefaultDir='+s3+'DriverId=25;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommitSync=Yes');
TFDConnection(s1).Connected := True;

end;

if s1 is TFDQuery then
begin
TFDQuery(s2).SQL.Text:='Select*From User_Grid';
TFDQuery(s2).Active:=true;
end;
end;

end.

функция вызова

procedure TForm1.CornerButton1Click(Sender: TObject);

var DatabaseFilePath,AppDirPath:string;

begin

AppDirPath := ExtractFilePath(ParamStr(0)); DatabaseFilePath := AppDirPath + 'BD\UserBD.mdb';

Form2.BDconnected(DatabaseFilePath,Form2.FDQuery1, Form2.FDConnection1);

end;

Вот такая ошибка:

 

 

ttz9zаkk1ct.jpg

Отредактировал mari rogan

Поделиться сообщением


Ссылка на сообщение

Рекомендуемые сообщения

Ответы на этот вопрос пока отсутствуют

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить на вопрос...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.


  • Последние посетители   0 пользователей онлайн

    Ни одного зарегистрированного пользователя не просматривает данную страницу

×
×
  • Создать...