kako sabrati tekst (vb6+access), ima li ko ideju...

kako "sabrati" tekst (vb6+access), ima li ko ideju... 22.08.2009. u 20:42 · pre 209 meseci #1

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

Re: kako "sabrati" tekst (vb6+access), ima li ko ideju... 22.08.2009. u 21:34 · pre 209 meseci #2

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.

Potpis

F

Re: kako "sabrati" tekst (vb6+access), ima li ko ideju... 23.08.2009. u 09:50 · pre 209 meseci #3

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.

Re: kako "sabrati" tekst (vb6+access), ima li ko ideju... 23.08.2009. u 11:46 · pre 209 meseci #4

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'.

Potpis

SELECT * FROM หน่วยงานหลัก WHERE ยสันติ LIKE 'โดย%'

Re: kako "sabrati" tekst (vb6+access), ima li ko ideju... 23.08.2009. u 12:28 · pre 209 meseci #5

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

Re: kako "sabrati" tekst (vb6+access), ima li ko ideju... 23.08.2009. u 16:59 · pre 209 meseci #6

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

Re: kako "sabrati" tekst (vb6+access), ima li ko ideju... 23.08.2009. u 21:59 · pre 209 meseci #7

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...

Potpis

F

Re: kako "sabrati" tekst (vb6+access), ima li ko ideju... 24.08.2009. u 00:35 · pre 209 meseci #8

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

Re: kako "sabrati" tekst (vb6+access), ima li ko ideju... 24.08.2009. u 13:59 · pre 209 meseci #9

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?!?!?!

Potpis

F

Re: kako "sabrati" tekst (vb6+access), ima li ko ideju... 24.08.2009. u 17:41 · pre 209 meseci #10

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

Re: kako "sabrati" tekst (vb6+access), ima li ko ideju... 24.08.2009. u 23:28 · pre 209 meseci #11

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

Re: kako "sabrati" tekst (vb6+access), ima li ko ideju... 25.08.2009. u 09:14 · pre 209 meseci #12

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!

Potpis

F

Re: kako "sabrati" tekst (vb6+access), ima li ko ideju... 25.08.2009. u 17:39 · pre 209 meseci #13

ok,radi,greska je moja...
a sta fali onom gore,tu zaista ne znam sta vise da radim?

Re: kako "sabrati" tekst (vb6+access), ima li ko ideju... 27.08.2009. u 19:48 · pre 209 meseci #14

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

Re: kako "sabrati" tekst (vb6+access), ima li ko ideju... 28.08.2009. u 08:46 · pre 209 meseci #15

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.

Potpis

F

Forum kao aplikacija na telefonu

Srodne teme