문제

다음 줄의 코드 라인을 사용하여 Rowid를 기반으로 레코드를 업데이트하고 있습니다.

j = 2에서 AuditGrid.rows -1에서 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()

문제는 데이터베이스가 업데이트되지 않는다는 것입니다. 무엇을해야합니까?

도움이 되었습니까?

해결책

나는 다음 줄의 코드를 사용했고 이제는 완벽하게 잘 작동합니다 ...

AuditGrid.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
라이센스 : CC-BY-SA ~와 함께 속성
제휴하지 않습니다 StackOverflow
scroll top