Hi,
BDE or ADO are dinosaur DB components in Delphi.
Please add the FireDac components instead.
Best regards
Armindo
uses
Data.DB,
Data.Win.ADODB,
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.VCLUI.Wait,
FireDAC.Stan.Param,
FireDAC.DatS,
FireDAC.DApt.Intf,
FireDAC.DApt,
FireDAC.Comp.DataSet,
FireDAC.Comp.Client,
FireDAC.Comp.UI,
FireDAC.Phys.MSSQLDef,
FireDAC.Phys.ODBCBase,
FireDAC.Phys.MSSQL
….
procedure TForm1.IDERegisterFDTab(AEngine: TIDEEngine);
begin
With AEngine do
begin
BeginRegisterComponents;
try
RegisterComponent('DBCONN', TFDConnection, '');
RegisterComponent('DBCONN', TFDQuery, '');
RegisterComponent('DBCONN', TFDStoredProc, '');
RegisterComponent('DBCONN', TFDMemTable, '');
finally
EndRegisterComponents;
end;
end;
end;
begin
IDEScripter := TIDEScripter.Create ( self );
IDEEngine := TIDEEngine.Create ( self );
IDEDialog := TIDEDialog.Create ( self );
IDEEngine.Scripter := IDEScripter;
IDEDialog.Engine := IDEEngine;
IDEDialog.Title := 'My title';
//IDEScripter.OnRuntimeError := RuntimeErrorEvent;
//IDERegisterDataAccessTab ( IDEEngine );
//IDERegisterDataControlsTab ( IDEEngine );
//IDERegisterADOTab ( IDEEngine );
IDERegisterFDTab ( IDEEngine );
IDEDialog.show;
end;
