Menyederhanakan Command SQL dengan sebuah function

Bila kita melihat ilustrasi gambar di samping, ada pendapat bahwa..ya..cuplikan kode itu terlihat rapi.., mudah dibaca dan dipahami,dan saya yakin tidak ada kesalahan dalam kode program tersebut, dengan kata lain command-command SQL tersebut dapat dieksekusi dengan baik, alias Running.


Namun bila kita melihat garis-garis merah dari kode tersebut. Bukan kesalahan dari kode tersebut yang akan kita bahas, hanya inefisiensi penulisan kode yang telihat boros source program. Bukankah kode-kode tersebut di tulis berulang-ulang, dengan akibat kode program yang kita buat menjadi banyak, sehingga menambah ukuran file program jika di kompilasi. Selain trace program yg lebih rumit karena banyaknya kode yang bisa dibilang mubadzir.

Solusinya...! bila kita mencoba buat sebuah fungsi untuk menghilangkan perintah (command) yang sifatnya jamak diulang, misal seperti ini :

Jadi sekarang kita tidak perlu lagi menulis-nulis seperti :

close; sql.clear; dll dll...

Namun cukup ditulis

eksekusiSQL(q1,'select * from nm_tabel WHERE condition...',true);

atau

eksekusiSQL(q1,'UPDATE nm_tabel set nm_field1,nm_field_n WHERE condition..',true);

atau

eksekusiSQL(q1,'DELETE from nm_tabel WHERE condition..',true);

Jadi nggak ribet lagi kan....! dengan banyaknya source yg berulang-ulang.