MEMBUAT DATABASE VISUAL BASIC 6

Sore para developer Visual Basic :D setelah sebelomnya kita bahas tentang pengertian dasar dari VB dan cara membuat form load (menu loading) kali ini saya akan memberitahu bagaimana cara menyambungkan dari Visual Basic 6 ke ms.access (database).

Mudah-mudahan ini bisa sedikit membantu kalian pengguna visual basic awam tentang database, kali ini saya buakn bermaksud menggurui kalian, tapi saya sekedar menunjukan kepada anda bahwa database itu cukup mudah dibuat, Dengan memahaminya.

Dan para programmer pakar Visual Basic sejati, tidaklah perlu tuntuk membaca blok ini, karena saya rasa untuk anda tidak ada manfaatnya sama sekali.

Namun bagaimana pun juga harapan saya semoga halaman ini dapat bermanfaat dan dimanfaatkan :D

1.       Persiapan membuat database

Kita buka Visual Basic. Dan buatlah satu form. Tahu kan bagai mana cara?

APA TIDAK TAHU cara membuat form Visual Basic tapi ingin membuat database. Ahh… bercanda anda.. hehehhe… :D

Baiklah saya anggap anda tahu cara membuat form

1.1    Setalah membuat form baru kita pilih captiaon untuk mengganti nama project menjadi Latihan1 (kalo saya sih pake nama saya sendiri) :D

1.2     Lalu buat form latihan1 seperti gambar di bawah ini dengan mengguakan Label, TextBox, dan CommandButton

1.3              setehalah Form siap langkah selanjutnya kita buat penampungan seluruh data yang nantinya kita akan simpan.

            disini saya akan menggunakan ms.access langsung buka saja ms.access. saya menggukan access 2013. Pada dasarnya semua acces sama saja, hanya tampilannya saja yang terlihat berbeda dengan ms.access sebelumnya.

1.4               buatlah table dengan nama tb1 dengan fild sesuai dengan yang telah anda buat dalam Visual basic tadi yang telah anda buat sebelomnya, lalu buat fild nama sebagai Primary Key tau kan fungsi primary key buat apaan? itu loh buat mengindentifikasikan suatu baris dalam tabel. alhamdulillah akhirnya tau juga.. :D

seperti gambar diatas aja tak usah bikin yang rumit-rumit, namanya juga masih belajar :D

1.5               baiklah langkah selanjutnya kita kembali ke project Visual Basic kita yang tadi

lalu pilih View + Code untuk memasukan perintah (koding).

Ketikanlah codingan di bawah ini:

Public kon As New ADODB.Connection

Public db1 As New ADODB.Recordset

Private Sub Command1_Click()

If Text1 = "" Or Text2 = "" Or Text3 = "" Then

MsgBox "Data Belum Lengkap...!", vbInformation, "Informasi"

Else

Dim SQLTambah As String

SQLTambah = "insert into tb1 (Nama,Umur, Sekolah) values ('" _

& Text1 & "','" & Text2 & "','" & Text3 & "')"

kon.Execute SQLTambah

Text1 = ""

Text2 = ""

Text3 = ""

End If

End Sub

Private Sub Command2_Click()

Dim hps As String

hps = "delete from tb1 where Nama = '" & Text1 & "'"

kon.Execute hps

MsgBox "Data Berhasil di Hapus", vbInformation, "ada informasi"

Text1 = ""

Text2 = ""

Text3 = ""

Form_Activate

End Sub

Private Sub Command3_Click()

End

End Sub

Private Sub Command4_Click()

Form_Activate

db1.Open "select * from tb1 where Nama = '" & Text1 & "'", kon

If Not db1.EOF Then

    Text2 = db1!Umur

    Text3 = db1!Sekolah

MsgBox "Data Berhasil di Tampilkan", vbInformation, "Informasi"

Else

    MsgBox "Data yang anda cari tidak ada", vbInformation, "Ada Informasi!!!!!"

End If

End Sub

Private Sub Command5_Click()

Text1 = ""

Text2 = ""

Text3 = ""

End Sub

Private Sub Form_Activate()

Set kon = New ADODB.Connection

Set db1 = New ADODB.Recordset

kon.Open "provider=Microsoft.jet.oledb.4.0;data source=" & App.Path & "\latihan1.mdb"

End Sub

setah itu jalankan program dengan klin RUN + START atau tekan tombol F5 pada keyboard.
jika sesuai rencana maka tampilanya seperti ini :

     gimana ada yang error kah??  kalo sampean menyimak baik-baik dan mengikuti dari awal pasti ga akan ada yang error deh saya jamin, tapi kalo masih erorr juga coba cari solusinya dulu sampe botak baru bertanya biar bisa bertambah ilmu kalian (cie motivator) :D