Terusan Export Excell dari database dengan VB6

Setelah beberapa waktu yang lalu aku posting tentang export excell dari database kita dengan VB6 n adanya kesalahan dalam penulisan kode, setelah aku analisis dan pemberitahuan teman maka aku tambahi ni source codenya.
pada waktu kemarin itu kurang tranposedim(array)

Function TransposeDim(v As Variant) As Variant
Dim X As Long, Y As Long, Xupper As Long, Yupper As Long
Dim tempArray As Variant

Xupper = UBound(v, 2)
Yupper = UBound(v, 1)

ReDim tempArray(Xupper, Yupper)
For X = 0 To Xupper
For Y = 0 To Yupper
tempArray(X, Y) = v(Y, X)
Next Y
Next X

TransposeDim = tempArray

End Function

terima kasih atas kunjungan, tolong kasih komentarnya donk.
semoga bermanfaat aja

Read more

Grid dengan tampilan XP - Vista dgn VB

Kalau yang berkecimpung di dunia pemrogram Visual basic bosan dengan data grid yang tampilannya standar bisa beralih menggunakan LynxGrid dengan tampilan dari XP - Vista. grid ini merupakan gabungan antara listview dengan grid sehingga bisa menampilkan data kita. pada versi terakhir telah ada untuk mencetak data kita ke clipboard maupun ke file. Pokoknya sip deh....

Ini tampilan form yang telah aku buat dengan gird tersebut:



gambar yang pertama merupakan gridnya dan gambar kedua merupakan hasil preview data yang telah kita masukkan ke grid sehingga bisa di cetak dengan printer. kemudian bisa juga di export ke excell tapi dengan sedikit modifikasi.

berikut aku berikan author(pembuat) lynxGrid

'// Title: LynxGrid version 2
'// Author: Morgan Haueisen
'// Modified: 7/12/07
'// Version: 2.15.4a (11 May 2009)(see HistoryLog file for details)
'// MOST CHANGES MADE BY MORGAN HAUEISEN ARE MARKED AS '// MLH
'// Downloaded from: klik disini

'*************************************************************************************************
' Title: Original LynxGrid
' Author: Richard Mewett
' Created: 01/08/05
' Version: 1.89 (10 May 2007)
' Copyright © 2005 Richard Mewett. All rights reserved.
' Provides a combination of MSFlexGrid and ListView (Report Style) functionality.
' Downloaded from: Klik disini

Read more

Export database kita ke Excell

Aku posting judul ini karena ada seseorang yang bertanya gimana cara mengeksport database kita ke MS. Exc*ll dengan sekali klik sehingga bisa di edit lagi dan di cetak menurut selera kita. Sebenarnya udah banyak yang memberikan tutorial sekaligus source codenya. saya di sini hanya mengingatkan sekaligus berbagai buat teman-teman saya. hehe....
Maaf kalau ada yang sama, aku cuma ambil source code ini dari www.pscode.com.
Langsung aja ya silahkan di lanjutkan....

Pertama-tama anda buat database anda entah pakai MS Access atau MySQL. tapi dalam contoh ini saya pakai Access.
kemudian anda hubungkan akses anda dengan visual basic. kalau udah berhasil sekarang silahkan tambah satu command lagi untuk eksport data anda. silahkan di pelajari code dibawah ini:

Private Sub cmdExcell_Click()
Dim xlApp As Object
Dim xlWb As Object
Dim xlWs As Object
Dim recArray As Variant
Dim strDB As String
Dim fldCount As Integer
Dim recCount As Long
Dim iCol As Integer
Dim iRow As Integer

Set xlApp = CreateObject("Excel.Application")
Set xlWb = xlApp.Workbooks.Add
Set xlWs = xlWb.Worksheets(1)

xlApp.Visible = True
xlApp.UserControl = True

fldCount = rsDaftar.RecordCount
For iCol = 1 To fldCount
xlWs.Cells(1, iCol).Value = rsDaftar.Fields(iCol - 1).Name
Next

If Val(Mid(xlApp.Version, 1, InStr(1, xlApp.Version, ".") - 1)) > 8 Then
xlWs.Cells(2, 1).CopyFromRecordset rsDaftar

