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....