[stevennathaniel]

Saya ingin mencoba berbagi pengetahuan tentang kegiatan belajar pemrograman yang sedang saya kerjakan. saya sedang mempelajari pemrograman Visual Basic .NET. dengan tujuan membuat aplikasi database. server yang di pergunakan adalah MYSQL. Mungkin catatan pengetahuan ini kurang lengkap, tapi setidaknya saya mencoba berbagi. Karena biasanya cuma nulis status di Facebook, jadi apa salahnya kalau share juga disini, biar forum ini jadi tambah rame.

Dibawah ini saya share dulu source code yang terakhir berhasil saya tulis. dalam source code ini sudah ada code Crystal Report, jadi untuk reportnya saya menggunakan crystal report. berikut ini source code nya:

Code:

Imports MySql.Data.MySqlClient

Imports CrystalDecisions.CrystalReports.Engine


Public Class Form1

    Dim Koneksi As MySqlConnection

    Dim PerintahSQL As MySqlCommand

    Dim DataAdapter As MySqlDataAdapter

    Dim ds As DataSet


    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

        ' Menampilkan data di datagridview secara langsung ketika form di load

        Koneksi = New MySqlConnection("server=localhost;database=latihan1;password=kucing;username=root;")

        Dim TampilkanData As String = "SELECT * FROM pengguna"

        DataAdapter = New MySqlDataAdapter(TampilkanData, Koneksi)

        ds = New DataSet

        Koneksi.Open()

        DataAdapter.Fill(ds, "pengguna")

        Koneksi.Close()

        DataGridView1.DataSource = ds

        DataGridView1.DataMember = "pengguna"

        Koneksi.Dispose()


    End Sub

    Private Sub DataGridView1_CellContentClick(sender As System.Object, e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick

        Dim i As Integer

        i = DataGridView1.CurrentRow.Index

        Me.txtIdPengguna.Text = DataGridView1.Item(0, i).Value

        Me.txtNamaLengkap.Text = DataGridView1.Item(1, i).Value

        Me.txtNamaPengguna.Text = DataGridView1.Item(2, i).Value

        Me.txtKataKunci.Text = DataGridView1.Item(3, i).Value



    End Sub

    Private Sub btnSimpan_Click(sender As System.Object, e As System.EventArgs) Handles btnSimpan.Click

        ' bikin koneksi ke MYSQL & kemudian bikin perintah SQL untuk input data ke server

        Koneksi = New MySqlConnection("server=localhost; database=latihan1; password=kucing; username=root;")

        Dim masukanData As String = "INSERT INTO pengguna(namalengkap,namapengguna,katakunci) VALUES ('" + txtNamaLengkap.Text + "','" + txtNamaPengguna.Text + "','" + txtKataKunci.Text + "')"

        PerintahSQL = New MySqlCommand(masukanData)

        PerintahSQL.Connection = Koneksi

        Koneksi.Open()

        PerintahSQL.ExecuteNonQuery()


        txtNamaLengkap.Text = ""

        txtNamaPengguna.Text = ""

        txtKataKunci.Text = ""

        txtNamaLengkap.Focus()


        Dim tampilkanData As String = "SELECT * FROM pengguna"


        DataAdapter = New MySqlDataAdapter(tampilkanData, Koneksi)

        ds = New DataSet

        DataAdapter.Fill(ds, "pengguna")

        Koneksi.Close()

        DataGridView1.DataSource = ds

        DataGridView1.DataMember = "pengguna"

        Koneksi.Dispose()



    End Sub

    Private Sub btnUpdate_Click(sender As System.Object, e As System.EventArgs) Handles btnUpdate.Click

        Koneksi = New MySqlConnection("server=localhost;database=latihan1;password=kucing;username=root;")

        Dim updateData As String = "UPDATE pengguna SET namalengkap = '" & txtNamaLengkap.Text & "',namapengguna = '" & txtNamaPengguna.Text & "',katakunci = '" & txtKataKunci.Text & "' WHERE iduser = '" & txtIdPengguna.Text & "';  "

        PerintahSQL = New MySqlCommand(updateData)

        PerintahSQL.Connection = Koneksi

        Koneksi.Open()

        PerintahSQL.ExecuteNonQuery()


        txtIdPengguna.Text = ""

        txtNamaLengkap.Text = ""

        txtNamaPengguna.Text = ""

        txtKataKunci.Text = ""


        txtNamaLengkap.Focus()


        Dim tampilkanData As String = "SELECT * FROM pengguna"

        DataAdapter = New MySqlDataAdapter(tampilkanData, Koneksi)

        ds = New DataSet

        DataAdapter.Fill(ds, "pengguna")



        Koneksi.Close()

        DataGridView1.DataSource = ds

        DataGridView1.DataMember = "pengguna"


        Koneksi.Dispose()




    End Sub

    Private Sub btnHapus_Click(sender As System.Object, e As System.EventArgs) Handles btnHapus.Click

        Koneksi = New MySqlConnection("server=localhost;database=latihan1;password=kucing;username=root;")

        Dim hapusData As String = "DELETE FROM pengguna WHERE iduser = '" & txtIdPengguna.Text & "';"

        PerintahSQL = New MySqlCommand(hapusData)

        PerintahSQL.Connection = Koneksi

        Koneksi.Open()


        PerintahSQL.ExecuteNonQuery()


        txtIdPengguna.Text = ""

        txtNamaLengkap.Text = ""

        txtNamaPengguna.Text = ""

        txtKataKunci.Text = ""


        txtNamaLengkap.Focus()

        Dim tampilkanData As String = "SELECT * FROM pengguna "


        DataAdapter = New MySqlDataAdapter(tampilkanData, Koneksi)

        ds = New DataSet

        DataAdapter.Fill(ds, "pengguna")



        Koneksi.Close()

        DataGridView1.DataSource = ds

        DataGridView1.DataMember = "pengguna"

        Koneksi.Dispose()


    End Sub

    Private Sub btnTampilReport_Click(sender As System.Object, e As System.EventArgs) Handles btnTampilReport.Click

        Dim cryRpt As New ReportDocument

        cryRpt.Load("D:\Proyek Database Visual Basic\Latihan10\Latihan10\Latihan10\CrystalReport1.rpt")

        CrystalReportViewer1.ReportSource = cryRpt

        CrystalReportViewer1.Refresh()

    End Sub
End Class

Tampilan gambar desain GUI untuk kode diatas:





Link untuk download file-file pemrograman Visual Basic .Net diatas


Dalam proyek ini saya menggunakan plugin Crystal Report For Visual Studio 2010 yang bisa di download di sini :


Link Download Crystal Report For Visual Studio 2010


Referensi mengenai Crystal Report For Visual Studio 2010 salah satunya bisa di dapatkan disini:

Crystal Reports Version for VS 2010

Saya juga menggunakan konektor .NET untuk MYSQL. Buat dapatin konektor nya bisa ke sini:

.NET Connector For MYSQL

Kalau untuk koneksi Crystal Report ke MYSQL server saya menggunakan konektor ODBC yang untuk MYSQL. ODBC nya bisa didapatkan disini:

ODBC Connector For MYSQL


Ini foto tabel database MYSQL nya yg sudah di isi lewat program yg dibuat, saya menggunakan aplikasi SQLyog untuk menampilkan data & mengoperasikan database MYSQL dengan menggunakan tampilan visual:





Ini desain tabel MYSQL nya, untuk membuat tabelnya saya pun menggunakan SQLyog:




mau kasih lihat cara untuk memasukan plugin Crystal Report For Visual Basic .NET 2010 ke dalam kodingan. begini caranya:

Pertama kita pilih menu Project , kemudian kita pilih Add New Item .




Kemudian akan muncul tampilan window seperti dibawah ini, kemudian kita pilih Crystals Report :




Kemudian akan muncul window ini, dan kita pilih Using the Report Wizard , dan di bagian Choose an Expert, biarkan pilihan pada Standard . Selanjutnya klik tombol OK :




Kemudian akan muncul window seperti di bawah ini, kita klik tanda + yg ada disamping MYSQL , maka akan muncul tampilan window seperti dibawah ini. juga kita klik tanda + di samping tulisan latihan1 . latihan1 merupakan nama database MYSQL nya.:




Kemudian pilih tabel pengguna, dan klik tombol > sehingga di bawah kolom Selected Tables akan muncul tulisan pengguna1 . Setelah itu di klik tombol Next .

Maka akan muncul tampilan Window di bawah ini:




Selanjutnya kita pilih nama-nama kolom yang ada di tabel pengguna1 , yaitu:

1. iduser
   
2. namalengkap
   
3. namapengguna
   
4. katakunci
   

misalnya setelah kita pilih iduser, kemudian klik tombol yang ada tanda > , maka iduser akan tampil di kolom Field to Display. Demikin juga dengan namalengkap, namapengguna, katakunci. seperti terlihat pada gambar di bawah ini:




Setelah tampilan window wizard kita menjadi seperti diatas, maka kita tinggal mengklik tombol Finish. Setelah itu maka akan muncul tampilan seperti ini:




dengan munculnya tampilan seperti ini, maka berarti kita sudah keluar dari window wizardnya Crystal Report, dan kita berada di tampilan yang bisa dipakai untuk mendesain form report/laporan kita di  Crystal Report For Visual Basic 2010. Untuk latihan diatas, saya tetap membiarkan tampilan defaultnya , tidak saya ubah dikarenakan masih sebatas mengetest kode VB .NET yang saya buat, apakah bisa dijalankan atau tidak.

Untuk yg selanjutnya nanti, akan saya perlihatkan, bagaimana cara menaruh komponen untuk menampilkan form reportnya ketika program dijalankan, juga sebuah tombol yang dibuat untuk mengeksekusi perintah menampilkan form report yang dibuat menggunakan Crystal Report.


Ok segini dulu. nanti saya usahakan update update lagi. seperti biasa. sedikit sedikit updatenya seperti di Facebook. Masih belajar supaya rajin posting di Forum. Kalau di FB kan udah sering bantuin forum forum FB. hahahaha.... curhat dikit.

[iKONspirasi]

wah .net programming om, menyimak dulu, blm ngerti saya, bisa dilengkapi ga om itu jalannya program gmn? tersesat nih haha

+1 dari saya

[stevennathaniel]

wah .net programming om, menyimak dulu, blm ngerti saya, bisa dilengkapi ga om itu jalannya program gmn? tersesat nih haha

+1 dari saya

iya nanti saya lengkapi lagi materinya ini. ini untuk pertama dulu. nanti saya edit postingan di atas, ditambahin lagi keterangannya. kan langkah pertama biar rajin posting di forum. Terimakasih untuk perhatiannya.

[anthonyBT$]

haha ada yg main .Net juga
kalo bisa buat report nya pakai report viewer bawaan visual studio nya bro

[stevennathaniel]

haha ada yg main .Net juga
kalo bisa buat report nya pakai report viewer bawaan visual studio nya bro  

wah kalau gue fokusnya ke Crystal Report. Soalnya di kantor gue standard nya pakai itu.

[dunkenciels]

Deleted

[stevennathaniel]

Keren juga gui nya di vb.net pak
kalo gw masih pke vb6. mau cb pindah ke .Net.
Dsrnya msh sama kn dgn vb sebelumnya?

yah ada persamaan dan ada perbedaannya. pastinya kalau sudah terbiasa coding di VB 6 maka akan lebih mudah beralih ke VB .NET .  kalau nggak salah kalau VB 6 itu masih kental unsur structural programmingnya. kalau VB .NET ini udah pakai OOP (Object Oriented Programming).

[arfha]

wah mantap om....
+1 dari ane...
mending threadnya dibikin
[Share] Visual Basic .Net 2010 Untuk Membuat Aplikasi Database part1
[Share] Visual Basic .Net 2010 Untuk Membuat Aplikasi Database part2
[Share] Visual Basic .Net 2010 Untuk Membuat Aplikasi Database part3

^^
Hanya saran..
terus disetiap part saling ada link berkaitan..
biar makin rame lagi threadnya

[stevennathaniel]

wah mantap om....
+1 dari ane...
mending threadnya dibikin
[Share] Visual Basic .Net 2010 Untuk Membuat Aplikasi Database part1
[Share] Visual Basic .Net 2010 Untuk Membuat Aplikasi Database part2
[Share] Visual Basic .Net 2010 Untuk Membuat Aplikasi Database part3

^^
Hanya saran..
terus disetiap part saling ada link berkaitan..
biar makin rame lagi threadnya

Terimakasih untuk +1 dan sarannya. iya nanti kalau udah banyak halaman-halaman di thread ini, dan mungkin kalau udah full thread kayak di Kaskus itu ya bakalan bikin part yg baru. cuma kalau belum ya disini aja. bikin full di sini. biar mudah juga yg mencari threadnya, biar terfokus gitu. kalau ada yg mau share kodingan VB .NET nya yg berkaitan dengan database juga bisa share di thread ini. atau mau ada ditanyakan dengan menyertakan source code codingan VB .NET nya yg berkaitan dengan database juga bisa ditaruh disini.


jadinya nanti rame juga kayak forum di Facebook. masa forum di facebook aja rame sementara disini nggak. padahal di FB kan isi diskusi bisa timbul & tenggelam, sementara disini bisa diurut secara baik urutan diskusinya. tenang aja kan saya punya hak untuk mengedit isi forum, jadi tiap kali update isi materi yg saya sampaikan selalu bisa tampil di halaman pertama.

kalau ada hal penting yg teman-teman sampaikan maka bisa juga saya taruh pembahasan dari teman-teman di halaman pertama, atau saya kasih link ke postingan teman itu di halaman pertama. yg terpenting sekarang adalah kekonsistenan saya di dalam mempelajari dan mengembangkan pemrograman Visual Basic .NET untuk database ini. jadi kan biar ada pioner nya ... hehehehe..... dan sedikit- sedikit di tambah terus materinya.

[dunkenciels]

Deleted