Else
recArray = rsDaftar.GetRows
recCount = UBound(recArray, 2) + 1
For iCol = 0 To fldCount - 1
For iRow = 0 To recCount - 1
If IsDate(recArray(iCol, iRow)) Then
recArray(iCol, iRow) = Format(recArray(iCol, iRow))
ElseIf IsArray(recArray(iCol, iRow)) Then
recArray(iCol, iRow) = "Array Field"
End If
Next iRow
Next iCol '
xlWs.Cells(2, 1).Resize(recCount, fldCount).Value = _
TransposeDim(recArray)
End If

xlApp.Selection.CurrentRegion.Columns.AutoFit
xlApp.Selection.CurrentRegion.Rows.AutoFit
rsDaftar.Close
Set rsDaftar = Nothing
Set xlWs = Nothing
Set xlWb = Nothing

Set xlApp = Nothing
End Sub

dalam code diatas pemanggil databasenya ada rsdaftar yang merupakan recordset nya.

sekian dulu semoga bermanfaat, kalau masih belum jelas silahkan kasih komentarnya. kalau ada tambahan juga boleh kasih komentarnya.

thank

chung chin

Read more

Burning File lebih dari 700 MB pakai K3B

Tutorial ini aku buat karena keinginkanku untuk mencoba linux di laptop aku, akhirnya setelah browsing kesana kemari aku menemukan DewaLinux yang filenya lebih dari 700 MB setelah putar-putar cari CD dengan kapasitas lebih dari 700MB di kotaku ga ketemu, mau aku bakar di DVD terlalu kecil (bahasa jawanya Nyakang) sehingga aku cari artikel mengenai burning di Cd lebih dari 700 Mb dari beberapa artikel kuncinya cuma overburn yaitu membakar lebih dari 700MB. di Nero juga ada tapi aku coba ga bisa akhirnya ada tutoriaal membakar dengan k3b yang dimiliki linux, aku buka linux ubuntu ku yang ada di kantor ehhh ternyata udah terinstall k3b jadi ga perlu download lagi, bagi yang belum untuk ubuntu ketik sudo apt-get install k3b. tunggu sampai proses selesai.

setelah software terinstall tinggal setting tu k3b dengan overburning kemudian anda tinggal burning di file.
semoga bermanfaat aja.

Read more

Gagal Install Blankon di Laptop BYON M31W

Kemarin pada waktu cari tutorial gimana cara install Linux dengan driver VGA SIS di dalamnya. akhirnya pengen coba distro Blankon buatan dalan negeri sendiri. setelah donlot beberapa lama n beberapa kali gagal. akhirnya aku suruh teman saya untuk mendownloadkan dan berrhasil donwnload Blankon yang versi 4 setelah burning Cd aku coba n juga aku masukan kata kunci acpi=off noapic nolapic setelah proses boooting tetep aja layar gerak terus sehingga tidak dapat diteruskan installasinya. Karena ingin coba maka aku download lagi yang versi 5 aku burning n coba install tetep aja ga bisa.
bagi temen-teman yang bisa bantu tolong donk kash masukkannya.....

Read more

Menjalankan BackTrack (BT) 3 di Laptop BYON M31W

Sudah sekian lama aku beli laptop BYON yang sangat menjengkelkan kalau di install linux dan sudah beberapa kali aku coba menginstall linux di laptopku, tapi hasilnya nihil hehe...hee... maklum newbie kalau linux, setelah tanya sana sini dan browsing akhirnya dapat juga menginstall linux di dalam laptopku kuncinya yaitu acpi=off noapic nolapic. udah aku coba bebrapa linux akhirnya bisa di install termasuk ubuntu.
permasalahan muncul lagi pada waktu nyoba menjalankan BT3 karena keinginkan untuk belajar hacking WEP jadi mencoba menjalankan.. tapi udah aku masuknya kata kuncinya acpi=off noapic nolapic dan jreeeeeng akhirnya ga bisa masuk ke GUI hanya sampai command aja.

karena penasaran aku coba oprek tu cara agar bisa masuk ke BT3 tapi mentok juga, akhirnya aku coba semua menu pilihan pada waktu booting BT3 dan akhirnya pada menu yang VESA grapic akhirnya aku bisa masuk juga. permasalahannya emang pada driver sis yang yang bisa untuk layar BYON, hehe...
tapi jangan lupa juga memasukkan kata kuncinya...
semoga bermanfaatttt....

Read more