Visual Basic: DAO execute SQL Query

Ketika menggunakan DAO di visual basic 6, untuk perintah SQL Select tidak ada masalah.
Biasanya jika menggunakan komponen data1 kurang lebih seperti ini:

data1.recordsource="select * from data_jual where no_faktur='" + txtNoFaktur.Text + "'"
data1.refresh

Bagaimana jika perintah SQL yang digunakan adalah perintah Insert, Update, Delete ?

data1.recordsource="delete from data_jual where no_faktur='" + txtNoFaktur.Text + "'"
data1.refresh

kode diatas jika dijalankan akan error, teori dasarnya saya kurang tau, yang jelas perintah diatas tidak diijinkan.

Lalu bagaimana?
Dari hasil penelusuran disitus2 VB, ada beberapa teknik yang digunakan untuk mengeksekusi SQL menggunakan DAO, salah satu yang paling mudah seperti baris kode dibawah ini:

Dim sSQL as String
Dim dbdata as database

Set dbdata = Workspaces(0).OpenDatabase(App.Path & "\db\dbApotek.mdb")

sSQL = "delete from data_jual where no_faktur='" + txtNoFaktur.Text + "'"

Call dbdata.Execute(sSQL, dbSQLPassThrough)

variabel sSQL bisa diganti dengan perintah SQL lainnya seperti Insert dan Update.

Si Bolang : tayangan mendidik ?

Madhu : "Papa, cicak bisa dimakan lho..."
Papa : "Ya enggak lah, cicak kan bukan makanan..."
Madhu : "Bisa kok! kemarin di TV itu bisa, dipotong-potong dulu trus dibakar trus dimakan"
Papa : "???!!!"

Di atas adalah sepenggal obrolan saya dan anak saya (4 th), selidik punya selidik, ternyata anak saya sering nonton Si Bolang, Bocah Petualang di Trans7.
Bukannya bermaksud menyalahkan tayangan tersebut, tapi sekedar mengingatkan bahwa anak perlu pendampingan dalam menonton TV. Ya, saya lalai tidak bisa mendampingi anak saya dalam menonton TV karena kesibukan kerja saya dan istri.

Sebelumnya sebenarnya pernah diingatkan kakak saya bahwa anaknya ngomongnya aneh-aneh gara-gara nonton si Bolang, pikir saya saat itu masa' sih?
Setelah mengalami sendiri baru deh...
Anak kakak saya juga hampir sama omongannya, dia bilang tokek, kerang mentah dan hewan2 aneh lainnya bisa dimakan.
Bagi masyarakat tertentu memang iya, tapi bagi kita hal itu tidaklah lumrah.

Ya sekali lagi, tinggal bagaimana kita mendampingi putra-putri kita dalam menonton tayangan TV, bukan melulu menyalahkan tayangan TV yang tidak sesuai.

Visual Basic: Koneksi Database Ms Access 2000 or later dengan DAO

Sebenarnya ini tips lama, cuma baru teringat lagi ketika membutuhkannya. Saat mencoba akses database microsoft access 2003 dengan vb lewat DAO selalu gagal dengan pesan "Unrecognized Database Format". Googling sebentar, ketemu, ternyata masalahnya VB nya belum terinstal service pack 6 hehe.

Download sebentar di http://www.microsoft.com/downloads/details.aspx?FamilyID=9ef9bf70-dfe1-42a1-a4c8-39718c7e381d&DisplayLang=en terus install.
Jadi deh...

Sedikit tambahan, setelah terinstall SP 6 ini, pada properties data bagian connect, pilih Access2000. Kalo sebelum terinstall SP6 pilihannya cuma Access.

Mudah-mudahan berguna buat rekan-rekan yang juga lupa ;)

Thoosje Vista Sidebar

