Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 'Buat koneksi ke .xls (Excel)
- strAlamat = D:\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 [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("Nama_Barang")
- Lis.SubItems(2) = rsIdentitas.Fields("Harga_jual")
- no = no + 1
- rsIdentitas.MoveNext
- Wend
- Tb = no
- 'Lis.Selected
- Lis.EnsureVisible 'posisi data paling bawah
- End If
- Conn.Close
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement