Sunday, October 7, 2012

Koneksi Database pada Microsoft Visual Basic 6

Dalam Sistem Informasi, kita mengenal Database. Dalam implementasinya dalam bentuk program, Database haruslah terkoneksi dengan aplikasi yang kita buat. Database dan aplikasi yang digunakan beragam.
Misalnya yang banyak digunakan:
Sistem Informasi berbasis Web (PHP + MYSQL)
Berbasis Desktop (Delphi + SQL Server , Visual Basic + Ms. Access, dll).
Pada tutorial kali ini, saya akan membahas tentang Visual Basic yang dikoneksi dengan Ms. Access.
Untuk dasar, kita buat Sistem informasi kecil-kecilan saja.

1.Untuk langkah pertama, desain sebuah form sederhana seperti pada tampilan di bawah ini.




Dimana ketentuan komponen-komponennya pada Properties sebagai berikut:
Label1   : name = t_nama
                 : caption = NAMA

Label2  : name = t_jamkerja
                 : caption = JAM KERJA

Label3  : name = t_gaji
                 : caption = GAJI /JAM

Label4      : name = t_totgaji
                 : caption = TOTAL GAJI
                 : enable = false

Command1 : name = c_simpan
                   : caption = SIMPAN

Command2 : name = c_hapus
                   : caption = HAPUS 

2.Setelah selesai mendesainnya, kita perlu penambahan komponen untuk menyimpan data dan tabel tampil database kita. Caranya, klik Menu Project => Components atau bisa dengan menekan Ctrl + T. Kemudian centang Microsoft ADO Data Control 6.0 (OLEDB) dan Microsoft DataGrid Control 6.0 (OLEDB), seperti yang terlihat di bawah ini.

3.Klik OK, Kemudian pada Toolbar komponen, terdapat komponen baru, yang kita gunakan adalah DataGrid dan Adodc

4.Letakkan komponen tersebut di form Anda. Seperti gambar di bawah ini.

5.Setelah kita selesai membuat GUI-nya, langkah berikutnya membuat Database. Disini saya menggunakan Ms. Access.
Buka Ms. Access dan buat Database baru.
Beri nama Databasenya , dengan nama gaji.

6.Buat Tabel baru pada gaji dengan meng-klick Create table in Design view. Seperti di bawah ini.

7.Isikan Field Table dan tipe datanya sebagai berikut, dimana NAMA sebagai Primmary Key-nya. Kemudian simpan dengan nama T_Gaji.

8.Kita kembali ke lembar kerja kita di Visual Basic, Untuk mengkoneksi database yang kita buat tadi. Dalam mengkoneksinya, kita memerlukan Data Environment. Untuk menambahkannya, klik Menu Project => Add Data Environment

9.Setelah di klik, maka akan muncul jendela DataEnvironment1. Pada Connection, Klik Kanan pilih Properties.

10.Maka akan muncul jendela baru Data Link Properties. Pada Tab Provider, pilih Microsoft Jet 4.0 OLE DB Provider. Kemudian pilih Next >>

11.Setelah Next, pada Tab Connection, perhatikan Select or enter a database name : . Kita diminta untuk memasukkan database yang telah kita buat tadi, yakni gaji.

12.Untuk mengetes koneksinya, Klik Test Connection. Apabila sudah benar, maka akan muncul pesan alert berikut.

13.Klik OK, kemudian pada form, Ubah Properties komponen Adodc dan DataGrid tadi pada jendela Properties seperti berikut.
Adodc1 ->Visible = false
DataGrid1 ->DataSourse = DataEnvironment1

14.Tahap selanjutnya adalah untuk penulisan kode scriptnya. Pada general, kita tuliskan script berikut.

Untuk script Tombol SIMPAN, ketikkan script berikut.

Pada Tombol HAPUS, ketikkan script brikut.


Dan Script terakhir untuk form-nya ketika di-load (klik 2x pada form GUI).
Private Sub Form_Load()
Set gajiku = Nothing
        letak = App.Path & "\gaji.mdb"


        With gajiku
            gajiku.ActiveConnection = "Provider=microsoft.jet.OLEDB.4.0;Data source=" & letak & ";Persist security info=false"
            gajiku.CursorLocation = adUseClient
            gajiku.LockType = adLockOptimistic
            gajiku.Source = "select*from t_gaji"
            gajiku.Open
          
            Set DataGrid1.DataSource = gajiku
            DataGrid1.Refresh
        End With
End Sub

1 Komentar "Koneksi Database pada Microsoft Visual Basic 6"

Anonymous June 19, 2013 at 8:27 AM WIB Permalink

bang...

waktu saya run...

error pada bagian

gajiku.ActiveConnection = "Provider=microsoft.jet.OLEDB.4.0;Data source=" & letak & ";Persist security info=false"

kenapa ???

kirim ke email ane di laruku_rizboy@yahoo.co.id