[ miki987 @ 22.08.2009. 19:42 ] @
moze li mi neko objasniti kako da saberem sve identicne tekstove npr. ("Uruceno") iz celija u accessu i rezultat prikazati negde na formi npr.Text1.Text
[ captPicard @ 22.08.2009. 20:34 ] @
Citat:
miki987: moze li mi neko objasniti kako da saberem sve identicne tekstove npr. ("Uruceno") iz celija u accessu i rezultat prikazati negde na formi npr.Text1.Text


kako to misliš sabirati? Da ih izbrojiš koliko ih ima?

Code:
SELECT COUNT(DISTINCT(POLJE)) FROM TABLICA WHERE POLJE = "Uruceno"


umjesto "Uruceno" stavi varijablu.
[ miki987 @ 23.08.2009. 08:50 ] @
evo da pojasnim posto se nisam bas lepo izrazio.

Dakle na formi u vbimam listview i u njemu se prikazuju field-i iz accessa.Sada, u vb zelim da izbacim jedan textbox i u njemu da se prikaze brojno stanje svih reci (istih reci) u jednoj,odredjenoj koloni, tacnije da ih izbrojim.
[ dava @ 23.08.2009. 10:46 ] @
Ovaj select ti vraca broj slogova koji imaju istu vrijednost, u ovom slucaju u koloni 'Polje'
Code:
 
 SELECT COUNT(POLJE) FROM TABLICA
 GROUP BY POLJE
 HAVING POLJE = "Uruceno"



ili captPicard-ov select samo bez naredbe 'distinct'.
[ miki987 @ 23.08.2009. 11:28 ] @
ja ne znam kako da ovo iskoristim, probao sam

Code:


sql = "SELECT COUNT(urucena) FROM baza1"
 GROUP BY Urucena
 Having urucena = "Uruceno"
Status.Text = Having urucena


ali ne znam sta i gde treba da se doda

kod bih stavio u form_load
[ miki987 @ 23.08.2009. 15:59 ] @
evo sta sampokusao ali negde zapinje...
Code:
Public Sub suma()
Dim dblSuma As Double
Dim dblKriterijum As Double
Dim sql As String

openconn

sql = "SELECT * FROM baza1 ORDER BY redni_broj DESC;"

Set rs = conn.Execute(sql)

If rs.EOF Then
    closeconn
    Exit Sub
End If

dblSuma = 0
dblKriterijum = "Urucena" 'ovo je tvoj primer, samo sabira one koji su 1

If rs.RecordCount > 0 Then rs.MoveFirst 'ides na pocetak

Do While Not rs.EOF

If rs("urucena") = dblKriterijum Then 'za neko polje pod nazivom "Polje"
dblSuma = dblSuma + dblKriterijum
End If

rs.MoveNext

Loop

dblSuma = Label9

End Sub


[Ovu poruku je menjao miki987 dana 23.08.2009. u 18:11 GMT+1]

[Ovu poruku je menjao miki987 dana 23.08.2009. u 18:11 GMT+1]
[ captPicard @ 23.08.2009. 20:59 ] @
Citat:
dava: Ovaj select ti vraca broj slogova koji imaju istu vrijednost, u ovom slucaju u koloni 'Polje'
Code:
 
 SELECT COUNT(POLJE) FROM TABLICA
 GROUP BY POLJE
 HAVING POLJE = "Uruceno"



ili captPicard-ov select samo bez naredbe 'distinct'.


Točno, ispričavam se na grešci, pisai na brzinu...
[ miki987 @ 23.08.2009. 23:35 ] @
da,ali ovo opet ne radi . moze li neko da mi kazede je greska?
[ captPicard @ 24.08.2009. 12:59 ] @
Stvarno te ne kužim.

Ovo

Code:

sql = "SELECT COUNT(urucena) FROM baza1"
 GROUP BY Urucena
 Having urucena = "Uruceno"


ne može nikako raditi, možda ovako:


Code:
sql = "SELECT COUNT(urucena) FROM baza1
 GROUP BY Urucena
 Having urucena = "Uruceno" "


By the way, nauči se napisati u poruci šta ne radi i koju grešku baca, već sam ti to jednom napomenuo.

Ovakvi

evo sta sampokusao ali negde zapinje...

i ovakvi

da,ali ovo opet ne radi . moze li neko da mi kazede je greska?

odgovori nam ne pomažu puno.

p.s.

LOL, tek sada sam ovo skužio:

Code:
Status.Text = Having urucena


Šta bi ti to trebalo značiti?!?!?!



[ miki987 @ 24.08.2009. 16:41 ] @
Citat:
miki987: evo sta sampokusao ali negde zapinje...
Code:
Public Sub suma()
Dim dblSuma As Double
Dim dblKriterijum As Double
Dim sql As String

openconn

sql = "SELECT * FROM baza1 ORDER BY redni_broj DESC;"

Set rs = conn.Execute(sql)

If rs.EOF Then
    closeconn
    Exit Sub
End If

dblSuma = 0
dblKriterijum = "Urucena" 'ovo je tvoj primer, samo sabira one koji su 1

