excepciones con TADOConnection

[ivan022481]

En teoria esta bien lo que haces, yo tengo algo similiar y funciona bien. Ojo que si lo ejecutas desde Delphi el error que te va a tirar no es lo mismo que cuando lo ejecutas desde el .exe compilado, quizas eso te puede confundir.

Código Delphi [-]
    try
      dmConeccion.adoConeccion.Close; //Compruebo que el servidor este activo
      dmConeccion.adoConeccion.ConnectionTimeout  := 15;
      sCon := 'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist';   //string de los parametros del ADOConnection
      sCon := sCon + 'Security Info=False;Initial Catalog='+NombreDeLaDB+';Data Source='+NombreDelServidor+'';
      dmConeccion.adoConeccion.ConnectionString   := sCon;              //aca le asigno el string a el adoConnection
      dmConeccion.adoConeccion.Open;
      dmconexion.adqConsulta.SQL.Text := 'select * from usuarios';      //hago una consulta a la base para verificar la conexion
      dmAuxiliar.adqConsulta.open;
    except
      ShowMessage('No se ha podido establecer la conexión a la base de datos. '+#13+#10+'Verifique los parametros de conexión o comuniquese con el responsable');
    end;