Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Bases de datos > Firebird e Interbase
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

 
 
Herramientas Buscar en Tema Desplegado
  #9  
Antiguo 17-06-2015
to_to to_to is offline
Miembro
NULL
 
Registrado: nov 2011
Posts: 39
Poder: 0
to_to Va por buen camino
Thumbs up

Muchas gracias por los comentarios y sugerencias, efectivamente lo resolví así dejando el alias como lo comentó eficsa y dejando esa parte del servidor como un parámetro ya que esta conexión puede variar. La idea es que se pueda instalar en cualquier cliente y si por alguna razón cambian de servidor o se instala en otra parte la base se pueda configurar desde archivos .ini y/o .conf los accesos a la base sin tocar el código.

Código Delphi [-]
Function TDMPrincipal.ConectaBD(BD: TSQLConnection; CnxBD: String; PwdBD: String): boolean;
{                Agregué variable para recuperar la ruta completa del servidor.
                 Utilicé un archivo "Param.ini" donde se guardarán los datos de
                 conexión, para efectos de la conexión el Alias del servidor y puerto
                 gSERVIDOR y gPUERTOSERVER son variables globales en el datamodule que se crea al 
                 iniciar la aplicación y se recupera el alias y el puerto, si por alguna razón no están o no se pueden
                recuperar se les asigna valores por defecto}
Var
   aliasbd : String;
begin
    aliasbd := '';
    with BD do
    begin
       Connected:= False;
       ConnectionName := CnxBD;
       LoadParamsOnConnect:= True;
       {Se pasa la ruta del alias y el puerto de salida de la base firebird}
       aliasbd := gSERVIDOR+'/'+gPUERTOSERVER+':'+BD.Params.Values['DataBase'];
       try
          Connected := True;
       except on E:Exception do begin
          Connected := False;
          end;
       end;
       LoadParamsOnConnect := False;
       Params.Values['Database']:= aliasbd;
       Params.Values['Password']:= PwdBD;
       try
          Connected := True;
          Result:= True;
       except on E:Exception do begin
          Connected := False;
          Result:= False;
          end;
       end;
    end;
end;
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
error en conexion remota a bd pamda Firebird e Interbase 1 12-11-2014 22:36:23
Ayuda con error en conexión a MySQL remota LucasBols C++ Builder 8 04-06-2012 19:42:35
Error: conexion remota PostgreSQL ioel PostgreSQL 3 28-07-2010 12:17:52
Error de conexión remota a Firebird JosepGA Conexión con bases de datos 2 16-09-2008 16:23:52
dbxconection.conf, dbxdrivers.conf donde estan??? Alex2000 Lazarus, FreePascal, Kylix, etc. 0 14-02-2004 16:26:41


La franja horaria es GMT +2. Ahora son las 09:38:39.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi