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