Mau bantuin nich, boleh kan...???
Option Explicit
Dim Mem as String
Dim FileMdb As string
Dim FileMdbTemp As String
==================================================
'Nah Ini Coding Waktu Program di UNLOAD
FileMDB = App.Path & "\mdbKu.MDB" 'Ganti Aja
FileMDB = App.Path & "\mdbMu.MDB"
Mem = Space$(FileLen(FileMDB))
Open FileMDB For Binary As #1
Get #1, 1, Mem
Put #1, 1, "PrEMoR" & Mem
Close #1
'Setelah Proses Ini Saya Coba Buka Pake Passware dari LostPassword
'Commentnya Gini :
'Unrecognised file format. Excel, Word, Access, Outlook or
'VBA files are supported.
'Jadi 1 Langkah Lebih aman dech, gitu loh
'Tergantung dari kreatifitas masing-masing
'Misalnya Penambahannya Ada di 3 Tempat ato 4 tempat sekaligus
==================================================
'INI Coding Waktu Program Yang Memakai MDBnya di LOAD
Mem = Space$(FileLen(FileMDB) - 6)
Open FileMDB For Binary As #1
Get #1, 7, Mem
Close #1
'Tulis Isi FileMDB Asli ke FileMDBTemp
Open FileMDBTemp For Binary As #2
Put #2, 1, Mem
Close #2
'Langkah Terakhir (Optional)
'Ato Bisa Juga dari FileMDBTemp langsung dipakai
'Kill FileMDB
Name FileMDBTemp As FileMDB
==================================================
Wah, Panjangnya...
Sebenarnya kalo dipahami dan diresapi serta dihayati cuman dikit kok
Wis Yooooo, mugo-mugo iso mlaku coding'e
......
Rgds,
PrEMoR
Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Programmer-VB/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
