Visual Basic : Mengkoneksikan Ke Database

Tutorial mengkoneksikan database pada visual basic dengan menggunakan beberapa koneksi , untuk memulainya seperti biasa harus membuat tampilan pada form, field apa saja yang akan di buat. Untuk pembuatan database barang, field yang di butuhkan yaitu kode_barang yang akan di jadikan primary key, lalu nama_barang, stok_barang dan harga.

Maka untuk membuat semua itu di butuhkan 5 label dengan judul, 4 textbox dan 5 button dengan fungsi (update, delete, input, clear, dan exit ).

Maka setelah di buat akan menjadi seperti ini      :

Supaya tools tersebut diberi nama sesuai yang di inginkan, maka ketik sintak berikut pada form_load :

Private Sub Form_Load()

Label1.Caption = "Database Barang"

Label2.Caption = "kode_barang"

Label3.Caption = "nama_barang"

Label4.Caption = "stok_barang"

Label5.Caption = "harga"

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Command1.Caption = "update"

Command2.Caption = "delete"

Command3.Caption = "input"

Command4.Caption = "clear"

Command5.Caption = "EXIT"

End Sub

Setelah itu, pada pada toolbox klik kanan hingga muncul seperti ini :

Atau agar lebih mudah tekan CTRL+T

Setelah muncul tampilan seperti berikut, lalu klik components,

Hingga muncul tampilan seperti berikut :

Setelah itu klik pada ADO Data Control  6.0 (OLEDB)

Untuk koneksi Database ke Ms access

Dan pada Ms DataGrid control 6.0 (OLEDB)

Merupakan control dalam sebuah aplikasi yang sangat penting,dikarenakan dapat mempresentasikan data tablur dan mengeditnya secara mudah.

Setelah menchecklist  Ms ADO Data Control dan Ms DataGrid klik Apply di bagian bawah lalu tekan OK.

Setelah itu akan muncul di bagian tools bawah dengan icon seperti ini pada toolbox :

Lalu membuat data grid dan adodc tersebut pada form, hingga menjadi tampilan seperti berikut :

Setelah itu, klik add-Ins pada menubar, lalu pilih visual data manager, setelah muncul tampilan seperti berikut :

Visual data manager adalah suatu program (Add-Ins),yang disebut program terpisah yang di tempelkan dalam MS-Visual Basic 6.0 sehingga dipakai sebagai bagian dari program MS-Visual Basic.

Klik file, lalu pilih new, pilih ms access version 7.0 MDB

Setelah itu ketik nama database yang akan di buat, klik ok

Lalu setelah itu akan muncul nama database yang dibuat, lalu klik kanan new table – add field

Lalu membuat field sesuai yang di inginkan, untuk table barang yaitu membuat field(kode_barang dengan di beri index - primary key, nama_barang, stok_barang, dan harga)

Setelah selesai, lalu klik build table, close

Untuk pengkoneksiannya, klik datagrid lalu dalam properties ketik adodc1 pada datasource

Setelah itu, klik adodc -  pada properties klik connection string hingga muncul seperti berikut :

Pilih yang paling bawah seperti pada gambar, lalu pilih Ms Jet OLEDB 4.0 setelah itu klik build – Test connection , setelah berhasil – apply terakhir tekan OK.

Point penting dari ADODC adalah kita membuat connection stringnya dan  melalui property connection string menentukan recordsource melalui property recordsource.

Merupakan kode utama dari koneksi yang dibutuhkan. Yang pertama menggunakan provider Microsoft jet oledb 4.0 yang memanggil data source/sumber data dari database DBbarang.mdb

Setelah itu pada properties adodc1, klik recordsource lalu akan muncul seperti berikut :

Pilih seperti pada gambar, dan pada text yang kedua menggunakan table barang , klik apply dan OK

Pengkoneksian ke database telah selesai, sekarang adalah memberikan sintak pada tiap button agar button-button tersebut berfungsi untuk (update, delete, input, clear dan exit), Pada command1 yaitu update, ketik sintak berikut :

Private Sub Command1_Click()

Adodc1.Recordset.Update

Adodc1.Recordset!kode_barang = Text1.Text

Adodc1.Recordset!nama_barang = Text2.Text

Adodc1.Recordset!stok_barang = Text3.Text

Adodc1.Recordset!harga = Text4.Text

DataGrid1.Refresh

End Sub

Recordset mengandung semua data yang  di baca dari sebuah database atau yang di kirim padanya. Sebuah recordset terdiri atas beberapa baris dan kolom data. Setiap satu baris merupakan sebuah record, dan setiap satu kolom merupakan sebuah field di dalam record. dapat diakses hanya beberapa baris dan kolom data, dan dapat memanggil baris atau record yang aktif. Kita dapat melakukan navigasi melalui sebuah Recordset dengan mengganti record yang aktif.

Lalu pada command2 yaitu delete, ketik sintak berikut :

Private Sub Command2_Click()

Dim a As Integer

a = 1

jawab = MsgBox("yakin hapus?", vbQuestion, "konfirmasi")

If jawab = 1 Then

Adodc1.Recordset.Delete

End If

DataGrid1.Refresh

End Sub

 Pada command3 yaitu input, ketik sintak :

Private Sub Command3_Click()

Adodc1.Recordset.AddNew

Adodc1.Recordset!kode_barang = Text1.Text

Adodc1.Recordset!nama_barang = Text2.Text

Adodc1.Recordset!stok_barang = Text3.Text

Adodc1.Recordset!harga = Text4.Text

Adodc1.Recordset.Update

DataGrid1.Refresh

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

End Sub

Pada command4 yaitu clear, masukan sintak :

Private Sub Command4_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text1.SetFocus

Text2.SetFocus

Text3.SetFocus

Text4.SetFocus

End Sub

Pada command5 yaitu EXIT, cukup masukan sintak :

Private Sub Command5_Click()

Unload Me

End Sub

OUTPUT

Input

Mengisi form :

Setelah di klik button input, maka data terlihat dan masuk ke dalam data grid :

Update

Setelah menekan button update, dan merubah datanya di dalam form, dan data pada DataGrid akan terupdate :

Clear

setelah menekan button clear, maka di textbox akan bersih :

Delete

Setelah menekan button delete, maka akan muncul msbox, lalu klik oke :

Setelah mengklik oke, maka data akan terhapus begitu pula pada DataGrid :