Fórum Rotina do SqlConection para o DCOMConnection #387774

procedure TDM1.SQLConnection1BeforeConnect(Sender: TObject);
begin
  with Sender as TSQLConnection do
  begin
    if (LoginPrompt = False) then
    begin
      Params.Values['User_Name'] := usuario;
      Params.Values['Password'] := SENHA;
    end;
  end;
end;
procedure TDM1.SQLConnection1AfterConnect(Sender: TObject);
begin
SQLConnection1.ExecuteDirect(
   'alter session set NLS_NUMERIC_CHARACTERS=".,"');
end;