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.
1 komentar:
sudah lama aku mencari eksekusi SQL dengan DAO, karena sudah familier dengan ADO...
Terima kasih artikelnya...
Posting Komentar