Kreiranje izvestaja u VB 6.0

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]

Potpis

Kaurin Andrej

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

Potpis

Kaurin Andrej

A, u cemu to hoces da ih kreiras?
Data Report?
CR?

Potpis

fire, walk with me

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.

Ok, samo, ne postoji (bar mi je alat ne ponudi) metod print za Priner objekat.

Potpis

Kaurin Andrej

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

Potpis

fire, walk with me

Evo dela koda za VBA:

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

Potpis

c000 lda #$33
c002 sta $0400
c005 lda #$37
c007 sta $0401
c00a lda #$21
c00c sta $0402
c00f rts

sys 49152