abclinuxu.cz AbcLinuxu.cz itbiz.cz ITBiz.cz HDmag.cz HDmag.cz abcprace.cz AbcPráce.cz
AbcLinuxu hledá autory!
Inzerujte na AbcPráce.cz od 950 Kč
Rozšířené hledání
×
    dnes 15:33 | Nová verze

    Byl vydán Mozilla Firefox 141.0. Přehled novinek v poznámkách k vydání a poznámkách k vydání pro vývojáře. Lokální AI umí uspořádat podobné panely do skupin. Firefox na Linuxu využívá méně paměti. Řešeny jsou rovněž bezpečnostní chyby. Nový Firefox 141 je již k dispozici také na Flathubu a Snapcraftu.

    Ladislav Hagara | Komentářů: 0
    včera 22:44 | Bezpečnostní upozornění

    NÚKIB upozorňuje na kritickou zranitelnost v SharePointu. Jedná se o kritickou zranitelnost typu RCE (remote code execution) – CVE-2025-53770, která umožňuje neautentizovaný vzdálený přístup a spuštění kódu, což může vést k úplnému převzetí kontroly nad serverem. Zranitelné verze jsou pouze on-premise verze a to konkrétně SharePoint Server 2016, 2019 a Subscription Edition. SharePoint Online (Microsoft 365) není touto zranitelností ohrožen.

    Ladislav Hagara | Komentářů: 2
    včera 21:00 | IT novinky

    Společnost Valve zpřísnila pravidla pro obsah, který je možné distribuovat ve službě Steam. Současně řadu her ze Steamu odstranila. V zásadách a pravidlech přibylo omezení 15: Obsah, který by mohl porušovat pravidla a normy stanovené zpracovateli plateb a souvisejícími sítěmi platebních karet a bankami nebo poskytovateli připojení k internetu. Sem spadají zejména určité druhy obsahu pouze pro dospělé.

    Ladislav Hagara | Komentářů: 0
    včera 13:33 | Komunita

    Dle analytics.usa.gov je za posledních 90 dnů 6,2 % přístupů k webových stránkám a aplikacím federální vlády Spojených států z Linuxu.

    Ladislav Hagara | Komentářů: 0
    20.7. 17:44 | Zajímavý článek

    Jak si zobrazit pomocí Chrome a na Chromiu založených webových prohlížečích stránky s neplatným certifikátem? Stačí napsat thisisunsafe.

    Ladislav Hagara | Komentářů: 3
    20.7. 00:33 | Bezpečnostní upozornění

    V repozitáři AUR (Arch User Repository) linuxové distribuce Arch Linux byly nalezeny a odstraněny tři balíčky s malwarem. Jedná se o librewolf-fix-bin, firefox-patch-bin a zen-browser-patched-bin.

    Ladislav Hagara | Komentářů: 15
    20.7. 00:22 | Komunita

    Dle plánu by Debian 13 s kódovým názvem Trixie měl vyjít v sobotu 9. srpna.

    Ladislav Hagara | Komentářů: 1
    19.7. 13:22 | Komunita

    Vývoj linuxové distribuce Clear Linux (Wikipedie) vyvíjené společností Intel a optimalizováné pro jejich procesory byl oficiálně ukončen.

    Ladislav Hagara | Komentářů: 1
    18.7. 14:00 | Zajímavý článek

    Byl publikován aktuální přehled vývoje renderovacího jádra webového prohlížeče Servo (Wikipedie).

    Ladislav Hagara | Komentářů: 0
    18.7. 12:00 | Nová verze

    V programovacím jazyce Go naprogramovaná webová aplikace pro spolupráci na zdrojových kódech pomocí gitu Forgejo byla vydána ve verzi 12.0 (Mastodon). Forgejo je fork Gitei.

    Ladislav Hagara | Komentářů: 2
    Kolik tabů máte standardně otevřeno ve web prohlížeči?
     (26%)
     (27%)
     (4%)
     (6%)
     (4%)
     (3%)
     (4%)
     (26%)
    Celkem 70 hlasů
     Komentářů: 10, poslední dnes 12:43
    Rozcestník

    Dotaz: Stránkování dat z MySQL v aplikaci

    9.9.2010 11:35 PetrHL | skóre: 17 | blog: petr_h | Neratovice
    Stránkování dat z MySQL v aplikaci
    Přečteno: 451×
    Dobrý den,

    mám aplikaci, která pracuje s daty v MySQL. Jedna tabulka má kolem 100k záznamů a já bych rád tyto záznamy zobrazil postupně uživateli.
    Mé řešení:

    Po spuštění aplikace zobrazím prvních 500 záznamů. Když uživatel začne rolovat v gridu a dostane se na konec, načtu následujících 500 záznamů. Pokud se vrací zpět, načtu předchozí záznamy atd. Funguje to velice pěkně a rychle. Používám na to LIMIT a OFFSET. Je tu ale problém.

    Tabulka je nějak setříděná. Uživatel chce editovat záznam. Pokud opraví položku, podle které se tabulka třídí, položka se posune na jinou pozici, takže se dostane mimo hranice stanovené LIMIT a OFFSET. Jak se mám na tento záznam po ukončení editace vrátit? Jak mám zjistit, kterou stránku mu mám pomocí LIMIT a OFFSET zobrazit (kurzor na záznam už pak přesunu pomocí sekvenčního vyhledání pod ID)? Máte, prosím, nějaký nápad?

    Díky moc!
    Petr
    "Do, or do not. There is no 'try.'" -- Jedi Master Yoda | CQRLOG | CQRPROP | HamQTH | Domů

    Řešení dotazu:


    Odpovědi

    rADOn avatar 9.9.2010 12:48 rADOn | skóre: 44 | blog: bloK | Praha
    Rozbalit Rozbalit vše Re: Stránkování dat z MySQL v aplikaci
    select count(*) from table where sort_key < changed_key
    a mas pozici.
    "2^24 comments ought to be enough for anyone" -- CmdrTaco
    Řešení 1× (PetrHL (tazatel))
    13.9.2010 10:01 PetrHL | skóre: 17 | blog: petr_h | Neratovice
    Rozbalit Rozbalit vše Re: Stránkování dat z MySQL v aplikaci

    Díky za radu, pomohlo to. Bohužel pokud je uživatel někde na u konce tabulky, ten select dlouho trvá. Nakonec jsem to vyřešil jinak.
    Mé řešení:

    procedure TfrmMain.DBGrid1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    var
      id : Integer;
      f1 : TDateTime;
      f2 : String;
      f3 : Integer;
    begin
      if (key = VK_END) and (Shift = [ssCtrl]) then
      begin
        if cDB_LIMIT > DbRecCount then
          DbOffset := 0
        else
          DbOffset := DbRecCount - cDB_LIMIT;
        try
          Q.DisableControls;
          trQ.Rollback;
          Q.SQL.Text := 'select * from cqrlog_main order by qsodate DESC, time_on DESC LIMIT '+IntToStr(cDB_LIMIT)+' OFFSET '+IntToStr(DbOffset);
          trQ.StartTransaction;
          Q.Open;
          Q.First
        finally
          Q.EnableControls
        end
      end;
      if (key = VK_HOME) and (Shift = [ssCtrl]) then
      begin
        try
          Q.DisableControls;
          trQ.Rollback;
          Q.SQL.Text := 'select * from cqrlog_main order by qsodate DESC, time_on DESC LIMIT '+IntToStr(cDB_LIMIT);
          trQ.StartTransaction;
          Q.Open
        finally
          Q.EnableControls
        end
      end;
      if ((key = VK_UP) or (key = 33)) and Q.BOF then
      begin
        try
          Q.DisableControls;
          id := Q.Fields[0].AsInteger;
          f2 := Q.Fields[2].AsString;
          f1 := Q.Fields[1].AsDateTime;
          Q1.SQL.Text := 'select id_cqrlog_main from cqrlog_main order by qsodate DESC, time_on DESC LIMIT 1';
          trQ1.StartTransaction;
          Q1.Open;
          f3 := Q1.Fields[0].AsInteger;
          trQ1.Rollback;
          Q1.Close;
          if f3=id then //we are on the begining of dataset
            exit;
          Q.Close;
          Q.SQL.Text := 'select * from (select * from cqrlog_main where (qsodate = '+QuotedStr(DateToStr(f1))+
                        'and time_on >= '+QuotedStr(f2)+') or qsodate > '+QuotedStr(DateToStr(f1))+
                        ' order by qsodate, time_on LIMIT '+IntToStr(cDB_LIMIT)+') as foo order by qsodate DESC,time_on DESC';
          trQ.Rollback;
          trQ.StartTransaction;
          Q.Open;
          Q.Last
        finally
          Q.EnableControls
        end
      end;
    
      if ((key = VK_DOWN) or (key = 34)) and Q.EOF then
      begin
        try
          Q.DisableControls;
          id := Q.Fields[0].AsInteger;
          f2 := Q.Fields[2].AsString;
          f1 := Q.Fields[1].AsDateTime;
    
          Q1.SQL.Text := 'select id_cqrlog_main from cqrlog_main order by qsodate,time_on LIMIT 1 OFFSET 0';
          trQ1.StartTransaction;
          Q1.Open;
          f3 := Q1.Fields[0].AsInteger;
          Q1.Close;
          trQ1.Rollback;
          if f3=id then //we are on the end of dataset
            exit;
          Q.Close;
          Q.SQL.Text := 'select count(*) from cqrlog_main where (qsodate = '+QuotedStr(DateToStr(f1))+
                        'and time_on <= '+QuotedStr(f2)+') or qsodate < '+QuotedStr(DateToStr(f1))+
                        ' order by qsodate DESC, time_on DESC LIMIT '+IntToStr(cDB_LIMIT);
          Q.Open;
          if Q.Fields[0].AsInteger < cDB_LIMIT then
          begin
            Q.Close;
            Q.SQL.Text := 'select * from (select * from cqrlog_main order by qsodate, time_on LIMIT '+
                           IntToStr(cDB_LIMIT)+') as foo order by qsodate DESC,time_on DESC';
           Q.Open;
           Q.Locate('id_cqrlog_main',id,[])
          end
          else begin
            Q.Close;
            Q.SQL.Text := 'select * from cqrlog_main where (qsodate = '+QuotedStr(DateToStr(f1))+
                          'and time_on <= '+QuotedStr(f2)+') or qsodate < '+QuotedStr(DateToStr(f1))+
                          ' order by qsodate DESC, time_on DESC LIMIT '+IntToStr(cDB_LIMIT);
            Q.Open;
            Q.Locate('id_cqrlog_main',id,[])
          end
        finally
          Q.EnableControls
        end
      end                              
    

    Ještě bude nutné se s tím pohrát, ale funguje to dle očekávání.

    "Do, or do not. There is no 'try.'" -- Jedi Master Yoda | CQRLOG | CQRPROP | HamQTH | Domů

    Založit nové vláknoNahoru

    Tiskni Sdílej: Linkuj Jaggni to Vybrali.sme.sk Google Del.icio.us Facebook

    ISSN 1214-1267   www.czech-server.cz
    © 1999-2015 Nitemedia s. r. o. Všechna práva vyhrazena.