Minggu, November 20, 2011

Cara Membuka File Excel Menggunakan ADO pada Microsoft Visual Basic 6.0

Meskipun Excel tidak ditujukan menjadi database dalam pemrograman Visual Basic 6.0 tetapi kita bisa membuka file Excel tersebut menggunakan Microsoft Visual Basic 6.0 menggunakan ADO.

Kenapa Menggunakan ADO?
Koneksi ke file Excel lebih baik menggunakan ADO karena meskipun di komputer atau PC tersebut tidak terinstall Microsoft Office, kita masih bisa menggunakan ADO untuk membuka file Excel tersebut.

Bagaimana Cara Membuka File Excel Menggunakan ADO?
Caranya cukup mudah, dan mirip dengan cara membuka file database lainnya semisal Access (mdb). Perbedaannya cuma ada beberapa tambahan pada Connection String-nya.

Misalkan kita punya file Excel dengan nama"Dataku.xls" yang berisi Sheet1, Sheet2, Sheet3.
Pastikan di MS VB6-nya sudah kita aktifkan Referensi Micsosoft ActiveX Data Object 2.0 Library.
Pada awal script kita definiskan dahulu variabelnya seperti berikut:
'==================
Option Explicit

'variabel untuk koneksi ke file excel
Public Conn As New ADODB.Connection


'variabel untuk koneksi ke tabel/sheet
Public rsIdentitas As New ADODB.Recordset
'==================

Kemudian kita buat Sub baru berisi prosedur untuk mengkoneksikan file Excel seperti contoh berikut:

Sub BukaExcel()
    Dim strAlamat As String
    Dim strKonek As String
   
    strAlamat = App.Path & "\dataku.xls"
    strKonek = "Provider=Microsoft.jet.OLEDB.4.0;"
    strKonek = strKonek & "data source=" & strAlamat & ";"
    strKonek = strKonek & "Extended Properties='Excel 8.0;HDR=Yes;IMEX=0';"

'Lakukan koneksi ke file database/excel
    Conn.CursorLocation = adUseClient
    Conn.Open strKonek
   
'buka tabel/sheet
    Dim strKueri As String
    strKueri = "Select * from [Sheet1$]"
    rsIdentitas.Open strKueri, Conn, adOpenKeyset, adLockOptimistic
End Sub


Pada saat form Load, kita panggil sub yang kita buat tersebut seperti contoh berikut:

Private Sub Form_Load()
    BukaExcel
End Sub

Selanjutnya, bisa kita olah data tersebut seperti pengolahan database pada umumnya. Tapi ingat, Excel bukan untuk database sehingga ada keterbatasan pada pengolahan file Excel misalnya: tidak bisa dilakukan perintah recordset.delete (menghapus record) sehingga harus disiasati menggunakan cara lain.
Posting Komentar