Conexion en ADO guardando la ruta de la BD en un .txt

[Raptor]

Hola, chicos, tenia mucho que no pasaba por aqui.

Viejo tu problema es bastante facil de resolver, puedes hacerlo de 2 format diferente (Por lo meno estas son las que conozco )

1: Puedes usar un archivo UDL y listo
forma de crearlo. :
Creas un archivo .txt
renombra el archivo y le pones MiUDL.UDL
Presiona 2 click sobre el y el la pestaña Provider y selecciona el proveedor de servicio segun tu base de datos, y luego presione el boton que dice next

luego en la pestaña que dice connecion-ServerName llena el nombre del servidor donde esta la base de datos.
luego llena los valores que dice UserName y Password y marca el costejo que dice : Allow Savin Password , y por ultimo le dices como se llama tu base de datos. al final tiene un boton para probar la conecion , si esta es sastifactoria entonces continua con el proximo punto.

1.1: Como usarlo en el programa.
try
With ADOConnect do begin
Connected := false;
ConnectionString :='FILE NAME='+sLocalPath + UDLName;
Connected := true;
end;
except
raise;
end;

sLocalPath = a la ruta donde tu tienes ubicado el archivo .UDL
UDLName = Es el nombre del archivo UDL


2 :


Try

if not dm.DB.Connected then
begin
DM.DB.ConnectionString := 'CONNECT'+MiConnectionString;
dm.DB.Open;
if not dm.db.Connected then
begin
Mensaje('No hay Comunicación con la Base de Datos');
exit;
end;
end;
except
Mensaje('No hay Comunicación con la Base de Datos');
exit;
end;


MiConnectionString = Variable que lee desde un archivo .ini la cadena de conexxion de la base de datos.


Espero aberte ayudado....