Tutorial : Belajar database dengan sofware PHP TRIAD

Bab I : PHP TRIAD
         1. 1. Sebelumnya install terlebih dahulu PHP Triad !!!
             Kemudian Klik Start – All programs - PHP Triad . .dan pilih MySQL-D-NT

       1.2 .Membangun database di mysql
Release versi: MySQL Connector Net 1.0.7 dan Install MySQL Connector Net di PC kita.

pertama kita harus masuk terlebih dahulu ke dalam MysQL
 caranya :  -    cd\

             -          cd apache\mysql\bin

-          Apache\mysql\bin>mysql.exe

   Membuat database baru dan pemilihan nama sesuka anda .
      mysql>  create database bayu;

 database baru tadi harus kita pilih untuk digunakan
Mysql> use bayu;

Buat table barang :
Ketikkan perintah seperti dibawah ini :

Buat table pembelian :
Ketikkan perintah seperti di bawah ini :

1.3.Mengimport data dari excel ke mysql

Disini sudah tercipta perintah 2 table , table barang dan table pembelian  yang belum ada di isi dari kedua table ini .Dan kemudian saya akan memasukkan isi table ini dari data Microsoft excel .
caranya :

               Buat data barang di Microsoft excel seperti dibawah ini  : . . .

Buat perintah yang ditunjuk oleh panah merah dibawah ini di salah satu cell nya untuk mengambil datanya saja yang mau di import ke mysql .

Atau dengan  =CONCATENATE(A2;B2;C2) juga bisa digunakan

Maka hasilnya akan seperti dibawah  ini :  . . .

 

Salin semua hasilnya tadi ke notepad :

Setelah itu simpan di media penyimpanan, misalnya disini saya simpan di  D: di dalam folder tugas dengan nama databrg.txt

Maka sekarang kita kembali ke MySQL dan ketikkan perintah seperti di bawah ini untuk mengimport data yang kita buat tadi ke dalam MySQL :

Hasilnya : . . .??????

Table barang sudah terisi data , yang kedua kita akan memasukkan data di table pembelian yang masih kosong . caranya sama dengan cara memasukkan data dari Microsoft excel juga

Buat dulu data table pembeliannya :

Kemudian salin hasil dari microsoft exel  ke notepad :

Simpan lagi ke dalam folder , di D: folder tugas dengan nama file datapembelian.txt
dan Kembali ke menu MySQL

Ketikkan perintah dibawah ini untuk Mengimport data ke table pembelian  di MySQL:

Hasilnya : . . .??????

Sekarang kita sudah menyelesaikan Database di MysQL  .

1.4. Mengkoneksikan mysql ke vb net

       MySQL Connector Net 1.0.7

Pada dialog visual basic klik Project - Add Reference .

C:\Program Files\MySQL\MySQL Connector Net 1.0.7\Assemblies\v2.0\MySql.Data.dll
(catatan: sesuaikan path dengan versi yang Anda download)
klik tab Browse kemudian explore lokasi :
Dan setelah itu klik tombol OK.       



Kemudian Design form seperti dibawah ini :

1.5. Listing Program

Dan ikuti listing program berikut ini :

Imports MySql.Data.MySqlClient

