Belajar Visual Basic 6.0

haiii kawan sobat,pada hari yg ceria ini aku akan tentang visual basic 6.0
perlu anda ketauhi bahwa visual basic adalah bahasa pemograman ang digunakan untuk membuat aplikasi Windows yang berbasis grafis (GUI-Grapical User Interface),daripada basa basi kita langsung terjun
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

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 sebagai berikut

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 MySQLLink 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"

bedaan 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

 

 

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