cara membuat laporan dari database sqlserver (DSN, ODBC, OLEDB)
Imports System.Data.SqlClient
Public Class Form1
Dim conn As SqlConnection
Dim cmd As SqlCommand
Dim dr As SqlDataReader
Sub koneksi()
conn = New SqlConnection("data source=user-pc\sqlexpress;user=sa;password=xyz;initial catalog=dbkoperasi")
conn.Open()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
CrystalReportViewer1.SelectionFormula = "Totext({tblsimpanan.tanggal_simpanan})='" & dtp1.Text & "'"
CrystalReportViewer1.ReportSource = "master.rpt"
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
CrystalReportViewer1.SelectionFormula = "{tblsimpanan.tanggal_simpanan} in date ('" & dtp2.Text & "') to date ('" & dtp3.Text & "')"
CrystalReportViewer1.ReportSource = "master.rpt"
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
CrystalReportViewer1.SelectionFormula = "month({tblsimpanan.tanggal_simpanan}) =(" & Month(dtp4.Text) & ") and year({tblsimpanan.tanggal_simpanan}) =(" & Year(dtp4.Text) & ")"
CrystalReportViewer1.ReportSource = "master.rpt"
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
CrystalReportViewer1.SelectionFormula = "year({tblsimpanan.tanggal_simpanan}) =(" & Year(dtp4.Text) & ")"
CrystalReportViewer1.ReportSource = "master.rpt"
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
koneksi()
cmd = New SqlCommand("select distinct nama_anggota from tblanggota,tblsimpanan where tblanggota.id_anggota=tblsimpanan.id_anggota", conn)
dr = cmd.ExecuteReader
Do While dr.Read
ListBox1.Items.Add(dr(0))
Loop
End Sub
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
CrystalReportViewer1.SelectionFormula = "{tblanggota.nama_anggota} = '" & ListBox1.Text & "'"
CrystalReportViewer1.ReportSource = "master.rpt"
End Sub
End Class