[ kaan @ 03.07.2002. 08:18 ] @
Pozdrav
U Visual Basicu 6. Mogu li da dinamicki kreiram SQL upit (Na osnovu nekih variabli iz forme programa) i proslijedim ga DataEnviroment-u ili Direktno izvjestaju?

[Ovu poruku je menjao jc denton dana 04.07.2002 u 02:01 AM GMT]
[ Krsta @ 03.07.2002. 15:25 ] @
Jel mozes malo bolje da objasnis,
nisam te bas razumeo.
[ kaan @ 03.07.2002. 15:59 ] @
Citat:
Krsta:
Jel mozes malo bolje da objasnis,
nisam te bas razumeo.


Ocu da dinamicki generisem izvjestaje. Ako je moguce da nekako rezultate iz nekog data grida samo prosledim izvjestaju i da mi ih on odstampa.

Znam kako da kreiram izvjestaj ali samo da mu odmah definisem SQL upit i to je to.

Meni konkretno trebaju izvjestaji za trenutni mjesec. Dakle kako da izvjestaju prosledim upit kao sto je ovaj:

"SELECT * FROm Uplate WHERE Mjesec=" & strMjesec
[ jc denton @ 04.07.2002. 01:48 ] @
A, u cemu to hoces da ih kreiras?
Data Report?
CR?
[ Krsta @ 04.07.2002. 03:41 ] @
Kad kazes izvestaj, ako mislis na Crystal Report,
mislim da mozes sa naredbom
Report1.SelectionFormula = "{nalog.id}=" + txtNesto.Text + "",
otprilike je ovako nesto, nisam siguran, probaj.

A, ako oces bez CR-a
Prvo izvrsis select upit pa onda stampas.

Dim i As Integer
'stampa header
Printer.Print "kontakt"
'prolazi kroz sve rekorde
For i = 1 To Data1.Recordset.RecordCount
'Stampa praznu liniju
Printer.Print
'Stampa informacije za trenutni rekord
Printer.Print "Ime: " & txtIme.text
Printer.Print "Kompanija: " & txtKomp.text
Next i
'Kraj stampe
Printer.EndDoc

Stim da je txtIme.text vezano u bazi na ime, itd...

Nadam se da ce ovo bar nesto da ti zavrsi...

Pozdrav.
[ kaan @ 04.07.2002. 06:50 ] @
Ok, samo, ne postoji (bar mi je alat ne ponudi) metod print za Priner objekat.

[ jc denton @ 04.07.2002. 07:36 ] @
Pa da. Print nije u listi metoda, kao sto nije ni u listi za PictureBox recimo.

Pogledaj ovu temu, imash tu neki kod koji moze da pomogne kod stampanja izvestaja pomocu Print metode :

http://www.elitesecurity.org/tema.php?TopicID=6523

pozdrav
[ DjordjeRd @ 27.07.2002. 11:50 ] @
Evo dela koda za VBA:

For ptrListinga = 0 To BrojListinga - 1
GdeJe = "NUMpretplatnika='" + SukcesivniTabela(0, ptrListinga) + "'"
DoCmd.OpenReport "Listing", acViewNormal, , GdeJe
Next ptrListinga