Tolong pilih kategori sesuai, jenis posting (pertanyaan atau bukan) dan sertakan tag/topik yang sesuai misal komputer, php, mysql, dll.
Promosi atau posting tidak pada tempatnya akan kami hapus.
Mencantumkan kode program di posting Anda, tolong ikuti aturan yang sesuai, baca http://diskusiweb.com/discussion/39204/aturan-cara-menyisipkan-kode-program-di-diskusiweb

Baca cara posting gambar/image di post Anda: http://www.diskusiweb.com/discussion/47345/cara-menyisipkan-menyertakan-image-pada-posting/p1

ketika update data tidak berubah menggunakan vb.net dan sql

Dear masta2 mohon bantuannya ya

saya masih newbie bgt .
kasusnya waktu saya mau update data misalnya hanya keterangannya aja, tapi pas dui update yang muncul masih data lama.


ini script nya
Protected Sub Dgv_RowUpdating(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles Dgv.RowUpdating
        Stop

        Dim valasan As TextBox = CType(Dgv.Rows(Dgv.EditIndex).FindControl("Txtket2"), TextBox)
        Dim vCabangID As TextBox = CType(Dgv.Rows(Dgv.EditIndex).FindControl("TextBox1"), TextBox)
        Dim vFingerID As TextBox = CType(Dgv.Rows(Dgv.EditIndex).FindControl("TextBox2"), TextBox)
        Dim vTanggal As TextBox = (CType(Dgv.Rows(Dgv.EditIndex).FindControl("TextBox5"), TextBox))
        Dim vEmpId As TextBox = (CType(Dgv.Rows(Dgv.EditIndex).FindControl("TextBox3"), TextBox))
        Dim vkodekategori As TextBox = (CType(Dgv.Rows(Dgv.EditIndex).FindControl("TextBox10"), TextBox))

        Dim data As String
        data = valasan.Text

        If Validasi() Then
            Try

                Dim Parms1(7) As SqlParameter
              
                Parms1(0) = New SqlParameter("@CabangID", vCabangID.Text)
                Parms1(1) = New SqlParameter("@fingerid", Convert.ToInt32(vFingerID.Text))
                Parms1(2) = New SqlParameter("@EmpID", vEmpId.Text)
                Parms1(3) = New SqlParameter("@Category", Convert.ToInt32(vkodekategori.Text))
                Parms1(4) = New SqlParameter("@Tanggal", vTanggal.Text)
                Parms1(5) = New SqlParameter("@Keterangan", valasan.Text)
                Parms1(6) = New SqlParameter("@Action", 10)
                If conn.ExecuteSP("Sp_penghapusansanksi", Parms1) Then
                    conn.MessageBox("Record update", Me)
                    BindData()
                Else
                    If ClsConnect.ErrorSql.Count > 0 Then
                        conn.MessageBox(ClsConnect.ErrorSql(0), Me)
                    End If
                End If
            Catch ex As Exception
                conn.MessageBox(ex.Message, Me)
            End Try
        End If
        Dgv.EditIndex = -1
        BindData()
    End Sub



trus ini querynya

--Insert / update
    if @Action=10
    BEGIN       
        select @FingerID2=fingerid from mstemp where empid=@EmpID and CabangID=@CabangID
        SELECT CabangID from MstpenghapusanSanksi WHERE  MstpenghapusanSanksi.CabangID=@CabangID 
             AND  MstpenghapusanSanksi.EmpID=@EmpID and MstpenghapusanSanksi.keterangan=@keterangan1
            and Tanggal=@Tanggal ; AND Category=@Category
@rowcount=0
        BEGIN

--PROSES update
            UPDATE MstpenghapusanSanksi SET
                Keterangan=@Keterangan where
                FingerID=@FingerID AND EmpID=@EmpID and Tanggal=@Tanggal
            AND Category=@Category AND CabangID=@CabangID
        END
    END

end
end

Tanggapan

  • edited April 2013
    UPDATE MstpenghapusanSanksi
    SET
    Keterangan=@Keterangan
    WHERE
    FingerID=@FingerID AND
    EmpID=@EmpID AND
    Tanggal=@Tanggal AND
    Category=@Category AND
    CabangID=@CabangID

    gw kagak tau db yg elo pake,
    tapi, sepengalaman gw ...

    ID itu kemungkinan angka, jadi kagak masalah kalo model
    field=ID

    tapi tanggal dan category

    tanggal, meskipun tipe nya bukan string, tapi juga bukan angka
    jadi biasanya tetep harus diapit dengan quote

    category, kalo itu string, juga harus diapit quote
Sign In or Register to comment.