REPORT VIEWER e codice sql

martedì 20 gennaio 2015 - 21.29
Tag Elenco Tags  VB.NET  |  Windows 7  |  SQL Server 2008

pieroalampi Profilo | Expert

salve ho la necessità di creare dei report e manipolare l'sql direttamente dal codice del form qualcuno di voi mi sa dire come fare??
insomma ho il form con il report viewer nel quale dovrei rcaricare dati diversi con istruzione sql direttamente dal codice.

grazie
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
LA PRIMA FRASE DI UN PROGRAMMATORE HELLO WORD ...... ANCHE L'ULTIMA

jekisi Profilo | Senior Member

Ma il file di dati, dove salvi i dati, è un file di Access o Sql Server.

pieroalampi Profilo | Expert

sql, ma cambia poco se so come fare in access lo trasformo in sql e viceversa
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
LA PRIMA FRASE DI UN PROGRAMMATORE HELLO WORD ...... ANCHE L'ULTIMA

jekisi Profilo | Senior Member

Il codice che ti scrivo è basato su database di Access:

------------------SENZA FORMULA SULLA FORM DOVE HAI IL CrystalReportViewer---------------------
Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
caricaReport("C:\Messina Utility\MessinaUtility.mdb")
End Sub
Private Sub caricaReport(ByVal pathDatabase As String)
Dim mioreport As New CrystalDecisions.CrystalReports.Engine.ReportDocument()
mioreport.Load(AppDomain.CurrentDomain.BaseDirectory & "\CrystalReport1.rpt")
Dim logOnInfo As New CrystalDecisions.Shared.TableLogOnInfo
logOnInfo = mioreport.Database.Tables.Item("Tabella1").LogOnInfo
logOnInfo.ConnectionInfo.ServerName = pathDatabase
logOnInfo.TableName = "Tabella1"
mioreport.Database.Tables(0).ApplyLogOnInfo(logOnInfo)
CrystalReportViewer1.ReportSource = mioreport
CrystalReportViewer1.RefreshReport()
End Sub

------------------CON FORMULA SULLA FORM DOVE HAI IL CrystalReportViewer---------------------
Public Class Form76

Private Sub Form76_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
caricaReport("C:\Messina Utility\MessinaUtility.mdb")
End Sub

Private Sub Form76_SizeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.SizeChanged
Me.WindowState = FormWindowState.Maximized
End Sub
Private Sub caricaReport(ByVal pathDatabase As String)
Dim mioreport1 As New CrystalDecisions.CrystalReports.Engine.ReportDocument()
mioreport1.Load(AppDomain.CurrentDomain.BaseDirectory & "\CrystalReport13.rpt")
Dim logOnInfo1 As New CrystalDecisions.Shared.TableLogOnInfo
logOnInfo1 = mioreport1.Database.Tables.Item("CoordinateBancarie").LogOnInfo
logOnInfo1.ConnectionInfo.ServerName = pathDatabase
logOnInfo1.TableName = "CoordinateBancarie"
mioreport1.Database.Tables(0).ApplyLogOnInfo(logOnInfo1)
CrystalReportViewer1.Visible = True
End Sub

Private Sub CrystalReportViewer1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CrystalReportViewer1.Load
CrystalReportViewer1.Visible = False
Try
Dim tbCurrent As CrystalDecisions.CrystalReports.Engine.Table
Dim tliCurrent As CrystalDecisions.Shared.TableLogOnInfo
Dim objdoc As New CrystalDecisions.CrystalReports.Engine.ReportDocument
Dim varformula As String
varformula = "{CoordinateBancarie.codice}= " & Form75.CodiceTextBox.Text
CrystalReportViewer1.SelectionFormula = varformula
CrystalReportViewer1.RefreshReport()
objdoc.Load(Application.StartupPath & "\crystalreport13.rpt")
For Each tbCurrent In objdoc.Database.Tables
tliCurrent = tbCurrent.LogOnInfo
With tliCurrent.ConnectionInfo
.UserID = ""
.Password = ""
.DatabaseName = "GestioneSmaltimento"
End With
tbCurrent.ApplyLogOnInfo(tliCurrent)
Next tbCurrent
CrystalReportViewer1.ReportSource = objdoc
CrystalReportViewer1.RefreshReport()

Catch ex As Exception
End Try
CrystalReportViewer1.Visible = True
End Sub
End Class

pieroalampi Profilo | Expert

Ma non uso cr! E' la stessa cosa?? Uso il reportviewer di visual studio comunity
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
LA PRIMA FRASE DI UN PROGRAMMATORE HELLO WORD ...... ANCHE L'ULTIMA

jekisi Profilo | Senior Member

Da CrystalReportviewer io seleziono i file .Rpt, di Crystal Report e poi uso il codice che ti ho allegato.

Nel tuo caso non so se è la stessa cosa.

pieroalampi Profilo | Expert

ok ho deciso di ritornare su cr, ma mi sorge un dubbio:

nel tuo codice non vedo select te lo chiedo perché io dovrei inserire dei dati nel cr sempre grazie ad un stringa sql manipolabile nel mio caso da due controllo DateTimePicker dato che si tratta di date ad esempio
preleva tutti i documenti che si trovano fra la data 01/01/2014 e 12/12/2014 e tutto questo lo farei tramite sql

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
LA PRIMA FRASE DI UN PROGRAMMATORE HELLO WORD ...... ANCHE L'ULTIMA
Partecipa anche tu! Registrati!
Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !
Copyright © dotNetHell.it 2002-2025
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5