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.

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 ;)

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.