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 :
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
