Ver Mensaje Individual
  #2  
Antiguo 18-09-2006
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Reputación: 26
Caral Va por buen camino
Hola
Yo uso una base de datos access, pero el sistema tal vez podria funcionar en sqlserver, con un archivo ini, desde el que se lee la ruta, supongo usas un datamodule, en este pon el siguiente codigo:
Código Delphi [-]
procedure TDataModule1.DataModuleCreate(Sender: TObject);
Var BaseDeDatos, ConStr : String;
    IniFile: TIniFile;
begin
   // Obtiene la ruta y el nombre de la base de datos
   IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'NombredelArchivo.ini');
   BasedeDatos := IniFile.ReadString('BD','Path','');
   If BasedeDatos = '' then ShowMessage('Error al cargar Base de Datos');
   ConStr := 'Provider=Microsoft.Jet.OLEDB.4.0;'+
             'Data Source='+BaseDeDatos+';'+
             'Persist Security Info=False;'+
             'Jet OLEDBatabase Password=admin';
   AC1.ConnectionString := ConStr;
   AC1.Open;
end;
El provider en este caso sera el que usas, asi como los demas parametros.
en el archivo ini. pon esto:
Código:
[BD]
Path="Z:\La Direccion\tu base de datos"
[Logon]
Auto="No"
Login=""
Pass=""
Desconozco si sirva en sqlserver pero espero te funcione.
Saludos
Responder Con Cita