Database Sederhana Mysql, Acces, Excel Dan Sqlserver Dengan Visual Basic 6.0

Dalam Belajar Pemrograman Visual Basic 6.0 tidak lepas dari masalah pengolahan data yang tentunya menggunakan salah satu database, disini saya sertakan contoh program koneksi database sederhana untuk mysql, Acces, Excel, SqlServer dan Oracle
( haha.. diborong semua database :)) , maksudnya sekalian saja gitu sob.. biar ndak usah cari referensinya ditempat lain :D ). 

Penggunaan database disini diterapkan pada saat login form, dimana setelah membuka database kita harus mengakses tabel yang menyimpan nama user dan passwordnya.

Untuk langkah-langkahnya kira-kira sebagai berikut ( kok kira-kira sih... :-$ ) :

1. Tambahkan References Microsoft ActiveX Data Object 2.1 Library

Versi minimal biasanya ‘Microsoft ActiveX Data Object 2.1 Library

2. Koneksi Database MySQL dengan vb 6.0

Pada koneksi ke database ke mysql yang perlu diinstall adalah database dan Connector / ODBC MySQL

Link Download MySql

Database : http://dev.mysql.com/downloads/windows/installer/
Connector / ODBC : http://dev.mysql.com/downloads/connector/odbc/

ConnectionString MySql :

connstr = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=contohdb"

3. Koneksi Database MS Access dengan vb 6.0

ConnectionString MS Access :

connstr = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\contohdb.mdb"

4. Koneksi Database Excel dengan vb 6.0

Penggunaan Excel sebagai database dengan ConnectionString :

connstr = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\contohdb.xls;" & "Extended Properties=Excel 8.0;"

5. Koneksi Database Sql Server dengan vb 6.0

ConnectionString pada MS Sql Server :

connstr = "Provider=SQLOLEDB.1;Password=aa;Persist Security Info=True;User ID=sa;Initial Catalog=contohdb;Data Source=localhost"

6. Koneksi Database Oracle dengan vb 6.0

Jika database oracle tidak diinstall di pc sobat, maka diperlukan minimal oracle client harus diinstall sebagai driver perantara antara visual basic dan database oracle itu sendiri.

Oracle Client : http://www.oracle.com/technetwork/indexes/downloads/index.html

ConnectionString untuk database Oracle :

connstr = "Provider=MSDAORA.1;Password=aa;User ID=sys;Data Source=contohdb;Persist Security Info=False"

Perbedaan utama koneksi database pada visual basic 6.0 diatas adalah cara mendefinifikan driver pada ConnectionString nya, seperti terlihat pada source code listing program visual basic 6.0 berikut :

Nama File: Form1.frm

Private Sub Command1_Click()
On Error GoTo SALAH
Dim ConnDB As New ADODB.Connection
Dim TBUser As New ADODB.Recordset
    
    If Combo1.ListIndex = 0 Then ' Koneksi Database Access
        connstr = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\contohdb.mdb"
    ElseIf Combo1.ListIndex = 1 Then ' Koneksi Database Excel
        connstr = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\contohdb.xls;" & "Extended Properties=Excel 8.0;"
    ElseIf Combo1.ListIndex = 2 Then ' Koneksi Database Sql Server
        connstr = "Provider=SQLOLEDB.1;Password=aa;Persist Security Info=True;User ID=sa;Initial Catalog=contohdb;Data Source=localhost"
    ElseIf Combo1.ListIndex = 3 Then ' Koneksi Database MySql
        connstr = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=contohdb"
    ElseIf Combo1.ListIndex = 4 Then ' Koneksi Database Oracle
        connstr = "Provider=MSDAORA.1;Password=aa;User ID=sys;Data Source=contohdb;Persist Security Info=False"
    End If
    
    ConnDB.Open connstr
    TBUser.Open "Select * from tbuser where NamaUser ='" & Text1.Text & "'", ConnDB
    
    Do Until TBUser.EOF
        i = i + 1: TBUser.MoveNext
    Loop
    
    If i > 0 Then
        TBUser.MoveFirst
        If TBUser.Fields("PasswordUser") = Text2.Text Then
            MsgBox "Login Berhasil !"
        Else: MsgBox "maaf password tidak sesuai.. !"
        End If
    Else
        MsgBox "Nama User tidak ditemukan.. !"
    End If
    
    Unload Me
Exit Sub
SALAH:
    MsgBox "Tidak dapat konek ke Database..!"
    Unload Me
End Sub

Private Sub Command2_Click()
    Unload Me
End Sub

Private Sub Form_Load()
    Combo1.ListIndex = 0
End Sub

Download Source Code

Sedot aja gan.. :)  =>  Database Sederhana Dengan Visual Basic 6.0

Demikian contoh program database sederhana dengan visual basic 6.0 mudah-mudah cukup bermanfaat untuk referensi belajar visual basic.