procedure TDataModule1.EDBDatabase1BeforeConnect(Sender: TObject);
begin
if EDBDatabase1.DatabaseName = ‘’ then
EDBDatabase1.DatabaseName := IntToStr(NativeInt(EDBDatabase1));
end;
But this only allows me to see the results once, clicking refresh in the browser generates the same message that the database already exists
Thank you for the project (sent in a private message). Please try the following code in the event:
procedure TServerContainer.EDBDatabase1BeforeConnect(Sender: TObject);
var
DB: TEDBDatabase;
begin
DB := TEDBDatabase(Sender);
if DB.DatabaseName = '' then
DB.DatabaseName := IntToStr(NativeInt(DB));
end;