Prikazi cijelu temu 06.08.2013 21:19
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Lokacija:Ohrid Makedonija


Predmet:Re: Kasa MSAccess to VB6
Jas go imam reseno so Recordset
PreuzmiIzvorni kôd (Visual Basic):
  1. Set rsSmetki = New Recordset
  2.       rsSmetki.Open "SHAPE {select * from tblSmetki order by ID_Smetka} AS ParentCMD APPEND ({SELECT tblSmetki_Stavki.ID_Stavka, tblSmetki_Stavki.Smetka_Br, tblSmetki_Stavki.Stavka, tblSmetki_Stavki.Ed_Mera, tblSmetki_Stavki.Kolicina, tblSmetki_Stavki.Ed_Cena, tblSmetki_Stavki.Posledna_Prod_Cena, tblSmetki_Stavki.Popust, tblSmetki_Stavki.DDV, tblSmetki_Stavki.R_Br, tblSmetki_Stavki.Barkod, [Ed_Cena]*[Kolicina] AS Vkupno FROM tblSmetki_Stavki Order By R_Br} AS ChildCMD RELATE ID_Smetka TO Smetka_Br) AS ChildCMD", cn, adOpenStatic, adLockOptimistic

no koga ke mu napravam na recordsetot Requery ne reagira nisto
koga ke stavam gridStavki_Smetka.ReBind togas e ok no me vraka na pocetok na stavkite odnosno na prviot Row