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

      Sheet1
    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
    VB2
  4. Pilih Microsoft ActiveX Data Object 2.0 Library, klik OK
    VB3
  5. Lihat sisi kanan IDE VB6, Klik kanan pada Project1 –> Add –> Module, Klik OK
    VB4
  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)
    VB5
  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)
    VB6
  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

VB10 VB7 VB8 VB9 

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

Source Codenya download di sini