Import Data From Excell vb6

Import Data From Excell vb6

Aassalamualaikum wr.wb

Kadang-kadang kita disibukkan dengan pembuatan master data atau data awal yang kita pakai pada saat memulai menggunakan program project yang kita buat.

Berikut sedikit akan saya ulas mengenai Import data dari Excell data, yang akan ditampilkan langsung ke listview supaya error handlernya bisa kita deteksi lebih awal sebelum kita simpan dalam database.
Untuk Source codenya sangat sederhana bisa langsung copy paste saja...OK...Lanjut....
Mau Download Atau kreasikan pemikiran Sobat....heheheeee...

Nih Kalo mengkreasikan Apresiasinya...
Langkah pertama : Buat Modul

Module Dengan Parameter public sbb : Copy Paste

Public Conn As New ADODB.Connection
Public rsIdentitas As New ADODB.Recordset

Langkah kedua : Buat Form

Form Dengan Source Code sbb : Copy Paste

Sub OpenXls()
Public Conn As New ADODB.Connection
Public rsIdentitas As New ADODB.Recordset
Dim strAlamat As String
Dim strKonek As String
Dim Lis As ListItem
Dim no As String

'Buat Error apabila ada kesalahan
On Error GoTo 1

'Buat koneksi ke .xls (Excel)
strAlamat = D:\newdn\anyardn\ImportDataa.xls 'Lokasi database Excel
strKonek = "provider=microsoft.jet.oledb.4.0;"
strKonek = strKonek & "data source=" & strAlamat & ";"
strKonek = strKonek & "extended properties= 'Excel 8.0;HDR=yes;imex=0';"
Conn.CursorLocation = adUseClient
Conn.Open strKonek

'Buka File Excel Sesuai Sesuai nama Sheetnya serta ditampilkan langsung ke listview
Dim strKueri As String
Set rsIdentitas = Nothing
strKueri = "select * from [ending$]" 'nama sheet
rsIdentitas.Open strKueri, Conn, adOpenDynamic, adLockOptimistic
If rsIdentitas.RecordCount > 0 Then
rsIdentitas.MoveFirst
ListView1.ListItems.Clear
no = 0
While Not rsIdentitas.EOF
Set Lis = ListView1.ListItems.Add(, , no + 1)
    Lis.SubItems(1) = rsIdentitas.Fields("item")
    Lis.SubItems(2) = rsIdentitas.Fields("name")
    Lis.SubItems(3) = rsIdentitas.Fields("quantity")
    no = no + 1
rsIdentitas.MoveNext
Wend
    Tb = no
    'Lis.Selected
    Lis.EnsureVisible 'posisi data paling bawah
End If
Conn.Close
Exit Sub
1: MsgBox Err.Description, vbExclamation, Err.Number
Exit Sub
End Sub

Mau Yang sudah jadi...
Download aja Di Here...

Pasword .zip : priyantoagoes.blogspot.com

Wassalamualaikum wr.wb

Link Download Contoh project, [.dll],[.ocx]