Cara Menghubungkan VB6 dengan Berbagai Database

Visual Basic Clasic versi 6 atau biasa disebut VB6 adalah sebuah Integrated Development Environtment (IDE) yang banyak digunakan untuk membuat aplikasi berbasis database dengan menggunakan bahasa pemrograman basic.

Visual Basic ini merupakan salah satu pengembang perangkat lunak keluaran microsoft yang paling banyak digunakan oleh program developer maupun guru yang mengajarkan pemrograman kepada muridnya untuk membuat suatu program basis data yang powerfull dan terstruktur.

Untuk membuat suatu aplikasi basis data, diperlukan suatu koneksi agar antara visual basic dengan basis data dapat terhubung satu sama lain. Sebelum membuat aplikasi basis data, kita harus pandai – pandai memilih perangkat lunak basis data apa yang akan digunakan, hal ini perlu mengingat kebutuhan sistem pada suatu lokasi/instansi/pemesan program berbeda – beda. Perangkat lunak basis data sendiri terdiri dari berbagai macam dan jenis yang banyak serta berbeda – beda, antara lain:

Database Server

1. SQL Server
2. IBM DB2
3. IBM Universe
4. Sysbase Adaptive
5. MySQL Informix
6. Oracle
7. Postgress SQL
8. AS/400
9. Firebird
10. Paradox
11. Mimer SQL
12. Pervasive
13. Cache
14. VistaDB
15. Netezza DBMS
16. Effi Proz
17. ZIM
18. Interbase
19. Ingres
20. LightBase
21. SQLBase
22. Teradata
23. DBMaker
24. Valentina
25. SQLite
26. Progress

Database Tipe Data File

1. Excel
2. Access
3. Foxpro
4. FileMaker
5. TextFile
6. OpenOffice Spreadsheet

Yang lainya

1. SQL Azure
2. Windows Azure Storage
3. Integration Services
4. OLAP, Analysis Services
5. SharePoint
6. MS Project
7. Active Directory
8. Exchange
9. Intuit QuickBase
10. Composite Information Server
11. Lotus Notes
12. DSN
13. UDL
14. Index Server
15. HTML Tabl
16. ComputerEase

Pada contoh kali ini, SmileCodes akan memberikan contoh langkah – demi langkah untuk menghubungkan koneksi basis data dengan visual basic pada perangkat lunak basis data MySQL, MS. Access (contoh yang dipakai 2010), MS. Excel (contoh yang dipakai 2010) dan File Text.

Pertama, kita persiapkan terlebih dahulu basis datanya, sebagai berikut:

1. MySQL
   1. Buatlah sebuah Database dengan nama “BiodataSiswa”

      create database BiodataSiswa;

   2. Buatlah sebuah table dengan nama “siswa”

      create table siswa(
      idSiswa int auto_increment primary key,
      nis varchar(15) not null,
      nama varchar(30) not null,
      alamat varchar(255) not null,
      kelas varchar(15) not null,
      jurusan varchar(25));

   3. Isilah tabel siswa tersebut dengan 3 buah data sebagai berikut:

      insert into siswa (nis, nama, alamat, kelas, jurusan) values
      (“123”, “Kusmadi”, “Teluk Pelabuhan Ratu”, “XII”, “RPL”),
      (“124”, “Solikha”, “Pelabuhan Ratu Street”, “XII”, “RPL”),
      (“125”, “Ismah”, “Pelabuhan Ratu Strase”, “X”, “Animasi”);

2. MS. Access
   1. Jalankan MS. Office Access (misal: 2010)
   2. Buatlah sebuah database dengan nama “Komputer” dan simpanlah di DESKTOP komputer pada sebuah folder yang bernama “VB-DB”
   3. Buatlah sebuah tabel dengan nama “spesifikasi” (id (autonumber), nama (text), keterangan(text))
   4. Isilah tabel “spesifikasi” dengan 3 data komputer kemudian simpan
3. MS. Excel
   1. Jalankan MS. Office Excel (misal: 2010)
   2. Pada Sheet1, ubahlah Sheet1 tersebut dengan nama Makanan dengan cara klik kanan Sheet1–>Rename–>Tulis Makanan—>Enter
      
      
      
   3. buatlah 3 buah header yang masing – masing header bertuliskan IDM, Nama, Jenis Ingat: Header tidak boleh ada SPASI
   4. Isilah file excel tersebut dengan data berikut

      IDM NAMA JENIS
      1 Kucur Jajanan Pasar
      2 Lemper Jajanan Pasar
      3 Brownis Kue
      4 Tar  Kue Ulang Tahun
       

   5. Simpanlah kedalam DESKTOP pada folder VB-DB dengan nama Jenis_Makanan
4. File Text
   Buatlah sebuah file berekstensi *.txt dengan data

