Ver Mensaje Individual
  #4  
Antiguo 18-07-2007
Avatar de ivan022481
ivan022481 ivan022481 is offline
Miembro
 
Registrado: abr 2006
Posts: 25
Reputación: 0
ivan022481 Va por buen camino
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;
Responder Con Cita