Kadangkala -kalo aku sih sering :) - saat di warnet, kita nemu file MDB (Databasenya MS-Access), dan kita butuh untuk membukanya. Mestinya sih kita bisa membuka file itu dengan aplikasi MS-Access, tapi ternyata gak semua warnet ada MS-Office-nya. Kalaupun ada, males untuk membuka, karena sedikit banyak akan mengurangi resource PC yang emang sudah terbatas.
Padahal kita cuma butuh melihat sedikit (ngintip apa isinya, misalnya file MDB hasil nyusup), alangkah bagusnya jika kita pake program kecil saja, yang mampu melihat isi file MDB.
Berawal dari situ, saya bikin aplikasi VB kecil sekali, yang gunanya cuma buat membuka file MDB. Saking kecilnya, sampe sering ilang :)
Yang saya bahas disini adalah aplikasi VB yang mampu membuka beberapa file MDB, tapi ndak sekaligus.
Fungsi yang dipakai yaitu:
OpenDatabase(<namafile MDB>, <ekslusif>, <readonly>)
<namafile> : Nama file MDB yang mau dibuka <ekslusif> : Isi True jika akan dibuka secara ekslusif (gak bisa dimodifikasi user laen) <readonly> : Isi true jika cuma baca aja, False supaya bisa nulis
Cara kerja program:
Kalo mau lihat program lengkapnya, silakan download BukaDB.zip.
Sebenarnya banyak yang masih bisa ditambahi, misale ngedit sedikit data, lalu kalo mau, nambahi jenis sumber data yang bisa dibuka, misalnya mampu menggunakan ODBC, wuih... pasti jadi powerful banget :-)
Ya, sak mentara itu dulu, dilanjutin laen kali :)
(Aryo Sanjaya)
mas, gmn klo file .mdb-nya ada password access bisa nggak dibuka? watur nuwun ya informasinya! ^_^
Wah, terima kasih atas 'revisi'nya, hehehe...
Sekarang sudah saya rubah sedikit, sehingga kalo user berusaha membuka MDB yang ada passwordnya, program akan meminta password.
Perintahnya ada pada OpenDatabase:
OpenDatabase(FileName, False, False, "MS Access;PWD=passwordnya")
Itu cuma penambahan simpel, karena masih ada hal yang musti diperbaiki:
kalo salah memasukkan password, gimana supaya ada kesempatan 3 kali (atau tak terbatas). Sekarang ini program langsung 'crash' kalo passwordnya keliru
Ada yang mau nambahin?
Set cn = CreateObject("ADODB.Connection" cn.open "Provider=Microsoft.JET.OLEDB.4.0;Data Source=" & _ InputBox("File MDB" ' daftar tabel Set cat = CreateObject("ADOX.Catalog" Set cat.ActiveConnection = cn ' tampilin daftar tabel For i = 0 To cat.Tables.count-1 WScript.Echo cat.Tables(i).Name Next
sori, maksudnya, pake notepad juga bisa kok, ngga perlu pibi hehehe,
Wah, makasih triknya, bang ferdhie Mbok ya sekalian dikasih contoh, gimana cara browsing datanya kalo pake notepad
itu buat pr mbak aryo, eh .. kliru mas
gimana nih caranya menimpan animasi di dalam database visual basic. makasih
Halo ikki, Kalo animasinya itu berupa suatu file, sangat disarankan untuk hanya menyimpan nama file dan pathnya saja, sedangkan file-nya masih ada secara fisik, untuk direferensi jika ingin dibaca/ditampilkan. Tapi jika file tersebut memang harus disimpan di dalam database, kamu dapat menyimpannya dalam tabel dengan field berupa BLOB (Binary Large Object). Penanganan field ini agak berbeda dari kolom biasanya. Untuk contohnya, silakan lihat artikel ini: http://support.microsoft.com/kb/153238
mas punya saya kok ngak jalan yang apphp....??? boleh ngak minta s code & sample progya ...makasih
Halo Joni, Silakan masuk ke artikel ini: http://www.bengkelprogram.com/data-artikel-249.0.bps Ada bagian untuk download source, component dan aplikasi jadinya.
» Memecah Komponen Warna (10)Source-code SMS AR dalam Visual Basic
» Merubah Status Yahoo! Messenger (4)Untuk para desainer di komputer, penentuan komponen warna sangatlah berpengaruh pada hasil desain
» Main-main dengan ARP (4)Bagi yang sering memanfaatkan IM (Instant Messenger) ini, kemungkinan besar sering memanfaatkan fasilitas status dan availibilty.
» Mencari Nama Pasaran (18)Pernah denger ARP? tentu saja sering, jika anda seorang networker sejati :-)
Tidak bisa disangkal, nama pasaran sudah melekat erat di masyarakat jawa. Bagaimana cara mencarinya melalui VB?