salam & hi kepada suma geng putera,
kat sini aku ada satu function nak kongsi ngan korg,
manetau ada org yg nak pakai benda ni,
kegunaan function ni adala utk execute query(INSERT,DEL,UPDATE dan bukan SELECT akan diberitahu) ke MS ACCESS 2007 ACCDB database.

aku biasa buat function ni dalam class lain (global class) yang akan digunakan dalam semua form aku yang lain.

dibawah ialah function nya.
[code]<dl class="codebox"><dt>Code:</dt><dd><code>Public Function query2(ByVal sql) As String
    Public Function query2(ByVal sql) As String ' parameter dinamakan sebagai sql
        cmd = New OleDb.OleDbCommand(sql, con) 'command oleDB di declare pada variable cmd
        con.ConnectionString = "PROVIDER=Microsoft.ACE.OLEDB.12.0;Data Source=clinic.accdb" ' connection setting untuk driver ms access 2007 file accdb. sila tukar 'clinic.accdb' kepada nama file db anda
        MsgBox(sql) ' diguna untuk pemeriksaan syntax sql
        con.Open() ' koneksi di aktifkan
        maxRows = cmd.ExecuteNonQuery ' command di laksanakan
        If maxRows = 1 Then ' dibawah diguna untuk pemeriksaan query
            MsgBox("data successfully quried")
        Else
            MsgBox("Failed to query record")
        End If
        con.Close()
        Return Nothing
    End Function</code></dd></dl>

cara menggunakannya ialah spt berikut:

<dl class="codebox"><dt>Code:</dt><dd><code>sql = "DELETE from illness_history where ID='" &amp; txtIllnessID.Text &amp; "'"
query2(sql)</code></dd></dl>[/code]

amacam sapa dah cuba ?

klo ada reply aku akan teruskan thread ni.. hehe

Edited February 17, 201016 yr by LanoG
menambah code tag untuk memudahkan membaca code.

bro, contoh add, delete, edit, update yg gune database .mdf yg ada dlm vb express 2008 xder ker?