Forum Sementara Putera.com

Would you like to react to this message? Create an account in a few clicks or log in to continue.
Forum Sementara Putera.com

Bersama kita perkemaskan forum ini sementara forum asal dalam pemulihan.

Forum putera dah kembali. Masalah sudah berjaya diselesaikan. Sila lawati http://forum.putera.com/tanya


    VB 2008 with Microsoft Access 2007 ADD DELETE EDIT & SELECT tutorial

    yakob
    yakob
    Ahli Baharu
    Ahli Baharu


    Number of posts : 5
    Age : 38
    Location : Alor Setar
    Job/hobbies : Student
    Registration date : 05/12/2009

    VB 2008 with Microsoft Access 2007 ADD DELETE EDIT & SELECT tutorial Empty VB 2008 with Microsoft Access 2007 ADD DELETE EDIT & SELECT tutorial

    Post by yakob Sat Dec 05, 2009 1:32 am

    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:
    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

      Current date/time is Thu Mar 28, 2024 9:20 pm