Torna al Thread
Imports System.Data
Imports System.Data.OleDb
Public Class Form1
Dim cn As OleDbConnection
Dim dap As OleDbDataAdapter
Dim dst As DataSet
Dim dt As DataTable
Dim cmd As OleDbCommand
Dim sql As String
Dim x As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
cn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:/Dati.mdb")
dap = New OleDbDataAdapter("SELECT * FROM Comuni", cn)
dst = New DataSet
'dap.Fill(dst, "comuni")
'MsgBox(dst.Tables("comuni").Rows(10).Item("Comune"))
'Exit Sub
dt = dst.Tables.Add("Comuni")
'Me.ComuniTableAdapter.Fill(Me.DataSet1.Comuni)
'Me.ComuniTableAdapter.Fill(dt)
ReportViewer1.ProcessingMode = Microsoft.Reporting.WinForms.ProcessingMode.Local
ReportViewer1.LocalReport.ReportPath = System.Environment.CurrentDirectory & "\Report1.rdlc"
ReportViewer1.LocalReport.DataSources.Clear()
ReportViewer1.LocalReport.DataSources.Add(New Microsoft.Reporting.WinForms.ReportDataSource("Comuni", dst.Tables("Comuni")))
ReportViewer1.DocumentMapCollapsed = True
ReportViewer1.RefreshReport()
End Sub
End Class