CrystalReport+vb.net+MySql za win aplikaciju

Code:

//prvo izvuces podatke
OdbcConnection cnn = new OdbcConnection("Ovde ide tvoj connection string...");
OdbcCommand cmd = new OdbcCommand("SELECT bla, bla, bla...", cnn);
OdbcDataAdapter adp = new SqlDataAdapter(cmd);                

//DataTable je sasvim dovoljan
DataTable dt = new DataTable();

//Napunis
cnn.Open();    
adp.Fill(dt);
cnn.Close();    

//Boundujes :)
reportDocument.SetDataSource(dt);            
crViewer.ReportSource = reportDocument;

//crViewer - CrystalDecisions.Windows.Forms.CrystalReportViewer
//reportDocument - CrystalDecisions.CrystalReports.Engine.ReportDocument

Code:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim conn = New MySqlConnection
        conn.ConnectionString = "database=upravljanje"
        Try
            conn.Open()
            Dim myCommand As New MySqlCommand
            Dim SQL2 As String
            SQL2 = "select ime,prezime  from zaposleni"
            myCommand.Connection = conn
            myCommand.CommandText = SQL2
            Dim mysqlAdapter As New MySqlDataAdapter
            mysqlAdapter.SelectCommand = myCommand
            Dim myData As New DataTable
            mysqlAdapter.Fill(myData)


            'Boundovanje
            Dim reportDocument As New ReportDocument
            reportDocument.SetDataSource(myData)

            Dim crViewer As New CrystalDecisions.Windows.Forms.CrystalReportViewer
            crViewer.ReportSource = reportDocument

            conn.Close()
            conn.dispose()
        Catch ex As MySqlException
            MessageBox.Show("Doslo je do greske u radu aplikacije, probajte ponovo", "UPOZORENJE !!!", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try

    End Sub

Code:

//CrystalDecisions.CrystalReports.Engine.ReportDocument

Code:

//derived CrystalDecisions.CrystalReports.Engine.ReportDocument class
//ili ti na srpskom, nasledjena klasa ReportDocument-a

Code:

Dim reportDocument As New ReportDocument
reportDocument.Load("C:\MojReport.rpt")
'pa tek onda boundoujes podatke
reportDocument.SetDataSource(myData)

Code:

'mojReport je klasa koju VS kreira kad kreiras novi crp fajl
'ona ti je nasledjena od CrystalDecisions.CrystalReports.Engine.ReportDocument klase
Dim reportDocument As New mojReport
reportDocument.SetDataSource(myData)

Code:

Imports MySql.Data
Imports System.Xml
Imports MySql.Data.MySqlClient
Imports CrystalDecisions.CrystalReports.Engine
...
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'DEO KODA KOJI PRIKAZUJE  DUGOVANJA SVIH ZAPOSLENIH
        Dim conn = New MySqlConnection
        conn.ConnectionString = "database=upravljanje"
        Try
            conn.Open()
            'povezali smo se na bazu upravljanje
            'MessageBox.Show("povezali smo se na mysql bazu")
            Dim myCommand As New MySqlCommand
            Dim SQL2 As String
            SQL2 = "select z.ime,z.prezime from zaposleni z"
            myCommand.Connection = conn
            myCommand.CommandText = SQL2
            Dim mysqlAdapter As New MySqlDataAdapter
            mysqlAdapter.SelectCommand = myCommand
            Dim myData As New DataTable
            mysqlAdapter.Fill(myData)

            Dim reportDocument As New ReportDocument
            reportDocument.Load("C:\Documents and Settings\User\My Documents\projekat\Izvestaji\CrystalReport3.rpt")
            reportDocument.SetDataSource(myData)

            MessageBox.Show("prosao kroz set data sourse")



            conn.Close()
            conn.dispose()
        Catch ex As MySqlException
            MessageBox.Show("Doslo je do greske u radu aplikacije, probajte ponovo", "UPOZORENJE !!!", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub