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.
