0 Crystal Report

Membuat laporan vb.net dengan crystal report

Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Imports MySql.Data.MySqlClient

Public Class FlaporanMakanan
Dim conn As New Koneksi
Dim objRep As New ReportDocument
Dim DTset As New DataSet
Sub laporan()
sql = "select * from table_makanan "
DTadapter = New MySqlDataAdapter(sql, conn.konek)
DTadapter.Fill(DTset, "makanan")
objRep = New laporanmakanan
objRep.SetDataSource(DTset)
CrystalReportViewer1.ReportSource = objRep

End Sub

Private Sub FlaporanMakanan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call laporan()
End Sub