[es] - Sum polja2 u TextBox

Goran Goran
Hr

Član broj: 49956
Poruke: 71
*.cmu.carnet.hr.

Profil

^{12.05.2005. u 05:17 - pre 230 meseci}

Pozdrav,

Ako imamo bazu podataka C:\Baza.mdb i u njoj tablicu "Tablica" koja izgleda ovako:

Code:

polje1    polje2

a          7.5
z           8
g          2.3
g           1
a          10
z         4.4
g         7.8

Kako bi izgledao kod koji bi u text1.text napisao sumu polje2 gdje je polje1=g ???

Goran

Odgovor na temu

vujkev
Beograd

Član broj: 8072
Poruke: 1347
*.bg.wifi.vline.verat.net.

+104 Profil

Re: Sum polja2 u TextBox

^{12.05.2005. u 08:45 - pre 230 meseci}

Code:

Dim Conn as ADODB.Connection
Set conn = new Connection
conn.open ..... ; otvoris konekciju ka bazi
Text1.Text = conn.OpenRecordset("Select Sum(Polje2) from Tablica where Polje1 = 'g'")(0)

Naučio sam...
Da je važnije biti ljubazan nego biti u pravu

Odgovor na temu

X-Cite
Goran Tadić
Mediacija, Tušmobil
Ljubljana

Član broj: 28706
Poruke: 625
*.dial-up.arnes.si.

Sajt: www.baza-ukradenih-gsm.co..

Profil

Re: Sum polja2 u TextBox

^{12.05.2005. u 10:46 - pre 230 meseci}

dali možda znaš kako bi to izgledalo ako se koristi ADODC1 kontrola?

Pozdrav
GoGy

Odgovor na temu

nsofft
Aleksandar Nikolic
Majdanpek

Član broj: 51121
Poruke: 114
195.252.87.*

Jabber: nsofft@gmail.com

Profil

Re: Sum polja2 u TextBox

^{12.05.2005. u 15:12 - pre 230 meseci}

Pogledaj ovu temu mozda pomogne:

http://www.elitesecurity.org/poruka/716672

Zdravo

Odgovor na temu

Goran Goran
Hr

Član broj: 49956
Poruke: 71
*.cmu.carnet.hr.

Profil

Re: Sum polja2 u TextBox

^{13.05.2005. u 20:48 - pre 230 meseci}

Citat:

vujkev:

Code:

conn.open ..... ; otvoris konekciju ka bazi

Da li bi bio problem da napises sta dalje treba da ide?

Probao sam ovako nesto:

Code:

Conn.Open "PROVIDER=MSDataShape;Data PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=C:\Baza.mdb;"

al javi da aplikacija koristi argumente pogresnog tipa...

Goran

Odgovor na temu

KaAmIkAzA
Banja Luka

Član broj: 55521
Poruke: 58
81.93.75.*

Profil

Re: Sum polja2 u TextBox

^{13.05.2005. u 21:13 - pre 230 meseci}

Znas kako probaj ovdje ima dosta toga i lijepo je objasnjeno, vidi pa javi:

http://www.elitesecurity.org/t...m-sabiranje-dva-polja-iz-baze-

Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
*.yubc.net.

Jabber: Marko_L@elitesecurity.org

+828 Profil

Re: Sum polja2 u TextBox

^{13.05.2005. u 22:24 - pre 230 meseci}

Ako koristiš ADO

Code:
Dim conn As New ADODB.Connection
conn.Open "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=C:\Baza.mdb"
Text1.Text = conn.Execute("Select Sum(Polje2) from Tablica where Polje1 = 'g'")(0)

Ako koristiš DAO

Code:
Dim baza As Database
Set baza = OpenDatabase("C:\Baza.mdb")
Text1.Text = baza.OpenRecordset("Select Sum(Polje2) from Tablica where Polje1 = 'g'"").Fields(0).Value")

-Odracuonogakomijedrpiorazmaknicu.
-Ne rxdi mi txstxturx, kxd god hocu dx
ukucxm "x" onx ukucx "x".
-Ko kaaz e da ja neuummem da kuuca
m.
-Piše "Insert disk 3", a jedva sam i ova
dva ugurao u drajv
-Postoje samo dve osobe kojima
verujem, jedna sam ja, a druga nisi ti

Odgovor na temu

Goran Goran
Hr

Član broj: 49956
Poruke: 71
*.cmu.carnet.hr.

Profil

Re: Sum polja2 u TextBox

^{16.05.2005. u 01:12 - pre 230 meseci}

To su pravi odgovori! Hvala!

Jos jedno pitanjce...
Ako koristim ovo

Code:

Dim conn As New ADODB.Connection
conn.Open "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=C:\Baza.mdb"
Text1.Text = conn.Execute("Select Sum(Polje2) from Tablica where Polje1 = 'g'")(0)

Sta napisati umjesto 'g' da bi mi trazio ono sta odaberem u Combo1.Text?

Goran

Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
*.yubc.net.

Jabber: Marko_L@elitesecurity.org

+828 Profil

Re: Sum polja2 u TextBox

^{16.05.2005. u 16:36 - pre 230 meseci}

Code:
Text1.Text = conn.Execute("Select Sum(Polje2) from Tablica where Polje1 = '" & Combo1.Text & "'")(0)

Odgovor na temu

Goran Goran
Hr

Član broj: 49956
Poruke: 71
*.cmu.carnet.hr.

Profil

Re: Sum polja2 u TextBox

^{17.05.2005. u 16:33 - pre 230 meseci}

E, super!

Jel moze jos jedno pitanjce?!

Kako bi postavio drugi uvjet, pr: da trazim ako je Polje3 = P?
Pokusao sam ovako al mi ne ispise nista, a sigurno bi trebao jer za te uvjete u tablici postoje neki zapisi.

Code:

Text1.Text = conn.Execute("Select Sum(Polje2) from Tablica where Polje1 = '" & Combo1.Text & "' & Polje3 = 'P')(0)

Goran

Odgovor na temu

Marko_L
Beograd

Član broj: 20532
Poruke: 2885
*.yubc.net.

Jabber: Marko_L@elitesecurity.org

+828 Profil

Re: Sum polja2 u TextBox

^{18.05.2005. u 16:20 - pre 230 meseci}

Code:
Text1.Text = conn.Execute("Select Sum(Polje2) from Tablica where Polje1 = '" & Combo1.Text & "' AND Polje3 = 'P'")(0)

Odgovor na temu