Access - Si të gjej shumën e një kolone

[GinoTheGodFather]

Pershendetie. Me duhesh ndihma e dikujt persa i perket mbledhies se elementeve te nje kolone ne nje tabele ne Access e cila eshte e lidhur me nje program i punuar ne Visual Basic. Po perpiqem te tregoj sa me qarte skemen se si funksionojne gjerat.
Eshte nje tabele me X kolona. Kolona A ka vlera vetem data. Nje kolone tjeter D, permban vetem dy vlera, le te themi ABC ose CDE. Vazhdojne kolonat derisa vjen kolona e fundit X e cila permban vlera numerike. Po perpiqem ta jap dhe skematikesht se si funksionon.

A | B | C | D | . . . . . | X |

10/10/2005 sdfdsf sdfds ABC 115
11/01/2006 sdfdsf dsfsdf ABC 253
05/06/2007 asdfds sadsad CDE 375
05/06/2007 ABC 354
10/10/2005 CDE 254


etj, etj, etj....

Kalojme tek problemi im. Une dua qe me ane te Visual Basic (ne rastin tim 6) programi te komunikoje me databazen, me pas me tabelen dhe mbasi te kete komunikuar te shfaqi ne nje form, ne nje textbox shumen e kolones X sipas dates dhe me kusht kolonen D qe permban vetem dy vlera ABC ose CDE psh. Dmth gjithesesj dy kushte, nje data , tjetri kolona D. Po mundohem ta shfaq dhe kete skematikisht per te qene me i sakte


Data(txtdata.text) {data sot psh, programi lidhet me databazen dhe kontrollon recordin me vlere sa data e sotme}

ABC {Te gjithe veprimet numerike qe jane bere ne daten e dhene por qe kane kusht ABC mblidhen me njera tjetren dhe japin vleren me poshte}

ShumaX(txtX.text) {Pasi kemi shtypur nje buton Comannd1 psh, shfaqet shuma e te gjithe numrave ne kolonen X me kusht ABC dhe sipas dates}

Me pas e njejta mbledhie e kolones sipas dates po tashme me kusht jo me ABC por tani CDE (gjithesesi nuk ka rendesi shume kjo sepse nese me jepet kodi per kushtin ABC, pastaj eshte e njejta gje)

Shpresoj te jem treguar sa me i qarte dhe do tja dija per faleminderit kush me ndihmon. Gjithe te mirat.

[Borix]

Pra, me sa arrita te kuptoj, ti kerkon te gjesh shumen e vlerave te kolones X, me kusht kolonen D, me kusht kolonen A? Nese po, atehere po te jap vetem kodin ne Transact SQL:

      SELECT Data, Kolona_D, SUM(Kolona_X) AS ShumaX
      FROM Emer_Tabela
      GROUP BY Kolona_D, Data;

Ky kod gjen shumen e te gjithe X-ve qe i perkasin grupeve ABC|CED, qe i perkasin nje grupimi datash... Studjoje me gjere me ane te praktikes.

[Uke Topalli]

Gino,
sa e njeh VB? Me fjale tjera e din se si me kriju "data connection" dhe me e mbush
"recordset"?

[GinoTheGodFather]

Pra, me sa arrita te kuptoj, ti kerkon te gjesh shumen e vlerave te kolones X, me kusht kolonen D, me kusht kolonen A? Nese po, atehere po te jap vetem kodin ne Transact SQL:

      SELECT Data, Kolona_D, SUM(Kolona_X) AS ShumaX
      FROM Emer_Tabela
      GROUP BY Kolona_D, Data;

Ky kod gjen shumen e te gjithe X-ve qe i perkasin grupeve ABC|CED, qe i perkasin nje grupimi datash... Studjoje me gjere me ane te praktikes.

