Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 13.09.2019, 17:50   #1
linda88
Пользователь
 
Регистрация: 17.01.2019
Сообщений: 78
Восклицание 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;';
с ошибкой:
[dcc64 Error] User.pas(48): E2029 '[' expected but '.' found
[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

Последний раз редактировалось linda88; 13.09.2019 в 18:00. Причина: уточнение вопроса
linda88 вне форума Ответить с цитированием
Старый 13.09.2019, 17:56   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

и что?
Serge_Bliznykov вне форума Ответить с цитированием
Старый 13.09.2019, 18:01   #3
linda88
Пользователь
 
Регистрация: 17.01.2019
Сообщений: 78
По умолчанию

Цитата:
Сообщение от Serge_Bliznykov Посмотреть сообщение
и что?
с
ошибкой
[dcc64 Error] User.pas(48): E2029 '[' expected but '.' found
[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

и не дает подключиться к базе данных что я делаю неправильно?

Последний раз редактировалось linda88; 13.09.2019 в 19:03.
linda88 вне форума Ответить с цитированием
Старый 13.09.2019, 19:19   #4
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Наверняка Strings не типа String и очень похоже, что TStringList. А нижняя строчка где в приведенном фрагменте кода?
Код:
form4.FDConnection1.Params:='Database='+s+'User_Name=Admin;'+ 'PASSWORD=MASTER_KEY;'+'PROTOCOL=TCPIP;'+'SERVER=LOCALHOST;';
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Старый 13.09.2019, 19:38   #5
linda88
Пользователь
 
Регистрация: 17.01.2019
Сообщений: 78
По умолчанию

3-я строчка в первом сообщении

Хоть так
Код:
FDConnection1.Params.Strings:='Database='+s+'User_Name=Admin;'+ 'PASSWORD=MASTER_KEY;'+'PROTOCOL=TCPIP;'+'SERVER=LOCALHOST;';
Хоть так
Код:
FDConnection1.Params:='Database='+s+'User_Name=Admin;'+ 'PASSWORD=MASTER_KEY;'+'PROTOCOL=TCPIP;'+'SERVER=LOCALHOST;';
Ругается одинаково

Если сделать так
Код:
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\d cc64.exe -$O- -$W+ --no-config -M -Q -TX.exe -AGenerics.Collections=System.Generi cs.Collections;
Generics.Defaults=System.Generics.D efaults;WinTypes=Winapi.Windows;Win Procs=Winapi.Windows;DbiTypes=BDE;D biProcs=BDE;DbiErrs=BDE -DDEBUG
-E.\Win64\Debug -I"c:\program files (x86)\embarcadero\studio\20.0\lib\W in64\debug";"c:\program files (x86)\embarcadero\studio\20.0\lib\W in64\release";
"C:\Users\Артас\Documents\Embarcade ro\Studio\20.0\Imports";"c:\program files (x86)\embarcadero\studio\20.0\Impor ts";
C:\Users\Public\Documents\Embarcade ro\Studio\20.0\Dcp\Win64;"c:\progra m files (x86)\embarcadero\studio\20.0\inclu de"
-LEC:\Users\Public\Documents\Embarca dero\Studio\20.0\Bpl\Win64 -LNC:\Users\Public\Documents\Embarca dero\Studio\20.0\Dcp\Win64 -NU.\Win64\Debug
-NSWinapi;System.Win;Data.Win;Datasn ap.Win;Web.Win;Soap.Win;Xml.Win;Sys tem;Xml;Data;Datasnap;Web;Soap; -O"c:\program files
(x86)\embarcadero\studio\20.0\lib\W in64\release";"C:\Users\Артас\Docum ents\Embarcadero\Studio\20.0\Import s";"c:\program files
(x86)\embarcadero\studio\20.0\Impor ts";C:\Users\Public\Documents\Embar cadero\Studio\20.0\Dcp\Win64;"c:\pr ogram files
(x86)\embarcadero\studio\20.0\inclu de" -R"c:\program files (x86)\embarcadero\studio\20.0\lib\W in64\release";
"C:\Users\Артас\Documents\Embarcade ro\Studio\20.0\Imports";"c:\program files (x86)\embarcadero\studio\20.0\Impor ts";
C:\Users\Public\Documents\Embarcade ro\Studio\20.0\Dcp\Win64;"c:\progra m files (x86)\embarcadero\studio\20.0\inclu de" -U"c:\program files
(x86)\embarcadero\studio\20.0\lib\W in64\debug";"c:\program files (x86)\embarcadero\studio\20.0\lib\W in64\release";
"C:\Users\Артас\Documents\Embarcade ro\Studio\20.0\Imports";"c:\program files (x86)\embarcadero\studio\20.0\Impor ts";
C:\Users\Public\Documents\Embarcade ro\Studio\20.0\Dcp\Win64;"c:\progra m files (x86)\embarcadero\studio\20.0\inclu de" -V -VN -VR
-NBC:\Users\Public\Documents\Embarca dero\Studio\20.0\Dcp\Win64 -NHC:\Users\Public\Documents\Embarca dero\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.5

а если так
Код:
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\d cc64.exe -$O- -$W+ --no-config -M -Q -TX.exe -AGenerics.Collections=System.Generi cs.Collections;
Generics.Defaults=System.Generics.D efaults;WinTypes=Winapi.Windows;Win Procs=Winapi.Windows;DbiTypes=BDE;D biProcs=BDE;DbiErrs=BDE -DDEBUG
-E.\Win64\Debug -I"c:\program files (x86)\embarcadero\studio\20.0\lib\W in64\debug";"c:\program files (x86)\embarcadero\studio\20.0\lib\W in64\release";
"C:\Users\Артас\Documents\Embarcade ro\Studio\20.0\Imports";"c:\program files (x86)\embarcadero\studio\20.0\Impor ts";
C:\Users\Public\Documents\Embarcade ro\Studio\20.0\Dcp\Win64;"c:\progra m files (x86)\embarcadero\studio\20.0\inclu de"
-LEC:\Users\Public\Documents\Embarca dero\Studio\20.0\Bpl\Win64 -LNC:\Users\Public\Documents\Embarca dero\Studio\20.0\Dcp\Win64 -NU.\Win64\Debug
-NSWinapi;System.Win;Data.Win;Datasn ap.Win;Web.Win;Soap.Win;Xml.Win;Sys tem;Xml;Data;Datasnap;Web;Soap; -O"c:\program files
(x86)\embarcadero\studio\20.0\lib\W in64\release";"C:\Users\Артас\Docum ents\Embarcadero\Studio\20.0\Import s";"c:\program files
(x86)\embarcadero\studio\20.0\Impor ts";C:\Users\Public\Documents\Embar cadero\Studio\20.0\Dcp\Win64;"c:\pr ogram files
(x86)\embarcadero\studio\20.0\inclu de" -R"c:\program files (x86)\embarcadero\studio\20.0\lib\W in64\release";
"C:\Users\Артас\Documents\Embarcade ro\Studio\20.0\Imports";"c:\program files (x86)\embarcadero\studio\20.0\Impor ts";
C:\Users\Public\Documents\Embarcade ro\Studio\20.0\Dcp\Win64;"c:\progra m files (x86)\embarcadero\studio\20.0\inclu de" -U"c:\program files
(x86)\embarcadero\studio\20.0\lib\W in64\debug";"c:\program files (x86)\embarcadero\studio\20.0\lib\W in64\release";
"C:\Users\Артас\Documents\Embarcade ro\Studio\20.0\Imports";"c:\program files (x86)\embarcadero\studio\20.0\Impor ts";
C:\Users\Public\Documents\Embarcade ro\Studio\20.0\Dcp\Win64;"c:\progra m files (x86)\embarcadero\studio\20.0\inclu de" -V -VN -VR
-NBC:\Users\Public\Documents\Embarca dero\Studio\20.0\Dcp\Win64 -NHC:\Users\Public\Documents\Embarca dero\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: 'Integer' and 'string'
[dcc64 Fatal Error] Server.dpr(9): F2063 Could not compile used unit 'User.pas'
Failed
Elapsed time: 00:00:02.4

Последний раз редактировалось linda88; 13.09.2019 в 19:59.
linda88 вне форума Ответить с цитированием
Старый 13.09.2019, 20:55   #6
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

а так?
Код:

....

FDConnection1.Params.Clear; // <--- может быть, эта строчки и не нужна

FDConnection1.Params.Add('Database='+Extractfilepath(paramstr(0))+'\Debug\BD\USES.mdb');
FDConnection1.Params.Add('User_Name=Admin');
FDConnection1.Params.Add('PASSWORD=MASTER_KEY');
FDConnection1.Params.Add('PROTOCOL=TCPIP');
FDConnection1.Params.Add('SERVER=LOCALHOST');
Serge_Bliznykov вне форума Ответить с цитированием
Старый 14.09.2019, 02:13   #7
northener
ПШП
Участник клуба
 
Регистрация: 15.07.2013
Сообщений: 1,859
По умолчанию

Цитата:
Сообщение от linda88 Посмотреть сообщение
что я делаю неправильно?
Не читаете учебники и справки по компонентам Дельфи. И надеетесь что Дельфи и её компилятор достаточно умные для того чтобы понять ваши желания.
Не знаю на 100% тип свойства FDConnection1.Params, но на 99% и 9 в периоде уверен что это список. И не просто список, а класс-список типа TStrings.
Этот список можно заполнить как указано в примере Serge_Bliznykov #6, добавлением в сей список параметров по очереди. Либо (если это действительно класс-список типа TStrings) присвоением строки из вашего поста свойству DelimitedText этого класса.
northener вне форума Ответить с цитированием
Старый 14.09.2019, 19:36   #8
linda88
Пользователь
 
Регистрация: 17.01.2019
Сообщений: 78
По умолчанию

теперь вот чтопишет
Изображения
Тип файла: jpg Безымянный.jpg (119.6 Кб, 159 просмотров)
linda88 вне форума Ответить с цитированием
Старый 15.09.2019, 02:52   #9
northener
ПШП
Участник клуба
 
Регистрация: 15.07.2013
Сообщений: 1,859
По умолчанию

Цитата:
Сообщение от linda88 Посмотреть сообщение
теперь вот чтопишет
Ув. Линда88. Вы думаете что приложенная вами картинка столь информативна, что вам сразу "дадут щастье"?
northener вне форума Ответить с цитированием
Старый 15.09.2019, 07:21   #10
Black Fregat
Программист
Участник клуба
 
Аватар для Black Fregat
 
Регистрация: 23.06.2009
Сообщений: 1,772
По умолчанию

Цитата:
Сообщение от linda88 Посмотреть сообщение
теперь вот чтопишет
Вообще-то там английским языком всё написано - что за ошибка и что именно нужно сделать, чтобы её исправить: добавить компонент к проекту
Black Fregat вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
DBGRID + FIredac + inner jon+oracle =ora-00904: Invalid identifier mr_xxx Общие вопросы Delphi 13 28.01.2019 14:38
Как в FireDAC записать в поле типа MEDIUMTEXT? strongmaster БД в Delphi 0 06.01.2019 09:48
Где взять FireDAC? Ship_1 Компоненты Delphi 8 09.01.2018 10:13
выходные параметры хранимой процедуры (FireBird 2.5, FireDac) Dozent БД в Delphi 2 20.10.2014 07:25
DataSet.Recordset.GetRows из ADO в FireDAC Dozent БД в Delphi 1 13.08.2013 15:02