Tugas Pemrograman Bisnis 2

Membuat aplikasi yg terkoneksi dengan database dan memanipulasinya

Assalamu’alaikum wr.wb

Selamat datang kembali di blog saya.  Postingan berikut merupakan Tugas Lab.Pemrograman Bisnis 2 saya dalam mata kuliah Lab Pengantar Pemrograman Bisnis 2.  Kali ini saya akan membuat program mengenai database dan ado.net dengan bahasa pemrograman Visual Basic. Silakan  disimak langkah pembuatannya :D

Langkah langkahnya :

Buat blank database access dengan Ms.Access , kemudian buat table dengan nama yang anda inginkan, dengan cara klik design view kemudian buat seperti gambar ini

Setelah selesai dibuat , lalu save data dan close. 

Create New Project dengan Visual Basic, kemudian pilih Windows Form Application.

Sebelum membuat form , terlebih dahulu kita koneksikan database dengan visual basic anda. Caranya, klik Data-> add New Data Sources -> Pilih Next -> klik New Connection -> kemudian browse -> klik test connection -> ok -> next -> yes -> next -> finish.

Setelah itu, kita buat Form 1 sehingga tampilannya menjadi seperti ini.

 

Kemudian buat form 2 untuk memunculkan data barang. Caranya dengan men drag data barang yang sudah dikoneksikan dibagian data source.

Sebelum kita memulai kodingan ada baiknya kita desain terlebih dahulu form yang kita buat agar terlihat lebih menarik.

 

Kemudian kita buat kodingnya pada form 1 saja

Imports System.Data

Imports System.Data.SqlClient

Imports System.Data.OleDb

Public Class Form1

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

        Dim koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\DBSuppen.accdb"

        Dim objekkoneksi As New OleDb.OleDbConnection(koneksi)

    End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim koneksi As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\DBSuppen.accdb"

        Dim objekkoneksi As New OleDb.OleDbConnection(koneksi)

        objekkoneksi.Open()

        Dim tambah As String = "INSERT INTO TableBarang values ('" & TextBox1.Text & "', '" & TextBox2.Text & "', '" & TextBox3.Text & "', '" & TextBox4.Text & "', '" & TextBox5.Text & "', '" & TextBox6.Text & "')"

        Dim oCmd = New OleDbCommand(tambah, objekkoneksi)

        oCmd.ExecuteNonQuery()

        MsgBox("Success!!!")

        objekkoneksi.Close()

    End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Form2.Show()

    End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

        TextBox5.Text = ""

        TextBox6.Text = ""

    End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        Me.Close()

    End Sub

End Class

Untuk mengetahui asal dari source code ini :

Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\DBSuppen.accdb

Anda bisa temukan dengan cara : klik data -> add new data sources -> klik connection string-> kemudian copy.

Nah dicobain deh sekarang aplikasinya. Pertama akan muncul form 1, kemudian isi data seperti gambar dibawah ini.

 

Jika kita klik clear maka akan muncul gambar seperti dibawah ini

Jika kita klik save maka akan muncul gambar seperti ini

 

Jika kita klik browse maka akan muncul seperti gambar dibawah ini

Dan jika klik close maka aplikasi akan keluar.

Sekian penjelasan saya mengenai progam ini, mohon maaf bila ada kekurangan dalam penjelasan dan semoga berguna bagi pembaca.Wassalamualaikum Wr.Wb.