Koneksi Database Menggunakan Visual Basic 6.0

Pada kali ini saya akan membahas tentang bagaimana cara mengoneksikan MS Access  pada visual basic 6.0 ada beberapa cara untuk koneksi database pada vb diantaranya dengan menggunakan Tool Data atau Adodc yang berfungsi sebagai jembatan penghubung koneksi database dengan vb. selain menggunakaan tool tersebut, koneks juga bisa dilakukan lewat modul, atau perintah koneksi dari modul tersbut tanpa menggunakan seperti data dan Adodc.

Untuk membuat suatu aplikasi basis data, diperlukan suatu koneksi agar antara visual basic  dengan  basis  data  dapat  terhubung  satu  sama  lain.  Sebelum membuat  aplikasi  basis data,  kita  harus  pandai  –  pandai  memilih  perangkat  lunak  basis  data  apa  yang  akan digunakan,  hal  ini  perlu  mengingat  kebutuhan  sistem  pada  suatu  lokasi/instansi/pemesan program berbeda – beda.

bentuk program yang akan kita buat kali ini ini, seperti gambar dibawah ini :

images : Halaman login dan lihat isi seluruh data

images : halaman pengisian data

 persiapan untuk memulai pembuatan aplikasi ini, kita membutuhkan

• Sebuah database, disini database-nya saya beri nama  DataBase.mdb  untuk nama database bebas tetapi perlu diingat namanya karena penting untuk menandainya. disini database nya dibuat dari Microsoft Acces.

Buatlah database menggunakan Microsoft Acces, isi lah database kalian seperti gambar ini

images : isi dari database

 Jika selesai membuatnya seperti tampilan diatas, maka save dengan nama DataBase.mdb. jika anda ingin melihat database program ini silahkan download disini DataBase.mdb .

1. Pembuatan Program Menggunakan Visual Basic 6.0Saya akan membuat form 1 dengan tampilan seperti ini

Images : form 1 (yang akan kita buat)

1. buka lah Microsoft Visual Basic kalian dan buat form 1, di form ini kita membuat :
textbox = Username kita beri name user
isikan kode program ini di dalam textbox username dan password

Private Sub password_Gotfocus()
   password.Text = ""

End Sub

Images : textbox untuk login username dan password

textbox password : propertis passwordchar diisi * (gunanya ketika program dijalankan, ketika password diisi maka password akan disembunyikan digantikan dengan karakter *)

3. Membuat tombol  Login
CommandButton = Login name Command1

tombol login

isilah kode program ini di dalam tombol login

Private Sub Command1_Click()
If conn.State = 1 Then conn.Close
    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=DataBase.mdb;Persist Security Info=False"
    

If RS.State = 1 Then RS.Close
    RS.Open "select * from admin where username = '" & user.Text & "' And password = '" & password.Text & "'", conn, 3, 3
    If Not RS.EOF Then 'jika user dan password benar maka akan menuju ke form 2 dan form 1 akan di sembunyikan'
        MsgBox "selamat Datang di Praktikum Provis"
        Form2.Show
        Form1.Hide
    Else 'jika user dan password yang diinputkan salah maka akan keluar peringatan'
        MsgBox "Data salah", vbCritical, " L O G I N"
    End If
End Sub

4. Membuat tombol keluar

menggunakan CommandButton = X name Command2

kode programnya :
Private Sub Command2_Click()
    pesan = MsgBox("Apakah Anda Yakin Ingin Keluar dari Aplikasi Ini ?", vbYesNo + vbInformation, "Keluar Program")
If pesan = vbYes Then
End
    End If
End Sub

5.Untuk  bisa  konek  ke  database  Access

Tambahkan  elemen  yang  diperlukan  dalam  toolbox. Caranyaklik pada bagian menu :
Project – Component/ klik kanan pada toolbox - Component dan contreng Microsoft ADO Data Control 6.0 (OLEDB) dan Microsoft DataGrid Control 6.0 (CLEDB)

Setelah klik Ok, maka pada toolbox akan ditambahkan elemen-elemen tambahan yang bisa konek ke database Access, Elemen Adodc digunakan untuk mengatur koneksi Access Pada toolbox gambar dari elemen Tempatkan elemen Adodc di form,

jangan lupa untuk menyyembunyikan tampilan Adodc1 pada saat program dijalankan, menyembunyikannnya dengan cara klik Adodc1 perhatikan properties Adodc1 pilih visible-nya = false

Klik pada objek ADODC1, kemudian klik kanan-ADODC Properties Lalu muncul gambar seperti dibawah ini, Lanjutkan Pilih pilihan terakhir User Connection String  Kemudian Klik Build. Dan muncul tampilan seperti gambar dibawah ini.
Pilih Microsoft Jet 4.0 OLE DB Provider, kemudian klik tombol Next

pilih no 1 select or enter a database name lanjutkan dengan memilih database yang telah kita bikin sebelumnya DataBase.mdb

jika  selesai, klik pada tombol Test Connection untuk memastikan apakah sudah terkonek dengan baik apa belum, jika muncul koneksi test conection connected maka selesai dan pilih ok.

untuk form1 koneksi sudah kita lakukan dan untuk tambahan tampilannya sebisa kalian dan kreatifitas kalian masing-masing mau bikinnya gimana.

6. Selanjutnya kita akan membuat koneksi di form2

