Newsgroup: it.comp.lang.visual-basic
Titolo: Vi prego ho bisogno di aiuto ancora su Crystal Report !!! :(

Scusate l'insistenza, ma non ho ancora capito come fare la stampa con
crystal report dei dati contenuti in questo ADODataControl:
Adodc2.RecordSource = "SELECT Amici.ID, Amici.Nome, Amici.Cognome FROM Amici
WHERE (((Amici.Nome) Like '%" & frmAmici.Search & "%')) ORDER BY Amici.ID;"
Ho nella tabella amici 40 record, search è un textbox del form Amici che
contiene la stringa "bert". Ho controllato e GIUSTAMENTE l'Adodc2 contiene 2
record (infatti fra i 40 ho 2 amici che si chiamano Roberto).
Come faccio a stampare con crystal il contenuto di Adodc2 ???
Ciao e grazie !!!
--
'''2FB®foolbrain®'''
Visual Basic Programmer
Database Manager
ICQ 88912631

Il modo migliore è quello di creare un report con i campi della tabella in
questione, e poi da codice alla prorpietà .SelectionFormula gli passi la
stessa query che passi al controllo ADODC e poi mandi in stampa. I risultati
della query verranno stampati in automatico. E' importante che nel report,
tu metta i campi nella sezione dettagli, altrimenti ti stampa solo il primo
record.
Se hai bisogno di altri chiarimenti fammelo sapere.
Ciao Luciano.
Frase nulla:
Finalmente dopo tanto tempo ho ripreso a scrivere sul ng, l'ho proprio
trascurato...

 Ciao Luciano.
Innanzitutto grazie per la tua disponibilità !
Ho provato a fare quanto mi hai detto e purtroppo avviene la generazione di
un errore !!!
Sarò sfortunatamente costretto a richiedere nuovamente il tuo aiuto ! ;):)
Per essere + preciso, ti scrivo l'errore che mi si presenta ed il mio codice
sorgente:
---
"Errore di run-time '20515' / Error in formula".
---
Private Sub Command20_Click()
CrystalReport1.ReportFileName = App.Path & "\ricerca.rpt"
CrystalReport1.SelectionFormula = "SELECT QueryID.* FROM QueryID WHERE
(((QueryID.Amico) Like '%" & Search & "%')) ORDER BY QueryID.ID;"""
CrystalReport1.Action = 2
End Sub
---
Ancora grazie 1000 !!!
--
foolbrain

Prova cosě:
CrystalReport1.SelectionFormula = "SELECT * FROM QueryID WHERE Amico Like *"
& Search & "* ORDER BY ID"
Fammi sapere come va.
Ciao Luciano.

Purtroppo l'errore si genera ancora !!! :(
Ho provato anche questa soluzione, ma il problema resta, cmq te la posto !!!
Ho creato una query all'interno del DB e l'ho chiamata QueryID.
Questa query seleziona tutti i record come voglio e li ordina secondo il
campo ID.
Ho creato un report con CR su questa query e tutto funziona.
In VB creo una query da sorgente che filtra la QueryID del DB e trova tutti
i record che corrispondono ai miei criteri di ricerca.
Tutto funziona più che bene in VB, ma quando applico la SelectionFormula con
gli stessi criteri che uso in VB sulla QueryID, si genera l'errore di cui
sopra !!! Grrrr....
Se hai altre idee sono qui in ascolto, cmq ancora grazie 1000 !!!
--
foolbrain

Dunque, mi devi scusare ho commesso un errore. Ti ho passato una stringa
incompleta, inquanto, se il campo amico è di tipo stringa (come credo che
sia) allora la SelectionFormula è la seguente:
CrystalReport1.SelectionFormula = "SELECT * FROM QueryID WHERE Amico Like "
& Chr$(34) & "*" & Search & "*" & Chr$(34) & " ORDER BY ID"
Ora ti dovrebbe funzionere!
Aspetto notizie...
Ciao Luciano.