Перейти к содержанию

Mari_rohan

Пользователи
  • Активность

    7
  • Зарегистрирован

  • Посещение

Информация о Mari_rohan

  • Звание
    Новичок
  1. FDConnection1.Params.AddPair('ODBCAdvanced','DefaultDir=I:\Projects\Embarcadero\Delphi\Server-Client\étoile\Serveur\Win64\Debug\BD;DriverId=25;MaxBufferSize=2048;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommitSync=Yes'); подскажи пожалуйста как так должна выглядеть запись?
  2. firedac как задать свойство ODBCAdvanced не через визуальный редактор?
  3. Не много не поняла ответ s2 тип - string s1 и s тип - TObject где не типизированные параметры?
  4. не много поменяла код: unit Core; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FireDAC.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Error, FireDAC.UI.Intf, FireDAC.Phys.Intf, FireDAC.Stan.Def, FireDAC.Stan.Pool, FireDAC.Stan.Async, FireDAC.Phys, FireDAC.FMXUI.Wait, FireDAC.Stan.Param, FireDAC.DatS, FireDAC.DApt.Intf, FireDAC.DApt, Data.DB, FireDAC.Comp.DataSet, FireDAC.Comp.Client, FireDAC.Phys.MSAcc, FireDAC.Phys.MSAccDef; type TForm2 = class(TForm) FDQuery1: TFDQuery; FDConnection1: TFDConnection; FDManager1: TFDManager; private { Private declarations } public function bdconected(s2:string;s1,s{,sd}: TObject): string; { Public declarations } end; var Form2: TForm2; implementation {$R *.fmx} function TForm2.bdconected(s2: string; s1, s{,sd}: TObject): string; begin if s is TFDConnection then begin TFDConnection(s).Params.DriverID:='MSAcc'; TFDConnection(s).Params.Database:=s2; TFDConnection(s).Params.Encoding:='UTF8'; TFDConnection(s).LoginPrompt:=false; end; if s1 is TFDQuery then begin TFDQuery(s1).SQL.Clear; TFDQuery(s1).SQL.add('select*From User_Grid'); TFDQuery(s1).Connection.Connected:=true; TFDQuery(s1).Active:=true; end; {if s is TFDManager then begin { TFDManager(sd).DriverDefFileName:='Some path to FDDrivers.ini'; TFDManager(sd).DriverDefFileAutoLoad:=true; TFDManager(sd).GetCatalogNames(ExtractFilePath(ParamStr(0)) +'FDDrivers1.ini'); end; {if (TFDConnection(s).Connected=true) and (TFDQuery(s1).Active=true) then Result:='successfully'; } end; end.
  5. Как только подключаюсь через визуальное меню все норм как только в обход все ломается вот функция: function TForm2.bdconected(s2: string; s1, s: TObject): string; begin if (s is TFDConnection) and (s1 is TFDQuery) then begin TFDConnection(s).Params.Values['DriverID']:='MSAcc'; TFDConnection(s).Params.Values['Database']:=s2; TFDConnection(s).LoginPrompt:=false; TFDQuery(s1).SQL.add('select*From User_Grid'); TFDQuery(s1).Connection.Connected:=true; TFDQuery(s1).Active:=true; end; {if (TFDConnection(s).Connected=true) and (TFDQuery(s1).Active=true) then Result:='successfully'; } end; вот вызов procedure TForm1.CornerButton1Click(Sender: TObject); var path:String; begin path:='I:\bd\UserBD.mdb'; Form2.bdconected(path,Form2.FDQuery1,Form2.FDConnection1); end; вот что то что получается:
×
×
  • Создать...