If rs.RecordCount > 0 Then rs.MoveFirst 'ides na pocetak

Do While Not rs.EOF

If rs("urucena") = dblKriterijum Then 'za neko polje pod nazivom "Polje"
dblSuma = dblSuma + dblKriterijum
End If

rs.MoveNext

Loop

dblSuma = Label9

End Sub


[Ovu poruku je menjao miki987 dana 23.08.2009. u 18:11 GMT+1]

[Ovu poruku je menjao miki987 dana 23.08.2009. u 18:11 GMT+1]


kod koji sam napisao pronasao sam negde na forumu, t.j. originalni kod koji sam preuzeo sabira sve identicne brojeve u jednoj koloni i to je ovaj, samo sam ja pokusao izmeniti isti i to je ovaj koji citiram

pitanje

Citat:
miki987: da,ali ovo opet ne radi . moze li neko da mi kazede je greska?


se odnosi na upravo taj kod koji sam okacio (znaci "moj" koji sam pokusao napraviti ali ne radi)

sto se tice pomoci od dave, taj kod zaista nisam znao iskoristiti jer ja sam pocetnik u problemu kojeg sam sam stvorio obecavsi direktoru da mogu napraviti isti...a kao sto vidite ne umem
sad vapim za pomoc kako bi zavrsio 90% gotov program a ima ih tri
prvi kako da saberem sve reci iz jedne kolone u listview-u koji vuce iz access baze
drugi kako da barkod-u kazem da posle citanja koda okine na button Command1
treci kako da pronadjeni row u listview-u pozicioniram na sredini lisview-a

eto to su moji problemi, a ako mi mozete pomoci Hvala Vam a ako ne opet Hvala na dosadasnjem trudu
[ miki987 @ 24.08.2009. 22:28 ] @
da ne bude da cekam gotove kodove :D
potrebna pomoc oko ovoga

Code:
Dim itm As ListItem
  With ListView1
    Set itm = .FindItem(searchbox.Text, lvwText, , lvwPartial)
    If Not itm Is Nothing Then
    
   .ListItems(itm.Index).Selected
    .ListItems(itm.Index).EnsureVisible


problem koji se javlja je sto nema selekcije row-a

Code:
  .ListItems(itm.Index).Selected


t.j. ne selektuje row kada je tu

Code:
 .ListItems(itm.Index).EnsureVisible



[ captPicard @ 25.08.2009. 08:14 ] @
Code:
Public Sub suma()
Dim dblSuma As Double
Dim dblKriterijum As Double
Dim sql As String

openconn

sql = "SELECT * FROM baza1 ORDER BY redni_broj DESC;"

Set rs = conn.Execute(sql)

If rs.EOF Then
    closeconn
    Exit Sub
End If

dblSuma = 0
dblKriterijum = "Urucena" 'ovo je tvoj primer, samo sabira one koji su 1

If rs.RecordCount > 0 Then rs.MoveFirst 'ides na pocetak

Do While Not rs.EOF

If rs("urucena") = dblKriterijum Then 'za neko polje pod nazivom "Polje"
dblSuma = dblSuma + dblKriterijum
End If

rs.MoveNext

Loop

dblSuma = Label9

End Sub


Ajde nauči najprije šta su varijable.

Ne može ti dblKriterijum biti "Urucena". Deklarirao si ju kao double a daješ joj string vrijednost!

dblSuma = dblSuma + dblKriterijum
Kako možeš zbrajati tip double sa stringom?

Ajde probaj promijeniti
Dim dblKriterijum As Double
sa
Dim dblKriterijum As String

i onda

If rs("urucena") = dblKriterijum Then 'za neko polje pod nazivom "Polje"
dblSuma = dblSuma + 1

I pazi da ovdje (rs("urucena")) moraš napisati naziv POLJA kako se ono zove u bazi!
[ miki987 @ 25.08.2009. 16:39 ] @
ok,radi,greska je moja...
a sta fali onom gore,tu zaista ne znam sta vise da radim?
[ miki987 @ 27.08.2009. 18:48 ] @
captPicard moze li pomoc jos za ovo sto sam naveo
znaci kada pretraga odradi svoje ona pronadjeni rezultat ne prikazuje vidljivim odnosno scroll se ne pomera
to sam resio tako sto sam u kod ubacio
Code:
 .ListItems(itm.Index).EnsureVisible

sada se rezultat vidi odnosno scroll se pomeri a row je uglavnom u donjoj zoni
problem je sto selekcija ne radi, dakle kada ubacim ovaj kod ceo row nije selektovan kao sto to inace radi sa sao ovim kodom
Code:
  .ListItems(itm.Index).Selected
[ captPicard @ 28.08.2009. 07:46 ] @
Ne znam sada točno, ali mislim da ovako nekako dobiješ red koji je označen

Dim a as integer

a = List.ItemIndex

Pogledaj ovo

http://visualbasic.freetutes.c...-vb6-advanced/lesson4/p17.html

i ovo

http://www.developerfusion.com/article/14/listbox-control/6/

možda ti pomogne.