Sum polja2 u TextBox

Sum polja2 u TextBox 12.05.2005. u 06:17 · pre 261 mesec #1

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

Potpis

Goran

Re: Sum polja2 u TextBox 12.05.2005. u 09:45 · pre 261 mesec #2

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)

Potpis

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

Re: Sum polja2 u TextBox 12.05.2005. u 11:46 · pre 261 mesec #3

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

Potpis

Pozdrav
GoGy

Re: Sum polja2 u TextBox 12.05.2005. u 16:12 · pre 261 mesec #4

Pogledaj ovu temu mozda pomogne:

https://www.elitesecurity.org/p716672

Potpis

Zdravo

Re: Sum polja2 u TextBox 13.05.2005. u 21:48 · pre 261 mesec #5

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

Potpis

Goran

Re: Sum polja2 u TextBox 13.05.2005. u 22:13 · pre 261 mesec #6

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

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

Re: Sum polja2 u TextBox 13.05.2005. u 23:24 · pre 261 mesec #7

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")

Potpis

-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

Re: Sum polja2 u TextBox 16.05.2005. u 02:12 · pre 261 mesec #8

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?

Potpis

Goran

Re: Sum polja2 u TextBox 16.05.2005. u 17:36 · pre 261 mesec #9

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

Potpis

-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

Re: Sum polja2 u TextBox 17.05.2005. u 17:33 · pre 261 mesec #10

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)

Potpis

Goran

Re: Sum polja2 u TextBox 18.05.2005. u 17:20 · pre 261 mesec #11

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

Potpis

-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

Forum kao aplikacija na telefonu

Srodne teme