all about VB.net PHP dan codinganya

Cara membuat laporan dengan crystal report pada vb.net

Salah satu kelebihan menggunakan vb.net 2008 adalah tersedianya crystal report yang terintegrasi dengan vb.net. Hal ini membuat report jauh lebih mudah  di samping crystal report sendiri kaya akan fitur. Kali ini akan kita bahas bagaimana cara membuat laporan dengan crystal report pada vb.net.

1. Pertama, persiapkan sebuah form dengan design berikut :

Kontrol	Properti	Value
CrystalReportViewer1	Name	CrystalReportViewer1
Label1	Text	Tampilkan Nama :
TextBox1	name	TextBox1
Button	Name	Btdisplay
	Text	Display

2. Setelah form nya selesai, selanjutnya yang kita buat adalah dataset yang akan digunakan untuk memanggil table. Caranya : add- new item – pilih data – klik dataset – klik tombol add.

3. Nah, setelah datasetnya sudah dibuat kemudian buat koneksi ke database caranya buka Server Explorer – add connection – pilih data source: MySQL Database – Data provider : .NET Framework Data Provider for MySQL – klik OK.

4. Server name:localhost – user name: root – Password: root – Database name: db_latihan – Klik OK.

5. Buka DataSet1 – Drag table tb_latihan dari database connection yang ada pada Server Explorer – klik Yes.

6. Sekarang Buat lembar Crystalreport1 dengan add new item – Reporting – Crystal Report. Tambahkan field dengan cara : Klik kanan pada database field – pilih project data – ADO .NET datasets – pilih table tb_latihan – Klik Ok.

7. Drag field dari tb_latihan ke Section3 (Details) crystal report1 lalu design seperti ini

 8. Sebelum menuliskan kode ke dalam form, karena saya menggunakan database MySQL maka terlebih dahulu menambahkan referensi mysql ke form. Caranya : Project – add reference – pada tab .Net pilih Mysql.Data.

Kemudian tuliskan kode berikut ke dalam form :

Imports MySql.Data.MySqlClient

Public Class Form3
‘Membuat koneksi ke database
Private kon As New MySqlConnection(“server=localhost;database=db_latihan;uid=root;password=root;”)

Private Sub btdisplay_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles btdisplay.Click
Dim cmd As MySqlCommand
Dim adp As New MySqlDataAdapter
Dim dt As New DataSet
Dim sql As String

sql = “select id,nama,alamat from tb_latihan where nama like @nama”
Try
kon.Open()
cmd = New MySqlCommand(sql, kon)
cmd.Parameters.Add(“@nama”, MySqlDbType.VarChar).Value =”%” & TextBox1.Text & “%”
adp.SelectCommand = cmd
adp.Fill(dt, “tb_latihan”)

Dim report As New CrystalReport1
report.SetDataSource(dt)
CrystalReportViewer1.ReportSource = report
CrystalReportViewer1.Refresh()

cmd.Dispose()
adp.Dispose()
dt.Dispose()
kon.Close()
Catch ex As Exception
MessageBox.Show(ex.Message, “Error cetak laporan”)
End Try
End Sub
End Class

CARA MEMBUAT COMBO DAN LIST BOX

Membuat ComboBox dan ListBox pada visual basic 2008

Pada tutorial kali ini saya akan menjelaskan bagaimana cara mengetahui informasi ukuran hardisk yang ada di komputer kita dengan vb.net seperti gambar berikut :

Langkah – Langkahnya adalah sebagai berilut :

1. Pertama Buka Microsoft Visual Basic 2008 dengan cara klik start-Microsoft Visual Basic 2008
2. File-New-Project-Windows Form Application
3. Pada Name beri nama project misalnya “PRAK33 A″ kemudian Ok

4. Pada Form diatas terdiri dari 3 buah Label 1 buah ComboBox dan 1 buah ListBox

5. Atur propertiesnya seperti berikut :

Form1	Text	ComboBox dan ListBox
	Name	Form1
Label1	Text	ComboBox dan ListBox RUMAHMANDIRI.COM
	Name	Label1
Label2	Text	Drive
	Name	Label2
Label3	Text	Keterangan
	Name	Label3
ComboBox	Text	-
	Name	Cmb_Drive
ListBox	Name	LstInfo

6. Kemudian klik kanan pada Form1-View Code masukkan program berikut :

Imports System.IO
Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Cmb_Drive.Items.AddRange(IO.DriveInfo.GetDrives)
End Sub

Private Sub Cmb_Drive_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cmb_Drive.SelectedIndexChanged
LstInfo.Items.Clear()
LstInfo.Items.Add(“Nama Drive :” & Dir(“” & _
Cmb_Drive.Text & “”, FileAttribute.Volume) & “”)
LstInfo.Items.Add(“System :” & Dir(“” & _
Cmb_Drive.Text & “”, FileAttribute.System) & “”)
Dim dvr As New DriveInfo(Cmb_Drive.Text)
Dim kapasitas = CStr(dvr.TotalSize / 1000000) & “MB”
Dim Sisa = CStr(dvr.TotalFreeSpace / 1000000) & “MB”
Dim Terpakai = CStr(Val(kapasitas) – Val(Sisa)) & “MB”
LstInfo.Items.Add(“Kapasitas : ” & kapasitas)
LstInfo.Items.Add(“Terpakai : ” & Terpakai)
LstInfo.Items.Add(“Sisa : ” & Sisa)
End Sub
End Class