[VB6] - DataReport

[giuxmian]

Ciao Gente!!!!

Volevo una dritta su quanto spiego sotto.

Ho creato quattro datareport per stampare il contenuto di quattro diverse tabelle in access; questi report stampano tutti i record della tabella. Ora vi chiedo questo.

Quello che ora vorrei è far si che, data una scelta (es: pippo), il datareport stampi solo le informazioni della mia scelta (nell'es. pippo).

Come si fa in vb6?

Spero di essermi spiegato bene...al mex chiedete pure

Ciao e Grazie
Giuseppe

[giuxmian]

Ragazzi qualcuno mi può dare una mano?
Mi manca qs cosa per completare il mio programma

Spero che mi sappiate dare una mano

Grazie in anticipo

[ladyBlu]

usa un recordset che apri con la SELECT filtrata sui dati che ti interessano e poi lo passi al DataReport come DataSource che caricherà solo i dati di quel recordset.

[giuxmian]

Ciao LadyBlu
scusami ma non ho capito.
Ti posto il codice che ho utilizzato per fare la ricerca di tutti i documenti.
Quello che vorrei è (se possibile ovviamente) modificare questo codice in funzione della ricerca di un cliente "x" preso a caso.

------------------------------------
codice per la ricerca di tutti i dati
------------------------------------

'Dichiarazione ogetti...
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset

Set cn = New ADODB.Connection

'Apro connessione...
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\PGMVB6\clienti.mdb;Persist Security Info=False"

'Filtro i dati ...
Set rs = cn.Execute("SELECT TabellaArchivio.Titolo, TabellaArchivio.Costo, TabellaArchivio.Nome, TabellaArchivio.CF_PIVA FROM TabellaArchivio")

'Riporto i dati nel report...
Set DataReport4.DataSource = rs
Load DataReport4

'Chiamo il Report..
DataReport4.Show

[dr75]

Se ho capito bene vuoi visualizzare i dati del report in modo dinamico?
In questo caso, basta che nella stringa sql che da' origine al recordset aggiungi la condizione di where sul nome del cliente. Immaginando di avere una casella di testo in cui digiti il nome, lo assegni ad una variabile e poi la concateni al resto della stringa.

Ad esempio:


sqlEstraiCliente = "SELECT TabellaArchivio.Titolo," _
& " TabellaArchivio.Costo, TabellaArchivio.Nome, " _
& " TabellaArchivio.CF_PIVA FROM TabellaArchivio " _
& " WHERE TabellaArchivio.Nome = '" & varNomeCliente & "'"
Set rs = cn.Execute(sqlEstraiCliente)

Spero di avere interpretato correttamente la tua domanda.

Ciau!

[giuxmian]

mmh....mi sa che hai fatto centro! :quote:
Ora lo provo e poi ti dico.

Grazie in anticipo!!!

[ladyBlu]

Originariamente inviato da giuxmian
mmh....mi sa che hai fatto centro! :quote:
Ora lo provo e poi ti dico.

Grazie in anticipo!!!

esattamente ciò che ti avevo detto io


per scrivere il codice utilizzate il tag apposito, come da regolamento.
grazie