7. untuk menambah kan form lagi dengan cara klik kanan di project dan pilih add lanjutkan pilih form dan pilih open.

8. Selanjutnya kita akan menghubungkan kembali program yang kita buat ini ke databases yang kita buat tadi, caranya sama dengan yang kita lakukan pada saat meng-koneksikan database DataBase.mdb (kurang jelas memasukkannya baca lagi langkah ke 5)

jangan lupa untuk menyyembunyikan tampilan Adodc1 pada saat program dijalankan, menyembunyikannnya dengan cara klik Adodc1 perhatikan properties Adodc1 pilih visible-nya = false

9. pada tombol isi data

tombol menggunakan CommandButton = Isi Data name Command2
isikan kode program berikut ini

Private Sub Command2_Click()
     Form2.Hide
     Form1.Hide
     Form3.Show
 End Sub

10. Tombol Logout
tombol menggunakan CommandButton = Logout name Command1
Isi kode programnya di tombol logout

Private Sub Command1_Click()


pesan = MsgBox("Apakah Anda yakin akan Logout ?", vbYesNo + vbInformation, "Logout Aplikasi")

If pesan = vbYes Then

Form2.Hide 'ketika tombol logout diklik maka form2 akan di sembunyikan dan form1 akan muncul kembali'

Form1.Show

Form3.Hide
    End If

End Sub

11. Setelah itu tempatkan objek DataGrid, kemudian tempatkan pada form
seperti gambar dibwah ini
DataGrid = name DataGrid1

selanjtunya yang akan kita lakukan adalah mengisi kode program didalam DataGrid yang baru saja kita buat.

Private Sub DataGrid1_Click()
Call koneksi 'memanggil koneksi yang ada di module1'
    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=DataBase.mdb;Persist Security Info=False"
    Adodc1.RecordSource = "admin"
    Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh

End Sub

12. hal-hal yang penting dari form2 sudah kita kerjakan, dan sebagai pemanisnya tampilannya anda rapikan sendiri dengan kreatifitas kalian.

13. disini kita menambahkan form 3, (jika lupa cara menambahkannya baca lagi langkah ke 7)

 di-form 3 ini kita menambahkan TextBox
name txtId
name txtNama
name txtUser
name txtPassword

pada tiap TextBox isilah kode programnya berikut ini :

Private Sub txtId_Gotfocus()
  txtId.Text = ""
End Sub


Private Sub txtNama_Gotfocus()
  txtNama.Text = ""
End Sub


Private Sub txtPassword_Gotfocus()
   txtPassword.Text = ""
End Sub

Private Sub txtUser_Gotfocus()
   txtUser.Text = ""
End Sub

14. Membuat Tombol Logout (untuk membuat tombol sama seperti dilangkah no 10, hanya saja beda isi kode programnya)
 isikan kode program berikut ini di tombol logout
Private Sub Command4_Click()
'pada saat tombol diklik form2 dan form 3 akan disembunyikan dan kembali lagi ke form 1'
      Form2.Hide
      Form1.Show
      Form3.Hide
End Sub

15.membuat tombol Lihat data
buatlah tombol langkahnya sama seperti langkah 10 dan ganti caption-nya menjadi Lihat Data
dan isikan kode program ini

Private Sub Command3_Click()
  Form2.Show
  Form3.Hide
End Sub

16. Membuat tombol Submit
buatlah tombol langkahnya sama seperti langkah 10 dan ganti caption-nya menjadi Submit
dan isikan kode program ini

Private Sub Command1_Click()
Dim SQLsimpan As String
If (txtId.Text = "ID Admin" Or txtNama.Text = "Nama Admin" Or txtUser = "Username" Or txtPassword = "Password") Then
MsgBox "Isi Data Dengan Lengkap"
txtId.SetFocus
Else

If IsNumeric(txtNama.Text) Then
MsgBox "Nama Harus Huruf"
txtNama.Text = ""
txtNama.SetFocus
Exit Sub
End If

Call koneksi
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=DataBase.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from admin"
Adodc1.Refresh
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("id_admin") = txtId.Text
Adodc1.Recordset.Fields("nama") = txtNama.Text
Adodc1.Recordset.Fields("username") = txtUser.Text
Adodc1.Recordset.Fields("password") = txtPassword.Text
Adodc1.Recordset.Update
End If
End Sub

17. Untuk Form 3 telah selai kita buat, hanya tinggal merapikannya dan mempercantik tampilannya saja

18. Selanjutnya kita kana menambahkan Module1 karena dengan adanya module ini kita dapat terhubung dengan database yang telah ita bikin tadi, bagaimana cara menambahkannya?. caranya sama dengan langkah ke 7 tetapi hanya saja jika dilangkah no 7 kita menambahkan form tetapi ini kita menambahkan module nya saja tanpa form. jadi hasilnya seperti ini.

19. sekarang posisi kita sudah berada di Module1. di module1 ini kita masukkan kode program seperti dibawah ini

Public conn As New ADODB.Connection
Public RS As New ADODB.Recordset
Public RSdata As New ADODB.Recordset

Sub koneksi()
Set konek = New ADODB.Connection
Set RSdata = New ADODB.Recordset

konek.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=DataBase.mdb;Persist Security Info=False"
End Sub

20. Akhirnya selesai sudah pembuatan aplikasi ini, hanya saja merapikan tampilannya saja

Download
Aplikasi dan Project VB 54Kb 
atau lihat di ftp