Po Borix, e keni kuptuar mire, kjo ishte ideja pakashume te gjej shumen e kollones X me kusht kollonen A qe eshte data dhe me kusht kollonen D qe ne brendesi ka vetem dy emra. Me ate kodin qe me keni dhene me te thene te drejten nuk orjentohem dot tamam. Nese nuk e keni problem te ma jepni pak me te qarte do tja u dija per faleminderit. Nese nuk e keni kuptuar tamam ate cfare kerkoj po mundohem tja u thjeshtezoj akoma. Si do te vepronit ju nese ne tabelen e dhene ta zeme se ka gjithesej kater rekorde. Te kater keto rekorde kane vlerat e veta tek kollona X. Tre prej ketyre jane po te njejtes date psh 28/04/2007 ndersa i fundit eshte date tjeter. Keto tre recorde me date te njejte, dy prej tyre e kane kushtin te njejte, le te themi ABC ndersa tjetri ka kusht tjeter CDE. Me ane te nje butoni dua qe ne dy textbox te me shfaqesh shumen sipas dates 28/04/2007 por ne njerin do jete shuma e dy recordeve me kusht te njejte ABC dhe tek textbox tjeter do jete shuma me kusht CDE. Mos harrojme qe data 28/04/2007 do jete nje variabel.

Gino,
sa e njeh VB? Me fjale tjera e din se si me kriju "data connection" dhe me e mbush
"recordset"?

Nuk pretendoj se e njoh shume mire VB por mund te krijoj "data connection". Mund te shtoj te dhena, te ruaj, te ndryshoj, te eleminoj.

[Uke Topalli]

Shenbullin qe ta dha borix eshte SQL query me ane te ciles ne backend d.m.th. ne baze te shenimeve mund ta besh grumbullimin dhe mbledhjen e shenimeve. Nese kjo casje nuk te pelqen atehere mbushe recordsetin me te gjitha shenimet dhe pastaj filtroje recordsetin sipas dates dhe operacionit pastaj me nje kalim neper te gjitha rreshtat mund te gjesh totalin psh:

Shuma = 0
rsOperacionet.filter = "Data = " & Data & " and Operacioni = ' " & txtOperacioni.text &" ' "

rsOperacionet.movefirst

while not rsOperacionet.EOF
Shuma = Shuma + rsOpracionet!NumriX
rsOperacionet.movenext
end while

txtShuma.text = Shuma

[Borix]

Kodi qe te kam dhene (ne T-SQL, qe eshte standardja) realizon ate qe ti kerkon.

Per sa i perket kodeve per ne VB, do te t'i shkruaj te gjitha. Megjithate, merre testoje

kodin SQL ne access. Le ta zberthejme:

   SELECT Data, Kolona_D, SUM(Kolona_X) AS ShumaX
   FROM Tabela

Fale komandes SELECT ne zgjedhim keto fusha: Kolonen A (te cilen une e kam quajtur

'Data', si ne kod), Kolonen D , dhe shumen e vlerave te kolones X, fale funksionit SUM().

Me ane te FROM ne percaktojme emrin e tabeles nga ku do te zgjidhen rekordet.

Pjesa e fundit e kodit realizon kushtet sipas rradhes: Kolona_D dhe pastaj Data.

GROUP BY Kolona_D, Data;

Pra, do i gruposh vlerat e njejta ne kolonen D, qe i perkasin te njejtes date ne kolonen

A (ose kolonen Data). Testoje, mua me funksionoi per nje test te vogel qe bera.

Me tej, me thuaj si i do kodet ne VB, sepse ka disa menyra per lidhjen...

[GinoTheGodFather]

Ju falenderoj per interesimin, me poshte do paraqes me te qarte ate cfare kerkoj.
O Borix po ta nis me MP ate cfare dua te them sepse ketu nuk e shkruajtkam dot. Me thote forbiden. As me MP nuk e niskam dot. Mesazhi im permban fjale qe sistemi i kap automatikisht dhe nuk i lejon. Te shof cfare mund te bej ndonje gje.

[GinoTheGodFather]

Vendosa nje skedar te bashkangjitur. Shpresoj te funksionoje kshu. Gjithe te mirat.

[Borix]

Gino, po te bashkengjis kodin dhe nje databaze ne access ku mund te konfirmosh testin. Ajo qe kerkon ti eshte nje GROUP BY ne baze filtrimi. Kodin e mesiperm SQL e kam modifikuar ne baze te kesaj.

Skedari VB.txt permban kodin ne VB (kodin qe ti kerkon, pa detajet).
Skedari test.mdb permban nje tabele R_DATE me disa fusha qe kam mbushur une, dhe tek seksioni Queries ke nje query qe quhet strSQLtest. Right-click mbi "Design View" dhe do te shohesh kodin SQL...

Hidhi nje sy, po pate ndonje gje tjeter me thuaj.

[GinoTheGodFather]

Borix faleminderit. Meriton respektin tim.