Kamis, 29 September 2011

Download Mouse Wheel For VB6

Instal file ini agar editor code di VB.6 teman teman bisa di scroll (menggunakan mouse). Download Mouse

 Link Updated on 2012-12-04 (yy-mm-dd) !
Download Wheel for VB6

Tags:
download mouse wheel, mouse wheel for vb6, free mouse wheel, mouse wheel add-on vb6, scroll mouse in vb6 editor, instal mouse wheel

Download VBLR6.CHM (VB.6 Help/MSDN Mini)

Screenshot:
Saya akan share file help yang mungkin bisa membantu teman teman jika mengalami kesulitan dalam pemrograman khusunya visual basic 6. File ini sangat amat kecil tapi lumayan dahsyat (kecil kecil cabe rawit).

Berikut ini link downloadnya :
VBLR6.CHM

Update 2012-03-03 (add file help):
-VBCN6.CHM
-VBENDF98.CHM
-VBHW6.CHM
-VBOB6.CHM
-VBUI6.CHM

Click HERE to complete download (ALL)

Tags:
msdn vb6, free download help vb6, vb6 help offline, vb6 msdn, visual basic 6 helper, vb6 reference, free download visual basic 6 reference, free download visual basic 6 mini msdn 

Pencarian Data Dengan Gabungan Field

Pada umumnya pencarian data selalu berdasarkan satu, dua atau tiga field, contohnya :
SELECT KODE,NAMA,HARGA,KET,LOKASI FROM BARANG WHERE KODE='00001'
atau

SELECT KODE,NAMA,HARGA,KET,LOKASI FROM BARANG WHERE KODE LIKE '0%' AND ITEM LIKE 'BARANG'

Tapi bagaimana jika kita ingin mem-filter field lebih banyak tanpa harus membuat perintah SQL yang panjang ? Bagi teman teman yang belum tahu,saya beritahu cara yang lebih praktis :

SELECT KODE,NAMA,HARGA,KET,LOKASI FROM BARANG WHERE KODE+NAMA+CONVERT(VARCHAR,HARGA)+KET+LOKASI LIKE '%AN%'

Artinya cari data barang dimana kode atau nama atau harga atau ket atau lokasi seperti AN, jadi jika di salah satu atau semua field dalam semua record tersebut ada kata AN maka akan ditampilkan. Sehingga ini memudahkan baik programmer atau user dalam mencari data. Sebenarnya ini merupakan kependekan dari perintah SQL berikut:


SELECT KODE,NAMA,HARGA,KET,LOKASI FROM BARANG WHERE KODE LIKE '%AN%' OR NAMA LIKE '%AN%' OR LIKE '%AN%' OR CONVERT(VARCHAR,HARGA) LIKE '%AN%' OR KET LIKE '%AN%' OR LOKASI LIKE '%AN%'


Keterangan : Kenapa field HARGA diubah menjadi CONVERT(VARCHAR,HARGA) , karena untuk menggabungkan semua field tersebut harus sama type datanya yaitu STRING.

SELECT CASE Statement

Pada gambar dibawah ini terdapat "FIELD KETERANGAN" yang merupakan field baru hasil dari "SELECT CASE". Dengan kata lain field ini tidak ada di table yang bersangkutan, jadi bukan hasil "INSERT" atau "UPDATE".

Berikut ini Script SQL nya :


SELECT KDBRG,NAMABRG, Stok,
CASE WHEN STOK =0 THEN 'STOK KOSONG'
WHEN Stok >0 AND Stok <= 10 THEN 'STOK NORMAL'
WHEN STOK > 10 THEN 'STOK MAX'
END AS KETERANGAN FROM Barang

Rabu, 28 September 2011

Load Data Ke MsFlexGrid

.
Untuk VB.6 Codingnya Adalah :
    With djie_MSFlexGrid1
        .Clear
        .Cols = 10
        .Rows = 100
        For i = 0 To .Cols - 1
            .TextMatrix(0, i) = "Column Ke " & i
        Next
        For j = 1 To .Rows - 1
            For i = 0 To .Cols - 1
                .TextMatrix(j, i) = "Row Ke " & j & ",Column Ke " & i
            Next
        Next
    End With

Update! 2012-04-16 
Download Full Source Project