Post kali ini masih merupakan kelanjutan dari mendandani tampilan Windows XP biar mirip Vista. Seperti diketahui, secara default Vista memiliki Sidebar disebelah kanan yang isinya beberapa gadgets yang bisa dipilih sesuai keinginan.

Thoosje Vista Sidebar adalah sebuah aplikasi untuk windows XP yang akan menampilkan sidebar layaknya milik Vista. Di aplikasi ini kita bisa memilih beberapa gadgets yang ada untuk ditampilkan pada sidebar. Ada banyak pilihan gadgets yang disediakan oleh aplikasi ini seperti clock, calendar, picture slider, media player, battery status, dan lain sebagainya.

Sayangnya, hanya gadgets bawaan aplikasi itulah yang bisa kita pilih, tidak seperti sidebar milik Vista yang bisa ditambahkan/download dari pihak ketiga.

Nah, kalo tertarik silahkan langsung sedot di websitenya http://www.thoosje.com
atau disini

Selanjutnya tinggal ganti wallpaper dengan wallpaper ori vista yang bisa didownload di vistawallpapers.com atau googling langsung aja.

Vista Login Screen for XP

Sebagai kelanjutan dari post sebelumnya, biar tampilan windows XP kita lebih bener2 mirip Vista, maka tampilan login screen perlu kita ganti dengan login screennya Vista.

Silahkan download disini Vista_Login_Screen_for_XP_by_Picassa243.exe

Setelah di extract, copykan NewLogo.exe ke c:\windows\system32, kemudian dobel klik file NewLogo.reg, selesai.

Untuk mencobanya, silahkan tekan kombinasi tombol windows + L pada keyboard.
Jika tidak ada masalah, maka akan muncul tampilan seperti gambar di awal post.

Selamat mencoba.

BricoPack Vista Inspirat 2: XP rasa Vista

Jika anda bosan dengan tampilan XP standar anda cobalah ganti dengan tampilan vista.
Ada banyak software yang bisa membantu anda mewujudkannya, salah satunya adalah BricoPack Vista Inspirat 2 dari CrystalXP.net.

Software ini termasuk ringan, dalam arti tidak membebani memori komputer sehingga cocok dipake buat hardware yang memorinya pas-pasan.

Begitu software ini diinstall, tampilan desktop akan disulap menjadi mirip tampilan windows vista, mulai dari icon, wallpaper, taskbar, theme, start menu, sampai ke tampilan windows explorer.

Hebatnya lagi, software ini punya lisensi freeware alias gratis. Jika berminat, silahkan download di crystalxp.net



Sedikit kekurangan dari software ini adalah, dia memakai z-buffer ( ada yang tau ini apaan?) sehingga aplikasi lain yang juga memakai z-buffer ini akan terganggu. Sebagai contoh, saat akan memainkan game RC lama revolt, kadang-kadang muncul pesan z-buffer sedang digunakan. Demikian juga dengan aplikasi Radmin ( remote administrator ), akan terasa lambat saat meremote pc yang terinstall Vista Inspirat, padahal disisi pc yang terinstall terasa biasa saja.

Bagaimanapun, software ini merupakan alternatif buat yang bosan dengan tampilan standar XP dan ingin mencicipi tampilan Vista.

Visual Basic: Menampilkan Crystal Report dari Database Access yang dipassword

Sedikit berbagi tips lama, pada visual basic, untuk menampilkan laporan crystal report dari database ms access yang diproteksi/password, caranya hanya menambahkan baris cr1.password = Chr(10) & "passwordku", dengan cr1 adalah nama komponen dan "passwordku" diisi dengan password database.

Lebih jelasnya kurang lebih seperti baris dibawah ini:

cr1.ReportFileName = App.Path & "\db\lap1.rpt"
cr1.Password = Chr(10) & "passwordku"

Sebagai informasi tambahan, tips ini saya coba di Visual Basic 6 dan Crystal Report 7, mungkin akan sedikit berbeda di versi yang lain.

Mudah-mudahan berguna.