Public Class Form1

    Dim Mysql As String

    Dim cmd As New MySqlCommand

    Dim db As MysqlDataReader

    Dim consql As String = "server=localhost;uid=root;database=bayu"

    Dim koneksi As New MysqlConnection(consql)

    Sub bersih()

        kf.Text = ""

        tgl.Text = ""

        kb.Text = ""

        nb.Text = ""

        har.Text = ""

        jum.Text = ""

        th.Text = ""

        kf.Enabled = True

    End Sub

    Sub buattable()

        lv.Columns.Add("kode faktur", 80, HorizontalAlignment.Center)

        lv.Columns.Add("tanggal pembelian", 80, HorizontalAlignment.Center)

        lv.Columns.Add("jumlah pembelian", 80, HorizontalAlignment.Center)

        lv.Columns.Add("total pembelian", 80, HorizontalAlignment.Center)

        lv.Columns.Add("kode barang", 80, HorizontalAlignment.Center)

        lv.FullRowSelect = True

        lv.View = View.Details

    End Sub

    Sub tampilkodebarang()

        kb.Items.Clear()

        Mysql = "select *from barang"

        cmd = New MySqlCommand(Mysql, koneksi)

        db = cmd.ExecuteReader

        Try

            While db.Read

                kb.Items.Add(db!kode_brg)

            End While

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

        db.Close()

    End Sub

    Sub tampildata()

        LV.Items.Clear()

        Mysql = "select *from pembelian order by kode_faktur asc"

        cmd = New MySqlCommand(Mysql, koneksi)

        db = cmd.ExecuteReader

        Try

            While db.Read

                Dim lst As ListViewItem

                lst = LV.Items.Add(db!kode_faktur)

                lst.SubItems.Add(db!tanggal_pembelian)

                lst.SubItems.Add(db!jumlah_pembelian)

                lst.SubItems.Add(db!total_pembelian)

                lst.SubItems.Add(db!kode_barang)

            End While

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

        db.Close()

    End Sub

    Sub proses(ByVal x As Byte)

        Dim ctgl As String

        ctgl = Format(tgl.Value, "yyyy-MM-dd")

        Select Case x

            Case 1 'menyimpan data

                Mysql = "insert into pembelian(kode_faktur,tanggal_pembelian,jumlah_pembelian,total_pembelian,kode_barang)" & _

                            "values('" & kf.Text & "','" & ctgl & "','" & jum.Text & _

                            "','" & th.Text & "','" & kb.Text & "')"

                MsgBox("Data berhasil disimpan", MsgBoxStyle.OkOnly, "Sukses")

            Case 2 'mengedit data

                Mysql = "Update pembelian set tanggal_pembelian='" & ctgl & "', " & _

    "jumlah_pembelian='" & jum.Text & "', " & _

    "total_pembelian='" & th.Text & "', " & _

    "kode_barang='" & kb.Text & "' " & _

    "Where kode_faktur='" & kf.Text & "'"

                MsgBox("Data berhasil di ubah", MsgBoxStyle.OkOnly, "Sukses")

            Case 3 'menghapus data

                kf.Text = LV.SelectedItems(0).Text

                Mysql = "Delete From Pembelian Where kd_Faktur='" & kf.Text & "'"

                MsgBox("Data Telah Dihapus", MsgBoxStyle.OkOnly, "Sukses")

        End Select

        cmd = New MySqlCommand(Mysql, koneksi)

        cmd.ExecuteNonQuery()

        bersih()

        tampildata()

        kf.Focus()

    End Sub

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

        koneksi.Open()

        buattable()

        tampilkodebarang()

        tampildata()

    End Sub

    Private Sub kb_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kb.SelectedIndexChanged

        Mysql = "select *from barang where kode_brg='" & kb.Text & "'"

        cmd = New MySqlCommand(Mysql, koneksi)

        db = cmd.ExecuteReader

        Try

            db.Read()

            nb.Text = db!nama_brg

            har.Text = db!harga

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

        db.Close()

    End Sub

    Private Sub jum_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles jum.KeyPress

        If Asc(e.KeyChar) = 13 Then

            th.Text = har.Text * jum.Text

        End If

    End Sub

    Private Sub Btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsimpan.Click

        If kf.Text <> "" And tgl.Text <> "" And kb.Text <> "" And nb.Text <> "" And har.Text <> "" And jum.Text <> "" And th.Text <> "" Then

            proses(1)

            bersih()

        Else

            MsgBox("ada bagian yang belum diisi", MsgBoxStyle.Information, "Gagal")

        End If

    End Sub

    Private Sub Btnubah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnubah.Click

        If kf.Text <> "" And tgl.Text <> "" And kb.Text <> "" And nb.Text <> "" And har.Text <> "" And jum.Text <> "" And th.Text <> "" Then

            proses(2)

            bersih()

        Else

            MsgBox("ada bagian yang belum diisi", MsgBoxStyle.Information, "Gagal")

        End If

    End Sub

    Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click

        proses(3)

    End Sub

    Private Sub LV_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles LV.DoubleClick

        kf.Text = LV.SelectedItems(0).Text

        tampildata()

    End Sub

    Private Sub LV_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LV.SelectedIndexChanged

    End Sub

End Class

Hasil program : . . .??????

1.6.Mencoba menyimpan data

isi data-data yang akan diisi jika berhasil disimpan akan muncul pesan berhasil seperti di bawah ini  :

Dan jika gagal akan muncul tampilan seperti dibawah ini :

1.7.Mencoba mengubah data

 Doble klik daftar pembelian yang ada di listview dan ubah menjadi apa yang mau di ubah
setelah itu klik tombol ubah jika berhasil akan muncul pesan seperti dibawah ini :

1.8.Mencoba menghapus data

Klik daftar pembelian yang mau di hapus  di listview lalu tekan tombol hapus dan jika berhasil  maka akan muncul pesan seperti dibawah ini

Data yang telah kita simpan,edit dan hapus tadi akan terhubung  dengan mysql  dan sama hasilnya dengan yang ada di vb net 2008 .




Hai...Hii temen-temen JJJ
Asslamualaikum wr.wb”. . . . . .

        Temen-temen jangan terlalu serius banget membacanya ..temen-temen cukup santai aja karena belajar pemograman tidak sulit seperti yang kamu bayangkan. . . . Gak ada pelajaran yang sulit kalau kita benar-benar NIAT atau sungguh-sungguh ingin belajar .”

O iya” kalau temen-temen ingin belajar pemograman bareng dengan saya ,insya allah saya bisa walaupun saya tidak pintar-pintar amat gitu ,temen-temen cukup mengconfir saya :
Add mail : Bayusahrizal150591@gmail.com
                Http//Bayusahrizal.bloqspot.com/      
Atau
Add Facebook : Bayusahrizal@rocketmail.com

SEKIAN DAN TERIMA KASIH  .... !!!!!!!
Semoga bermanfaat  !!!