Ver Mensaje Individual
  #6  
Antiguo 04-05-2012
Leviatan Leviatan is offline
Miembro
 
Registrado: oct 2005
Posts: 56
Reputación: 19
Leviatan Va por buen camino
Por una razón de tiempo que apremiaba ya a mi cliente recurrí a la siguiente solución, una asignación dinámica a la cadena de conexión:

Código Delphi [-]
procedure TfrmParametro.btnProbarConexionClick(Sender: TObject);
var
  sConn: string;
begin
  try
    frmAcceso.ConnIntegracion.Connected := False;

    sConn := 'Provider=SQLOLEDB;' +
                 'Data Source=' + edServInt.Text + ';' +
                 'Initial Catalog=' + edBDInt.Text + ';' +
                 'User Id=' + edUsuInt.Text + ';' +
                 'Password=' + edContraInt.Text;
    frmAcceso.ConnIntegracion.ConnectionString := sConn;

    frmAcceso.ConnIntegracion.Connected := True;
    MyMessageDialog('Prueba de conexión exitosa', mtInformation, [mbOk], [OK]);
  except
    on E: Exception do
      MyMessageDialog(E.Message + '. ' + E.ClassName, mtError, [mbOk], [OK]);
  end;
end;

Y me funcionó súper bien.

Saludos.
Responder Con Cita