[VB2008 db access] Eseguire un report con filtro di 2 date

[Miitiicoo83]

Ciao, come da oggetto, avrei bisogno di creare un report di stampa, in base a un lasso di tempo scelto. Es: Stampa da datax a data y.
Solo che nella creazione guidata report, mi stampa tutto senza distinzione, che parametro devo usare o c'è un modo per fare questi report?

[nokia6]

ci sei ricascato eheheh sempre la query fill nel tasto stampa vai a richiamare una condizione di data se ti serve per data

[Miitiicoo83]

tipo? No perchè non so come fare a metterlo in un report. Scusate ma ero da dei clienti oggi pomeriggio

[Miitiicoo83]

Dovrei aver creato quello che mi serve, solo che la query che sono andato a scrivere non mi torna. Sicuramente sarà nel fatto che ho usato il filtro =? and =?

SELECT id, [Id cliente], Data, Tecnico, Descrizione, Durata, [Ragione Sociale]
FROM Interventi
WHERE (Data = ?) AND (Data = ?)

Dovrei usare qualcos'altro? Devo filtrare un lasso di tempo "da" "a"

[Miitiicoo83]

Che scemo che sono, risolto usando (data>=?) and (Data<=?)

ora ho una griglia popolata con i dati che mi servono, devo solo mandarl in stampa. Che mi sonsigliate, di fare un print del form o altro metodo tipo e.Graphics.DrawString?

[cassano]

WHERE data between @data1 AND @data2

[Miitiicoo83]

perfetto, ma poi come faccio a mandare in stampa? Ossia, quale è il metodo più efficace? Premetto che è un datagridview

[nokia6]

devi usare il medoto report passargli i record filtrati che vuoi stampare

[Miitiicoo83]

Grazie nokia6.
Si ho trovato la formula com ho scritto sopra razie a te..
in che senso intendi report e passargli i dai? Io attualmente ho popolato tutto su una datagridview, puoi postarmi un piccolo esempio se non ti spiace?

[nokia6]

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim risp As DialogResult

risp = MessageBox.Show("Vuoi stampare solo per il periodo indicato?", "", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

If risp = Windows.Forms.DialogResult.Yes Then
Dim rep1 As New CrystalReport1
Dim data As String
Dim Rpt As New CrystalDecisions.CrystalReports.Engine.ReportDocum ent
Dim DOp As New CrystalDecisions.Shared.DiskFileDestinationOptions

data = Date.Now.Year.ToString



Dim ds1 As New XXXXXXX
Dim adp As New XXXXXXXSetTableAdapters.XXXXXXXXXXXXXXXXTableAdapt er

adp.Fill12(ds1.XXXXXXXXXXXX, Me.DateTimePicker1.Value.ToString("dd/MM/yyyy"), Me.DateTimePicker2.Value.ToString("dd/MM/yyyy"))
rep1.SetDataSource(ds1)


DOp.DiskFileName = Application.StartupPath & "\" & data & ".pdf"
With rep1.ExportOptions
.DestinationOptions = DOp
.ExportDestinationType = CrystalDecisions.Shared.ExportDestinationType.Disk File
.ExportFormatType = CrystalDecisions.Shared.ExportFormatType.PortableD ocFormat
End With
rep1.Export()

MessageBox.Show("File salvato con successo in " & DOp.DiskFileName, "NOTIFICA", MessageBoxButtons.OK, MessageBoxIcon.Information)
Process.Start(Application.StartupPath & "\" & data & ".pdf")

Else
Dim rep1 As New CrystalReport1
Dim data As String
Dim Rpt As New CrystalDecisions.CrystalReports.Engine.ReportDocum ent
Dim DOp As New CrystalDecisions.Shared.DiskFileDestinationOptions

data = Date.Now.Year.ToString



Dim ds1 As New XXXXXXXXXX
Dim adp As New XXXXXXDataSetTableAdapters.XXXXXXXXXXXXXXTableAdap ter
adp.Fill(ds1.XXXXXXXXXX)
rep1.SetDataSource(ds1)


DOp.DiskFileName = Application.StartupPath & "\" & data & ".pdf"
With rep1.ExportOptions
.DestinationOptions = DOp
.ExportDestinationType = CrystalDecisions.Shared.ExportDestinationType.Disk File
.ExportFormatType = CrystalDecisions.Shared.ExportFormatType.PortableD ocFormat
End With
rep1.Export()

MessageBox.Show("File salvato con successo in " & DOp.DiskFileName, "NOTIFICA", MessageBoxButtons.OK, MessageBoxIcon.Information)
Process.Start(Application.StartupPath & "\" & data & ".pdf")
End If
End Sub