تحديث باستخدام OracledataAdapter.

Question

أنا أستخدم الأسطر التالية من التعليمات البرمجية لتحديث السجلات بناء على Rowid: هنا DSMAN DETASET التي أستخدمها ....

ل J = 2 إلى AuditGrid.هور - 1

        If AuditGrid.ActiveCell.Row = j And AuditGrid.ActiveCell.Col = ColMark Then
            Uvalue = Trim(AuditGrid.Cell(j, ColMark).Text)
            da.UpdateCommand = New OracleCommand("update audit01 set user" & Trim(User) & "='" & Trim(Uvalue) & "' where audit01.rowid='" & Trim(AuditGrid.Cell(j, ColWRowid).Text) & "'")
        End If
    Next

    da.Fill(DsMain, "AUDIT01")
    da.Update(DsMain, "AUDIT01")
    DsMain.AcceptChanges()

المشكلة هي أنه لا يتم تحديث قاعدة البيانات. ما يجب القيام به؟

Answer 1

لقد استخدمت خطوط التعليمات البرمجية التالية ويعمل الآن بشكل جيد ...

إذا uditgrid.activecell.row> 0 ثم

        Uvalue = Trim(AuditGrid.Cell(AuditGrid.ActiveCell.Row, ColMark).Text)
        strQry = "update audit01 set user" & Trim(User) & "='" & Trim(Uvalue) & "' where rowidtochar( audit01.rowid)='" & AuditGrid.Cell(AuditGrid.ActiveCell.Row, ColWRowid).Text & "'"
        da = New OracleDataAdapter(strQry, con)
        da.Fill(DsMain)
        DsMain.AcceptChanges()
        MsgBox("Record Updated!!")
        AuditGrid.Range(AuditGrid.ActiveCell.Row, ColMark, AuditGrid.ActiveCell.Row, ColMark).DeleteByRow()
    End If