Assalammu'alaikum wr wb..

Berikut adalah barisan sintaks untuk memperkecil jumlah baris dalam mengeksekusi sebuah Sql Command. Saya menggunakan Microsoft Acces 2003 sebagai database. Pertama-tama, hubungkan dulu VB.NET dengan Acces kemudian, Tambahkan sintaks berikut

Public Sub Exec(byVal Sql as string)

    Dim Cmd as new oledb.oledbcommand(sql,con)

    cmd.executenonquery

End Sub

Untuk mengeksekusi sebuah Sql Command, cukup dengan:

Exec(Sql)()

misalnya, :

Exec("Update * from master where kode = 2")

atau

Exec("Insert into pembelian ("2","3","Deni")

Bagaimana? lebih efeisien waktu bukan dalam pengetikan sintaksnya?