[ Goran Goran @ 12.05.2005. 05:17 ] @
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 ???

[ vujkev @ 12.05.2005. 08:45 ] @
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)


[ X-Cite @ 12.05.2005. 10:46 ] @
dali možda znaš kako bi to izgledalo ako se koristi ADODC1 kontrola?
[ nsofft @ 12.05.2005. 15:12 ] @
Pogledaj ovu temu mozda pomogne:

http://www.elitesecurity.org/poruka/716672
[ Goran Goran @ 13.05.2005. 20:48 ] @
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...
[ KaAmIkAzA @ 13.05.2005. 21:13 ] @
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-
[ Marko_L @ 13.05.2005. 22:24 ] @
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")
[ Goran Goran @ 16.05.2005. 01:12 ] @
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?

[ Marko_L @ 16.05.2005. 16:36 ] @
Code:
Text1.Text = conn.Execute("Select Sum(Polje2) from Tablica where Polje1 = '" & Combo1.Text & "'")(0)
[ Goran Goran @ 17.05.2005. 16:33 ] @
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)
[ Marko_L @ 18.05.2005. 16:20 ] @
Code:
Text1.Text = conn.Execute("Select Sum(Polje2) from Tablica where Polje1 = '" & Combo1.Text & "' AND Polje3 = 'P'")(0)