Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Obrada izuzetka prilikom neuspjesne konekcije na bazu

[es] :: Pascal / Delphi / Kylix :: Obrada izuzetka prilikom neuspjesne konekcije na bazu

[ Pregleda: 1937 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

XGhost

Član broj: 33279
Poruke: 331
*.ob.dlp256.bih.net.ba.



+1 Profil

icon Obrada izuzetka prilikom neuspjesne konekcije na bazu21.05.2014. u 03:32 - pre 119 meseci
Kako da uradim obradu izuzetka prilikom neuspjesne konekcije na bazu, prilikom startanja aplikacije.

Probao sam

begin
Connection1.Connected:=true;
try
Logiranje;
finally
showmessage ('Potrebna vam je veza sa internetom');
end;
 
Odgovor na temu

shablagoo

Član broj: 320631
Poruke: 17
*.dynamic.isp.telekom.rs.



+2 Profil

icon Re: Obrada izuzetka prilikom neuspjesne konekcije na bazu21.05.2014. u 06:11 - pre 119 meseci
Code:
 try
    ADOConnection1.Connected := True;
    except
    on e: EADOError do
    begin
      MessageDlg('Greška pri konektovanju.', mtError,
                  [mbOK], 0);
      Exit;
    end;
  end;
 
Odgovor na temu

XGhost

Član broj: 33279
Poruke: 331
31.176.212.*



+1 Profil

icon Re: Obrada izuzetka prilikom neuspjesne konekcije na bazu21.05.2014. u 11:33 - pre 119 meseci
Ne moze tako, ne moze se niti kompajlirati program
niti pokrenuti iako je connection false i tek kad se program podigne klikom na dugme se uspostavi

komponenta je UniDac
Uniconnection

[Ovu poruku je menjao XGhost dana 21.05.2014. u 12:43 GMT+1]
 
Odgovor na temu

krle_zr

Član broj: 96307
Poruke: 258
*.dynamic.isp.telekom.rs.



+7 Profil

icon Re: Obrada izuzetka prilikom neuspjesne konekcije na bazu21.05.2014. u 12:24 - pre 119 meseci

Za hvatanje izuzetaka na UniDac koristi EUniError, dole imaš jedan moj primer povezivanja na više baza podataka plus na lokalne.

Code:


procedure TfrmMain.PoveziNaBazu;
begin
  with dm do
  begin
  try
    frmMain.Update;
    Screen.Cursor := crHourGlass;

    NapredakPripreme.GaugeMax := 8;
    NapredakPripreme.Caption := 'Povezivanje na ' + Konekcija.ServerBaze;
    NapredakPripreme.ButtonCancel := False;
    NapredakPripreme.Open(PanelNapredak);


     ConnMsSql.Server := Konekcija.ServerBaze;
     ConnMsSql.Username:= Konekcija.User_Name;
     ConnMsSql.Password:= Konekcija.Pass;
     ConnMsSql.Connect;
     NapredakPripreme.GetGauge.StepIt;

     PgConn.Server := Konekcija.IP_Pg;
     NapredakPripreme.Caption := 'Povezivanje na ' + Konekcija.IP_Pg+'-backoffice...';
     NapredakPripreme.GetLabel.Update;
     PgConn.Connect;

     NapredakPripreme.GetGauge.StepIt;
     NapredakPripreme.Caption := 'Preuzimanje podataka o prodavnicama...';
     NapredakPripreme.GetLabel.Update;
     ProdavniceQP.Open;

     NapredakPripreme.GetGauge.StepIt;
     NapredakPripreme.Caption := 'Preuzimanje podataka o barkodovima...';
     NapredakPripreme.GetLabel.Update;
     ASWQP.Open;

     NapredakPripreme.GetGauge.StepIt;
     NapredakPripreme.Caption := 'Preuzimanje podataka o artiklima...';
     NapredakPripreme.GetLabel.Update;
     ASWQ_B2P.Open;

     NapredakPripreme.GetGauge.StepIt;
     dbfArtikal.Active := True;
     NapredakPripreme.GetGauge.StepIt;
     dbfBCODE.Active := True;
     NapredakPripreme.GetGauge.StepIt;
     dbfSKLROB.Active := True;
     NapredakPripreme.GetGauge.StepIt;

     if PgConn.Connected then
       UpdateLog('Uspešno povezan na: ' + dm.PgConn.Server);

     DatotekaQ.SQL.Clear;
     DatotekaQ.SQL.Add('SELECT [Naziv],[Putanja],[Operacija],[Lokacija],[Prefiks], [PrijaviGresku] FROM [Datoteka] order by ID_Datoteka');
     DatotekaQ.Open;
     DatotekaQ.First;

  except
    on E:EUniError do
    begin
      MessageDlg('Nema konekcije ka bazi podataka!' + sLineBreak +
                      'Pozovite IT sluzbu.', mtError, [mbOK], 0);
      UpdateLog('Nema konekcije ka bazi podataka!', 'Nema konekcije ka bazi podataka! ' + E.Message);
      UgasiProgram;
    end;
    on EL: Exception do
    begin
      MessageDlg('Nema konekcije ka lokalnoj bazi podataka!' + sLineBreak +
                      'Pozovite IT sluzbu.', mtError, [mbOK], 0);
      UpdateLog('Nema konekcije sa DBF-ovima!', 'Nema konekcije sa DBF-ovima! ' + EL.Message);
      UgasiProgram;
    end;
  end;
  NapredakPripreme.Close;
  end;
end;

 
Odgovor na temu

[es] :: Pascal / Delphi / Kylix :: Obrada izuzetka prilikom neuspjesne konekcije na bazu

[ Pregleda: 1937 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.