Centar za edukaciju-BiH

Predmet:Recordser od Query so parametri

---

Imam edno Query koe e sostaveno od poveke Query ja na koi ima razni parametri od razliciti mesta.
Mene mi treba da napravam recordset DAO ili ADO od ova queri.
so DAO dobivam error 3061.
Prasajneto mi e kao da se napravi recordset od query koe e sostaveno od poveke query ja i parametrite ne mozat da se dodadat kako uslov ( Tie veke se zadadeni od nekoi formi ili konstanti)

Pozdrav

Predmet:Re: Recordser od Query so parametri

---

Najbolje okaci primjer.
Tesko je ovako.

---

Predmet:Re: Recordser od Query so parametri

---

Eve primer

Prilozi:

Predmet:Re: Recordser od Query so parametri

---

Koji je to Query da ne lutam?

---

Predmet:Re: Recordser od Query so parametri

---

qryPopis_Razliki

frmPopis mora da bidi otvorena i postavena od nea se zemaat parametri za querijata.
Na formata frmPopis ima button KNIZI POPISNI RAZLIKI i na nego mi treba toj rekordset od ova queri

Predmet:Re: Recordser od Query so parametri

---

Mozes da pises SQL u kodu ali ti to neces jer mislis da vec imas.
Morao bi sve uslove prenijeti kodom.
Ako neces to onda mozes ovako.
Naprvais neku formu koja se zove napr. F.
Sada mozes napraviti ovakav kod.
Dim Db As Database
Dim Frm As Form
Dim Rs As Recordset
Dim Podatak
DoCmd.OpenForm "F"
Set Frm = Forms("F")
Frm.Visible = False
Frm.RecordSource = "qryPopis_Razliki"
Set Rs = Frm.RecordsetClone

Do While Not Rs.EOF
Podatak = Rs.Fields(1)

Rs.MoveNext
Loop

---

Predmet:Re: Recordser od Query so parametri

---

Jas ke go resam ova inaku.
ova sto mi imas ti predlozeno ne mi odgovara.
Ke napravam tabela koja ke gi ima istite polijan kako i querito i ke ja polnam so naredbata
Docmd.RunSQL
a potoa ke izvadam recordset od nea.
Ne e nesto profesionalno no ke funkcionira

Predmet:Re: Recordser od Query so parametri

---

Pa evo mozes napraviti i na toj formi jedan list box i staviti ga da je nevidljiv.
i onda bi isao kod:
Dim Rst As Recordset
Dim list1 As ListBox
Dim Podatak

Set list1 = Forms!FrmPopis.list1
list1.RowSource = "qryPopis_Razliki"
Set Rst = list1.Recordset
Rst.MoveLast
Rst.MoveFirst
Do While Not Rst.EOF
Podatak = Rst.Fields(8)
Rst.MoveNext
Loop

Profesionalno ako hoses mozes odraditi ali to ti je ono gore prvo stao sam ti napisao.
Mogu ti i napraviti kod za jedan sql da vidis kako izgleda ali mislim da ti to znas.

---

Predmet:Re: Recordser od Query so parametri

---

A mozes i ovako:
Ovo je za "qryPopis_Izlez"

Dim SQL As String
Dim Data As String
Dim Magacin As Integer
Dim Db As Database
Dim Rs As Recordset

Magacin = [Forms]![frmPopis]![Magacin]
Data = "#" & Format([Forms]![frmPopis]![Data], "dd-mm-yyyy") & "#"
SQL = "SELECT tblFaktura_Stavki.Stavka, Sum(tblFaktura_Stavki.Kolicina) AS Vk_Izlez " _
& "FROM tblFakturi INNER JOIN tblFaktura_Stavki ON tblFakturi.ID_Faktura = tblFaktura_Stavki.Faktura_Br " _
& "WHERE (((tblFakturi.Data) <=" & Data & ") And ((tblFakturi.Magacin) =" & Magacin & ")) " _
& "GROUP BY tblFaktura_Stavki.Stavka, tblFakturi.Tip_Faktura " _
& "HAVING (((tblFakturi.Tip_Faktura)=1 Or (tblFakturi.Tip_Faktura)=7))"
Set Db = CurrentDb
Set Rs = Db.OpenRecordset(SQL)

---

Predmet:Re: Recordser od Query so parametri

---

Ima mnogu resenija , no memne mi treba naj ednostavno . Ova e operacija sto se izveduva nedelno mesecno ili mozebi godisno taka sto nema potreba da se kompliciraat rabotite..
Programot e raboten del vo VB 6 ,bazata e rabotena vo ms sql server daka sto ne e problem za mene da napravam nekolku funkcii ili stored proceduri za da funkcionira ova ,celta mi bese da bajdam resenie kako od vakvo query da gi izvadam podatocite.