Penomoran Otomatis Mengunakan VB6

Teknik Penomoran Otomatis (Uuto Number) Sangat Effektive untuk validasi data saat penginputan agar user tidak salah dalam melakukan penomberan. banyangkan dalam satu table transaksi memiliki beberapa nomber transaksi yang mana setiap ada transaksi nomber tersebut selalu bertambah atau berubah. biar lebih singkat bisa di baca dalam source VB 6 di bawah ini :
sub autoNumber()
dim SQLStr, Auto As string , rsdata as new adodb.recordset
Koneksi
SQLStr = "Select Max(Right("transaksiNumber",7) as No From Tabel1"
rsdata,open SQLStr, Con
if isnull(rsdata!No) Then
   Auto = "0000001"
else
   Auto = & Format(rsdata!No + 1, "0000000")
end if
end Sub

Read more »

Cara Mengembalikan Folder atau File Yang TerHapus Secara Permanent

Hallo Every body lama tak posting artikel
hari ini adalah hari yang paling menyebalkan dalam hidup (#curhat).. kalia semua pasti pernah merasakan diputusin sama pasangan yang kalian sayangi.. rasanya begitu sakit tapi ternya ada yang jauh lebih sakit lagi dari itu. Kita kehilangan data yang sangat penting sekali, atau data kita tidak sengaja terhapus/delete secara permanent (shift + del). pusing banget , galau bahkan kalo bisa di kata kan sepertinya malaikat pencabut nyawa udah dateng kalo data tersebut ga bisa kembali. so sad..
setelah browsing sana-sini dan mencoba bebera software untuk balikin data keder juga pakenya susah atau ga user friendly.
tapi ada satu aplikasi yang sangat gampang dipakenya nama aplikasinya WinUtilities Undelete adalah tool recovery yang sangat user freindly.
Cara mengunakan nya cukup mudah
1. Download WinUtilities Undelete
2. Instal WinUtilities Undelete
3. Cari dimana drive data yang terhapus kita simpan --> (all Deletes Files)
4. Cari Deh File yg terhapus lalu clic kanan undelete

file ada terselamatkan :D
selamat mencoba semoga bermafaat yah ...
itulah obat anti galau kalau data kita hilang hehehhe

Read more »