visual basic - dlhe otvaranie formulara s datagridom plneneho z DB

Cloie · Napísal **Cloie**: 21.01.2015 17:55

Dobrý deň,

v práci sme mali staré programy v 602SQL. Dostali sme za úlohu prepísať ich do visual basicu. Vývojové prostredie sme použili Microsoft visual studio a na DB používame Microsoft sql management studio.
Neviem vyriešiť tento vzniknutý problém:

Ak spustím niektorý zo SQL štandardných príkazov nachádzajúcich sa v programe (napr. select) priamo v MS managemet studiu tak vykonanie je okamžité.
Ak ten istý príkaz spúšťam v programe trvá to niekoľko sekúnd. Je to neúmerne dlhé. Dáta zo selektu sa načítavajú do datagridu. Načítanie dát prebieha v loade formulára a preto jeho otvorenie dosť trvá. Formulár sa otvorí až keď načíta dáta.
Mám dojem, že táto odozva je spojená len s načítaním dát do datagridov nakoľko problémy s odozvou systému na zapísanie zmien alebo vloženie nových dát nemáme.

Ak ste sa s tým niekto stretli vopred ďakujem za skúsenosti a rady.

walther · Napísal **walther**: 21.01.2015 18:56

Príčinou spomalenia môže byť viacero... Bolo by fajn, keby si mohol dať ukážku toho svojho kódu, ktorý sa vykonáva pri spustení, lebo takto môžme len tipovať, v čom je konkrétne problém. Vo všeobecnosti nie je dobrý nápad natiahnuť všetky dáta, ale väčšinou sa na to používa stránkovanie, prípadne aj filtrovanie údajov podľa kritérií.
Plus k tomuto všetkému, načítanie dát by som určite riešil asynchrónne aby to neblokovalo UI vlákno...

Cloie · Napísal autor témy **Cloie**: 22.01.2015 7:54

Každý formulár je napísaný takýmto spôsobom. Ten select zvyčajne ťahá okolo 50 000 riadkov čo si myslím nemal byť problém

Kód:

 Private Sub Prehlad_analyz_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Cis_prodTableAdapter.Fill(Me.***DataSet.Cis_prod)
        Me.Cis_podskupTableAdapter.Fill(Me.***DataSet.Cis_podskup)
        Me.Cis_skupTableAdapter.Fill(Me.***DataSet.Cis_skup)
....
        Nacitaj_analyzy()
END SUB

  Private Sub Nacitaj_analyzy()
cmdText = "SELECT Analyzy.ID_ana, Analyzy.Vzorka, Analyzy.Nazov_ana, Analyzy.Hodnota, Analyzy.Zaciatok, Analyzy.Koniec, " _
            & "FORMAT(Analyzy.Zaciatok,'yyyy-MM-dd') AS Datum_zaciatok, FORMAT(Analyzy.Koniec,'yyyy-MM-dd') AS Datum_koniec, " _
            & "Analyzy.Analyzoval, Analyzy.Minimum_a, Analyzy.Maximum_a, Analyzy.Vymazana, Analyzy.Archiv, Analyzy.ID_uziv_ana, " _
            & "Vzorky.Meno_vzorky, Vzorky.ID_cis_prod, Cis_prod.Nazov, Cis_prod.ID_podskup, Parameter.Nazov_param, Parameter.Jednotka, " _
            & "(SELECT Priezvisko + ' ' + Meno FROM Uzivatelia WHERE (ID_uziv = Analyzoval)) AS Analyzoval_meno, " _
            & "(SELECT ID_skup FROM Cis_podskup WHERE Cis_podskup.ID_podskup = Cis_prod.ID_podskup) AS skup " _
            & "FROM Analyzy INNER JOIN Vzorky ON Analyzy.Vzorka = Vzorky.ID_vzorky " _
            & "INNER JOIN Cis_ana ON Analyzy.Nazov_ana = Cis_ana.ID_cis_ana INNER JOIN Cis_prod ON Vzorky.ID_cis_prod = Cis_prod.ID_prod " _
            & "AND Cis_ana.ID_prod = Cis_prod.ID_prod INNER JOIN Parameter ON Cis_ana.Param_ID = Parameter.ID_param " _
            & "WHERE ((Analyzy.Archiv IS NULL OR Analyzy.Archiv = 0) AND (Analyzy.Vymazana IS NULL OR Analyzy.Vymazana = 0) AND Analyzoval IS NOT NULL) " _
            & "ORDER BY Analyzy.Zaciatok DESC"

        Try
            dsAnalyzy = New DataSet()
            bsAnalyzy = New BindingSource()
            daAnalyzy = New SqlClient.SqlDataAdapter(cmdText, DBconn.DBCONN)
            dsAnalyzy.Clear()
            daAnalyzy.Fill(dsAnalyzy)
            bsAnalyzy.DataSource = dsAnalyzy.Tables(0)
            Me.dgAnalyzy.DataSource = bsAnalyzy
            Sprav_filter()
            bsAnalyzy.Filter = txtFilter
            Me.dgAnalyzy.Refresh()

        Catch ex As Exception
            MessageBox.Show("Chyba načítania hodnôt ... ", "Chyba")
        End Try

    End Sub

walther · Napísal **walther**: 22.01.2015 14:09

A reálne potrebuješ zobraziť 50000 riadkov? Lebo potom samozrejme, že poskladať 50 000 riadkov do Gridu chvíľku trvá..
Pokiaľ ale vážne potrebuješ toľko výsledkov, proste sprav asynchrónne načítanie údajov a naplnenie datagridu...

Cloie · Napísal autor témy **Cloie**: 23.01.2015 7:29

Ďakujem, vyskúšam. Máme ešte nejaké svoje tipy že ako to vylepšiť tak musíme to otestovať. Nepoužívame indexovanie tak ešte to skúsime

walther · Napísal **walther**: 23.01.2015 13:57

Indexovanie by pomohlo pokiaľ by samotný dotaz trval dlho, ale podľa tvojho opisu to vyzerá tak, že vytvorenie gridu je úzkym hrdlom aplikácie.

visual basic - dlhe otvaranie formulara s datagridom plneneho z DB

Podobné témy