Перейти к содержанию
  • Регистрация
  • 0
Авторизация  
lolya gj

FireDac компоненты

Вопрос

s:=Extractfilepath(paramstr(0))+'\Debug\BD\USES.mdb;';
FDConnection1.DriverName:='IB';
FDConnection1.Params.Strings:='Database='+s+'User_Name=Admin;'+ 'PASSWORD=MASTER_KEY;'+'PROTOCOL=TCPIP;'+'SERVER=LOCALHOST;';
 FDConnection1.Connected:=TRUE;
 FDConnection1.LoginPrompt:=FALSE;
 FDQuery1.SQL.Add('SELECT*FROM User');
 FDQuery1.Active:=true;
 DataSource1.DataSet:=FDQuery1;

 

указывает на строчку

Код:
form4.FDConnection1.Params:='Database='+s+'User_Name=Admin;'+ 'PASSWORD=MASTER_KEY;'+'PROTOCOL=TCPIP;'+'SERVER=LOCALHOST;';

 

с ошибкой:Checking project dependencies...
Compiling Server.dproj (Debug, Win64)
dcc64 command line for "Server.dpr"
  c:\program files (x86)\embarcadero\studio\20.0\bin\dcc64.exe -$O- -$W+ --no-config -M -Q -TX.exe -AGenerics.Collections=System.Generics.Collections;
  Generics.Defaults=System.Generics.Defaults;WinTypes=Winapi.Windows;WinProcs=Winapi.Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE -DDEBUG 
  -E.\Win64\Debug -I"c:\program files (x86)\embarcadero\studio\20.0\lib\Win64\debug";"c:\program files (x86)\embarcadero\studio\20.0\lib\Win64\release";
  "C:\Users\Артас\Documents\Embarcadero\Studio\20.0\Imports";"c:\program files (x86)\embarcadero\studio\20.0\Imports";
  C:\Users\Public\Documents\Embarcadero\Studio\20.0\Dcp\Win64;"c:\program files (x86)\embarcadero\studio\20.0\include" 
  -LEC:\Users\Public\Documents\Embarcadero\Studio\20.0\Bpl\Win64 -LNC:\Users\Public\Documents\Embarcadero\Studio\20.0\Dcp\Win64 -NU.\Win64\Debug 
  -NSWinapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;System;Xml;Data;Datasnap;Web;Soap; -O"c:\program files 
  (x86)\embarcadero\studio\20.0\lib\Win64\release";"C:\Users\Артас\Documents\Embarcadero\Studio\20.0\Imports";"c:\program files 
  (x86)\embarcadero\studio\20.0\Imports";C:\Users\Public\Documents\Embarcadero\Studio\20.0\Dcp\Win64;"c:\program files 
  (x86)\embarcadero\studio\20.0\include" -R"c:\program files (x86)\embarcadero\studio\20.0\lib\Win64\release";
  "C:\Users\Артас\Documents\Embarcadero\Studio\20.0\Imports";"c:\program files (x86)\embarcadero\studio\20.0\Imports";
  C:\Users\Public\Documents\Embarcadero\Studio\20.0\Dcp\Win64;"c:\program files (x86)\embarcadero\studio\20.0\include" -U"c:\program files 
  (x86)\embarcadero\studio\20.0\lib\Win64\debug";"c:\program files (x86)\embarcadero\studio\20.0\lib\Win64\release";
  "C:\Users\Артас\Documents\Embarcadero\Studio\20.0\Imports";"c:\program files (x86)\embarcadero\studio\20.0\Imports";
  C:\Users\Public\Documents\Embarcadero\Studio\20.0\Dcp\Win64;"c:\program files (x86)\embarcadero\studio\20.0\include" -V -VN -VR 
  -NBC:\Users\Public\Documents\Embarcadero\Studio\20.0\Dcp\Win64 -NHC:\Users\Public\Documents\Embarcadero\Studio\20.0\hpp\Win64 -NO.\Win64\Debug  
  Server.dpr   
[dcc64 Error] User.pas(48): E2029 '[' expected but ':=' found
[dcc64 Error] User.pas(48): E2010 Incompatible types: 'Procedure' and 'string'
[dcc64 Fatal Error] Server.dpr(9): F2063 Could not compile used unit 'User.pas'
Failed
Elapsed time: 00:00:01.9

