Breaking News

Sabtu, 26 Oktober 2013

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


contoh program database sederhana visual basic 6
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
database sederhana visual basic 6.0

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

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

Tidak ada komentar:

Posting Komentar

Designed By