Menghubungkan dengan VB6:

1. Jalankan VB6
2. Pilih Standar EXE
3. Pada menu, pilih project –> Preference
   
4. Pilih Microsoft ActiveX Data Object 2.0 Library, klik OK
   
5. Lihat sisi kanan IDE VB6, Klik kanan pada Project1 –> Add –> Module, Klik OK
   
6. Tulis perintah sebagai berikut:
   

   Option Explicit
   
   Public cnKoneksi As ADODB.Connection
   Public rsData As ADODB.Recordset
   Public sql As String
   
   Public Sub KoneksiDB_MySQL(server As String, db As String, user As String, pass As String)
       On Error GoTo ErrHandler
       Set cnKoneksi = New ADODB.Connection
       cnKoneksi.CursorLocation = adUseClient
       cnKoneksi.ConnectionString = "Driver={MySQL ODBC 5.1 Driver};Server=" & server & ";Database=" & db & ";User=" & user & ";Password=" & pass & ";Option=3;"
       cnKoneksi.Open
       
       Exit Sub
   ErrHandler:
       MsgBox Err.Description, vbCritical, Err.Source
   End Sub
   
   Public Sub KoneksiDB_MSAccess(db As String)
       On Error GoTo ErrHandler
       Set cnKoneksi = New ADODB.Connection
       cnKoneksi.CursorLocation = adUseClient
       cnKoneksi.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "/" & db & ";User Id=admin;Password=;"
       cnKoneksi.Open
       
       Exit Sub
   ErrHandler:
       MsgBox Err.Description, vbCritical, Err.Source
   End Sub
   
   Public Sub KoneksiDB_MSExcel(file As String)
       On Error GoTo ErrHandler
       Set cnKoneksi = New ADODB.Connection
       cnKoneksi.CursorLocation = adUseClient
       cnKoneksi.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "/" & file & ";Extended Properties='Excel 8.0;HDR=Yes;IMEX=1';"
       cnKoneksi.Open
       
       Exit Sub
   ErrHandler:
       MsgBox Err.Description, vbCritical, Err.Source
   End Sub
   
   Public Sub KoneksiDB_FileText(folder As String)
       On Error GoTo ErrHandler
       Set cnKoneksi = New ADODB.Connection
       cnKoneksi.CursorLocation = adUseClient
       cnKoneksi.ConnectionString = "Driver={Microsoft Text Driver (*.txt; *.csv)};Dbq=" & koneksiString & ";Extensions=asc,csv,tab,txt;"
       cnKoneksi.Open
       
       Exit Sub
   ErrHandler:
       MsgBox Err.Description, vbCritical, Err.Source
   End Sub

7. Buka Form1 dan tambahkan komponen DataGrid dengan cara, tekan Ctrl + T (pada keyboard)
   
8. Tambahkan 4 komponen Button dengan nama Command1(Connect and Load Data MySQL), Command2(Connect and Load Data MS. Access), Command3(Connect and Load Data MS.Excel) dan Command4(Connect and Load Data Text File)
9. Pada Form1, klik tombol Connect and Load Data (sesuai Databasenya)
   
10. Tekan F7 pada keyboard dan ketikkan kode berikut
    

    Option Explicit
    
    
    Public Sub loadData(ByVal sql As String)
        'On Error Resume Next
        Set rsData = Nothing
        Set rsData = New ADODB.Recordset
        rsData.Open sql, cnKoneksi, adOpenDynamic, adLockOptimistic
        
        Set DataGrid1.DataSource = rsData.DataSource
    End Sub

11. Masuk ke Form desain, klik 2 kali Command1 dan ketikkan kode berikut
    

    Private Sub Command1_Click()
        KoneksiDB_MySQL "localhost", "BiodataSiswa", "root", ""
        loadData "select * from siswa"
    End Sub

12. Masuk ke Form desain, klik 2 kali Command2 dan ketikkan kode berikut
    

    Private Sub Command2_Click() KoneksiDB_MSAccess “komputer.mdb” loadData “select * from spesifikasi” End Sub

13. Masuk ke Form desain, klik 2 kali Command3 dan ketikkan kode berikut
    

    Private Sub Command3_Click() KoneksiDB_MSExcel “JenisMakanan.xls” loadData “select * from [Makanan$]” End Sub

14. Masuk ke Form desain, klik 2 kali Command4 dan ketikkan kode berikut
    

    Private Sub Command4_Click() KoneksiDB_FileText “JenisMakanan.txt” loadData &

15. Jalankan aplikasinya dan Selamat Mencoba

 
Catatan: Khusus yang menggunakan database MySQL, pastikan komputer telah terinstal MySQL ODBC Connection dengan baik. Download filenya di sini
Source Codenya download di sini

Share this:

• Tekan Ini
• Twitter
• Facebook1
•