Если так то:

FDConnection1.Params.Strings['Database='+s+'User_Name=Admin;'+'PASSWORD=MASTER_KEY;'+'PROTOCOL=TCPIP;'+'SERVER=LOCALHOST;'];

Checking project dependencies...
Compiling Server.dproj (Debug, Win64)
dcc64 command line for "Server.dpr"
  c:\program files (x86)\embarcadero\studio\20.0\bin\dcc64.exe -$O- -$W+ --no-config -M -Q -TX.exe -AGenerics.Collections=System.Generics.Collections;
  Generics.Defaults=System.Generics.Defaults;WinTypes=Winapi.Windows;WinProcs=Winapi.Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE -DDEBUG 
  -E.\Win64\Debug -I"c:\program files (x86)\embarcadero\studio\20.0\lib\Win64\debug";"c:\program files (x86)\embarcadero\studio\20.0\lib\Win64\release";
  "C:\Users\Артас\Documents\Embarcadero\Studio\20.0\Imports";"c:\program files (x86)\embarcadero\studio\20.0\Imports";
  C:\Users\Public\Documents\Embarcadero\Studio\20.0\Dcp\Win64;"c:\program files (x86)\embarcadero\studio\20.0\include" 
  -LEC:\Users\Public\Documents\Embarcadero\Studio\20.0\Bpl\Win64 -LNC:\Users\Public\Documents\Embarcadero\Studio\20.0\Dcp\Win64 -NU.\Win64\Debug 
  -NSWinapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;System;Xml;Data;Datasnap;Web;Soap; -O"c:\program files 
  (x86)\embarcadero\studio\20.0\lib\Win64\release";"C:\Users\Артас\Documents\Embarcadero\Studio\20.0\Imports";"c:\program files 
  (x86)\embarcadero\studio\20.0\Imports";C:\Users\Public\Documents\Embarcadero\Studio\20.0\Dcp\Win64;"c:\program files 
  (x86)\embarcadero\studio\20.0\include" -R"c:\program files (x86)\embarcadero\studio\20.0\lib\Win64\release";
  "C:\Users\Артас\Documents\Embarcadero\Studio\20.0\Imports";"c:\program files (x86)\embarcadero\studio\20.0\Imports";
  C:\Users\Public\Documents\Embarcadero\Studio\20.0\Dcp\Win64;"c:\program files (x86)\embarcadero\studio\20.0\include" -U"c:\program files 
  (x86)\embarcadero\studio\20.0\lib\Win64\debug";"c:\program files (x86)\embarcadero\studio\20.0\lib\Win64\release";
  "C:\Users\Артас\Documents\Embarcadero\Studio\20.0\Imports";"c:\program files (x86)\embarcadero\studio\20.0\Imports";
  C:\Users\Public\Documents\Embarcadero\Studio\20.0\Dcp\Win64;"c:\program files (x86)\embarcadero\studio\20.0\include" -V -VN -VR 
  -NBC:\Users\Public\Documents\Embarcadero\Studio\20.0\Dcp\Win64 -NHC:\Users\Public\Documents\Embarcadero\Studio\20.0\hpp\Win64 -NO.\Win64\Debug  
  Server.dpr   
[dcc64 Error] User.pas(48): E2010 Incompatible types: 'Integer' and 'string'
[dcc64 Fatal Error] Server.dpr(9): F2063 Could not compile used unit 'User.pas'
Failed
Elapsed time: 00:00:02.1

Изменено пользователем lolya gj

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


Ссылка на сообщение
Поделиться на другие сайты

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

  • 0
var DriverID, Server, SetDatabase, UserName, Password: string;
Begin
	....
	FDConnection1.Close;
	FDConnection1.Params.Clear;
	FDConnection1.Params.Add('DriverID=' + DriverID);
	FDConnection1.Params.Add('SERVER=' + Server);
	FDConnection1.Params.Add('Database=' + SetDatabase);
	FDConnection1.Params.Add('User_Name=' + UserName);
	FDConnection1.Params.Add('Password=' + Password);
	FDConnection1.Open;
End;

 

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


Ссылка на сообщение
Поделиться на другие сайты

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

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

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

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

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

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

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

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

Авторизация  

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

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

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