Ver Mensaje Individual
  #8  
Antiguo 30-12-2009
Avatar de afunez2007
afunez2007 afunez2007 is offline
Miembro
 
Registrado: oct 2007
Ubicación: La Ceiba, Honduras
Posts: 170
Reputación: 17
afunez2007 Va por buen camino
Lightbulb

Debido a que es una conexion de sql server solo debes cambiar el ip del servidor o nombre de la instancia, Pues mira a ver si te funciona esto:

Código Delphi [-]
procedure TfrmMain.FormCreate(Sender: TObject);
var
  db:string;
  IniFile:TIniFile;
begin
  IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'Conexion.ini');
  db := 'Source='+IniFile.ReadString('DB','SERVIDOR','');
  ADOConnection1.Connected:=False;
  ADOConnection1.ConnectionString:=AnsiReplaceStr(ADOConnection1.ConnectionString,'Source=192.168.0.9'  ,db);
  ADOConnection1.Connected:=True;
end;

Debes asegurarte de agregar a las uses StrUtils e IniFiles, este codigo lo pones en el oncreate del main form

Para hacer el Ini solo debes abrir el notepad y agregar el texto:
[DB]
Servidor=192.168.0.9

Le das salvar como, escoges todos los archivos en la opcion de salvar como tipo de archivo y les das el nombre de: Conexion.ini

Luego cuando muevas el sistema a otras maquinas solo debes cambiar el ip del ini y ya esta.

Saludos
__________________
Si robas, roba un beso, si mientes que sea por amor y si engañas que sea a la muerte!!
Responder Con Cita