ajde ja iskoristim ovu temu za pitanje oko datareport-a
moze li mi neko dati prost primer ili usmeriti na neki link - tutorial za pocetnike, kako iz listviewa prikazati stavke u datareport-u
koristim ado i usavrsio sam povezivanje access-a i vb-a, sada idem dalje a nikako se ne snalazim sa stampanjem podataka koje vidim u listview-u, svi pricaju kako je neki crystal report vrh ali ja nikako ne mogu da nadjem full verziju niti znam da li je on free i da li postoji neka starija a free verzija.
data report izgleda prost ali ne znam da ga povezem, niti da li on vuce podatke iz baze pa ih prikazuje ili ih vuce sa forme uz pomoc prostog koda npr. text1.text = datareport1.text1.text???
hvala na pomoci i izvinite ako sam omasio temu, ipak se vrti oko toga :D
pozdrav
Pošto znam u kakvim si mukama :p napisat cu ti ja jedan jednostavan primjer koji ce ti nadam se pomoci. I ja sam se danima mucio sa tim datareporom dak nisam skuzio na koji princip radi.. A naravno, nikog nisam imao pitati niti mi je iko na forumima newsima znao jednostavno pomoci. Dakle ovo je iz mojeg iskustva i mozda cu neke stvari pogrijesiti pa neka me netko ispravi ako gresku uoci...
Ja koristim sljedeci kod za prikaz podataka na reportu:
Code:
Dim rsPrimka As ADODB.Recordset
Set rsPrimka = New ADODB.Recordset
dim sql as string
sql = "SELECT primke.Broj_Primke, primke.Datum, partneri.naziv INNER JOIN partneri ON primke.partneri_partner_id = partneri.partner_id FROM primke"
rsPrimka.Open sql, conn, adOpenDynamic, adLockOptimistic 'ovdje dobijes recordset sa 3 polja iz 2 tablice iz baze (primke i partneri)
Set drPrimka.DataSource = rsPrimka 'ovdje set da je popunjen recordset sa podacima iz baze datasource od reporta(drPrimka)
'ovdje dodajes datapolja na odredeno polje u recorsetu
drPrimka.Sections("Section1").Controls.Item("Text1").DataField = "Broj_Primke"
drPrimka.Sections("Section1").Controls.Item("Text2").DataField = "datum"
drPrimka.Sections("Section1").Controls.Item("Text3").DataField = "naziv"
'ove textboxeve stavi u SECTION1 tj. DETAIL sekciju u reportu
drPrimka.Show
i sad kombiniras kako ti pase
mozes i raditi sa labelima. npr.:
Code:
drPrimka.Sections("Section2").Controls.Item("Label1").Caption = rsPrimka("tel").Value
Nadam se da sam ti bar malo pomogao.