Imports System.Data.SqlServerCe
Imports System.Data.SqlClient

Public Class Form1

    Dim cn As New System.Data.SqlServerCe.SqlCeConnection("Data Source=|DataDirectory|\Conto.sdf")
 
  Private dataAdapter As SqlCeDataAdapter
  Private dataSet As Data.DataSet

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
  
Dim commandBuilder As SqlCeCommandBuilder
dataAdapter = New SqlCeDataAdapter("SELECT * FROM Bancomat ORDER by ID asc", cn)
commandBuilder = New SqlCeCommandBuilder(dataAdapter)
      dataSet = New Data.DataSet
      dataAdapter.Fill(dataSet)
            DataGridView2.DataSource = dataSet.Tables(0)
            dataSet.WriteXml(Application.StartupPath + "\Bancomat.xml", XmlWriteMode.WriteSchema)
            cn.Close()

  End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
    Form2.ShowDialog()
End Sub


Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim mioreport As New ReportDocument()
        Dim tabella As New DataTable()
        mioreport.Load(Application.StartupPath + "\CrystalReport1.rpt")
        tabella = New DataTable()
        tabella.ReadXml(Application.StartupPath + "\Bancomat.xml")
        mioreport.Database.Tables(0).SetDataSource(tabella)
        CrystalReportViewer1.ReportSource = mioreport
        ' CrystalReportViewer1.Zoom(125)
    End Sub