[VB6] Come si crea un Report di selezione?

[x69asterix]

a tutti,
mi sono creato un report e funziona correttamente, xò ho un problema e cioè, il report mi fà vedere tutti i record presenti nel DB, cosa ke io non voglio, ma praticamente vi faccio un esempio, ho un DB con 15 reparti, dal form mi selziono il reparto, ad ogni reparto vi sono un certo numero di persone, quindi se sul form ho il reparto magazzino, il report mi dovrebbe dare l' elenco di tutto il personale facente parte del magazzino, invece lanciando il report mi ritrovo l'elenco di tutti i reparti, come posso fare a visualizzare solo il report del reparto ke mi interessa?

uso DataEnvironment1 e DataReport1, sul form ho il controllo Data1. L'origine dei dati mi parte da una tabella creata in access.

[ciro78]

non sono molto pratico ma credo tu debba fare così

data1.recordsource ="SELECT * FROM tabella WHERE condizione"

tabella indica il nome della tabella che vuoi selezionare
where indica la condizione che poi ti permette di estrarre solo i dati che ti interessano!

nel caso

where reparto=magazzino

spero di essere stato chiaro

nel codice il simbolo * indica che seleziona tutti i capi della tabella

[x69asterix]

Originariamente inviato da ciro78
non sono molto pratico ma credo tu debba fare così

data1.recordsource ="SELECT * FROM tabella WHERE condizione"

tabella indica il nome della tabella che vuoi selezionare
where indica la condizione che poi ti permette di estrarre solo i dati che ti interessano!

nel caso

where reparto=magazzino

spero di essere stato chiaro

nel codice il simbolo * indica che seleziona tutti i capi della tabella

ciao,
proverò poi ti faccio sapere

[x69asterix]

allora credo di essere in confusione, ma quella sintassi dove va inserita?

[ciro78]

nella procedura form load dovrebbe andare

[Fado84]

data1.recordsource = al tuo recordset

ti posto un esempio di stampa...

Dim SourceClienti As String
SourceClienti = "SELECT * FROM Dati WHERE Data=" & "'" & DataBackup & "'" & " ORDER By ID"
rsClienti.Close
rsClienti.Open SourceClienti, cnClienti, 1, 3
MarginiReport
Set DataReport1.DataSource = rsClienti
DataReport1.Show 1

se hai qualche domanda chiedi pure..

[x69asterix]

Originariamente inviato da ciro78
nella procedura form load dovrebbe andare

ok,
ho provato senza risultato, ho fatto quanto segue:
sul form load

Private Sub Form_Load()
Data1.DatabaseName = App.Path & ("\db1.mdb")
    Data1.RecordSource = "Archivio2"
    Text1 = reparto
Data1.RecordSource = "SELECT * FROM Archivio2 WHERE reparto"
End Sub

sul form ho un
MSFlexGrid1
Data1
Text1
Command2
Risultato visualizzo sempre tutti i record.

[Fado84]

pensavo usassi ado..
ops

[ciro78]

grazie che visualizzi tutto devi specificare reparto a cosa deve essere uguale.....

reparto=.......

[x69asterix]

Originariamente inviato da ciro78
grazie che visualizzi tutto devi specificare reparto a cosa deve essere uguale.....

reparto=.......

ma,
io ho fatto così:
Reparto = Ufficio1
Data1.RecordSource = "SELECT * FROM Archivio2 WHERE Reparto"

il risultato è sempre lo stesso, faccio una premessa ke queste prove le faccio sul form, xkè all'apertura del report mi và in errore.