Consultar conexión del Servidor

[[BlueSteel]]

gracias por el concejo....

bueno, ahora tengo la sgte duda...para realizar el test de conección,, deberá estar conectada la base.. por lo pronto lo tengo así..

Código Delphi [-]
     Datos.IBD_Compras.Connected := False;
     Datos.IBD_Compras.LoginPrompt := False;
     Datos.IBD_Compras.DatabaseName := Nombre_Base;
     Datos.IBD_Compras.Params.Values ['user_name'] := vUsu.Text;
     Datos.IBD_Compras.Params.Values ['password'] := vPas.Text;
     Datos.IBD_Compras.Connected := True;
     
     If Datos.IBD_Compras.TestConnected Then
        Begin
             Parametro := TiniFile.Create('D:\Sistemas\Propint\config.ini');
             Parametro.WriteString('BaseDato','Servidor',Datos.IBD_Compras.DatabaseName);
             Parametro.WriteString('BaseDato','Usuario',Datos.IBD_Compras.Params.Values ['user_name']);
             Parametro.WriteString('BaseDato','Clave',Datos.IBD_Compras.Params.Values ['password']);
             Parametro.Free;
        End
     Else
        ShowMessage('Error de conexión, ingrese ruta nuevamente');

ya que me da el sgte error

I/O error for file "ruta..del...archivo"
Error while trying to open file
unknown Win32 error 2

y si pongo

Código Delphi [-]
 Datos.IBD_Compras.Connected := True;

, despues de la consulta del test.. siempre me indica que existe un error de conexión...

mmmm..seguire intentando

[[ArdiIIa]]

Hola BlueSteel.

Vuelvo a insistir. Tal como te lo planteé en el primer mensaje, es muy adecuado para hacer el test. Si salta la exception, ya sabes que falló.

En cuanto al error que se te produce, comprueba la ruta de la BD y que esta no tenga los atributos de solo lectura. (por ejemplo si la copiaste desde un CD).

Saludos

[[maeyanes]]

mmm... entonces TestConnected no prueba si se puede conectar o no a la base de datos, solo checa si la base de datos ya está conectada... en dado caso prueba así:

Código Delphi [-]
try
  Datos.IBD_Compras.Connected := True;
  // Guardar los datos de conexión en el .ini...
except
  ShowMessage('Ocurrió un error al intentar conectar con la base de datos')
end

El uso que se le podría dar a TestConnected sería:

Código Delphi [-]
// Verificamos que la aplicación esté conectada a la base de datos
if not Database.TestConnected then
  Database.Connected := True;
// Realizo las tareas necesarias

Saludos...