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.
cara menggunakannya ialah spt berikut:
amacam sapa dah cuba ?
klo ada reply aku akan teruskan thread ni.. hehe
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:
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
cara menggunakannya ialah spt berikut:
- Code:
sql = "DELETE from illness_history where ID='" & txtIllnessID.Text & "'"
query2(sql)
amacam sapa dah cuba ?
klo ada reply aku akan teruskan thread ni.. hehe