1 respuesta en este tema

[elrodrix]

Que tal? tengo una pequeña duda y todavia no pude encontrar una solucion. Tengo un programa desarrollado en delphi, utilizo el ADOCONNECTION para conectarme a la DB. Mi idea es insertar un boton de "CONECTAR" que, cuando el usuario haga click, se conecte a la DB y esa conexion me devuelva un valor para luego preguntar si conectó o no, de acuerdo a eso tirar un mensaje de EXITO o ERROR. Lo mismo para un boton DESCONECTAR. Agradeceria su opinion. Saludos

[poliburro]

delphi

procedure TfrmMonitor.Button1Click(Sender: TObject);
begin
  try
     AdoConnection1.LoginPrompt := False;
     AdoConnection1.ConnectionString := 'CadenaDeConexiónAlServidorDb';
     AdoConnection1.Connected := True;
     if AdoConnection1.Connected then
       Showmessage('Conexión Exitosa')
  except
    On Error: Exception do
       ShowMessage('Ocurrió un error al conectarse. Error: ' + Error.Message);
  end;
end;
 
 
 
procedure TfrmMonitor.Button2Click(Sender: TObject);
begin
  try
     AdoConnection1.Connected := false;
  except
    On Error: Exception do
       ShowMessage('Ocurrió un error al desconectarse. Error: ' + Error.Message);
  end;
end;