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

By:Anymous On 1:45 AM - No comments

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 ). 

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.