Membuat aplikasi CRUD database dengan visual studio 2015 dan MySql server ubuntu (1)

Disini kita akan membuat sebuah aplikasi penyimpanan barang sederhana dengan Visual studio dan MySQL ubuntu sebagai server nya. karna aplikasi ini ada di 2 bagian yaitu client nya berupa aplikasi desktop dengan visual studio 2015 dan server nya dengan MySql di server dengan OS ubuntu maka tutorial ini akan dibagi menjadi 2 bagian. Pertama kita buat aplikasi desktopnya dulu, sebelumnya install visual studio di pc kita.

1. Pertama buat project baru dengan nama barang
2. Kemudia buat form baru dengan tampilan seperti dibawah

Disini form yg kita buat berisi:
  1. textbox dengan nama "id" : berisi id barang
  2. textbox dengan nama  "nama" : sebagai input nama barang
  3. textbox dengan nama "jml" : sebagai input jumlah barang
  4. DateTimePicker dengal nama "tgl" : sebagai input tanggal saat melakukan input barang
  5. DataGridView dengan nama "DGV1" : sebagai tempat menampilkan data 
  6. 3 buah Button untuk melakukan simpan hapus dan keluar dari aplikasi
3. Setelah membuat form sekarang kita buat sebuah module untuk koneksi aplikasi dengan database.

 Imports MySql.Data.MySqlClient
Public Class clsKoneksi
    Protected Conn As New MySqlConnection
    Protected Cmd As New MySqlCommand
    Protected Da As New MySqlDataAdapter
    Protected Ds As New DataSet
    Protected Dt As New DataTable

    Public Function OpenConn() As Boolean
        Conn = New MySqlConnection("server=192.168.12.14;" _
                                & "user id=root;" _
                                & "password='';" _
                                & "database=barang;")
        Conn.Open()

        If Conn.State <> ConnectionState.Open Then
            Return False
        Else
            Return True
        End If
    End Function
    Public Sub CloseConn()
        If Not IsNothing(Conn) Then
            Conn.Close()
            Conn = Nothing
        End If
    End Sub

    Public Function ExecuteQuery(ByVal Query As String) As DataTable
        If Not OpenConn() Then
            MsgBox("Koneksi Gagal....!", MsgBoxStyle.Critical, " Access Failed")
            Return Nothing
            Exit Function
        End If

        Cmd = New MySqlCommand(Query, Conn)
        Da = New MySqlDataAdapter
        Da.SelectCommand = Cmd
        Ds = New Data.DataSet
        Da.Fill(Ds)
        Dt = Ds.Tables(0)
        Return Dt
        Dt = Nothing
        Ds = Nothing
        Da = Nothing
        Cmd = Nothing
        CloseConn()
    End Function

    Public Sub ExecuteNonQuery(ByVal Query As String)
        If Not OpenConn() Then
            MsgBox("Koneksi Gagal...!", MsgBoxStyle.Critical, "Access Failed")
            Exit Sub
        End If

        Cmd = New MySqlCommand

        Cmd.Connection = Conn
        Cmd.CommandType = CommandType.Text
        Cmd.CommandText = Query
        Cmd.ExecuteNonQuery()
        Cmd = Nothing
        CloseConn()
    End Sub
End Class
    
        Untuk bagian yang diatas server silahkan diisi dengan IP address server, user, password disesuaikan dengan database dan database diisi dengan nama database kita.

4. Sekarang kita buat codingan untuk form yg kita buat tadi

Pertama definisikan variabel yang akan kita pakai berdasar module yg kita buat tadi. Class aturTampilan digunakan untuk mengatur tampilan DataGridView sesuai data dari tabel database. Class TampilData digunakan untuk memanggil data tabel.
Kemudian class kosong untuk membuat textbox kosong, bersih dari inputan sebelumnya. kemudian saat form diload kita panggil class2 sebelumnya agar menampilkan data tabel.

Kodingan diatas yaitu saat kita melakukan dobel klik pada data grid untuk memilah data yang akan di Update atau dihapus.
Kodingan diatas untuk untuk menyimpan data yang sudah diinputkan atau update data barang. Saat datagrid di dobel klik akan muncul data pada textbox dan kita bisa melakukan update atau menghapus data.
Setelah koding selesai sekarang kita lanjut ke setting di sisi servernya.
Bagian 2



Komentar

Postingan populer dari blog ini

Program Sistem Pendukung Keputusan dengan vb6

Animasi bola pantul dengan delphie 7

Membuat game sederhana dengan VB6