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.

1 komentar:

Nur Suhadi mengatakan...

sudah lama aku mencari eksekusi SQL dengan DAO, karena sudah familier dengan ADO...

Terima kasih artikelnya...