Pregunta

Estoy utilizando las siguientes líneas de código para actualizar los registros basado en rowid: aquí dsmain el conjunto de datos que estoy usando ....

Para j = 2 Para AuditGrid.Rows - 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()

El problema es que la base de datos no se actualiza. ¿Qué hacer?

¿Fue útil?

Solución

he utilizado las siguientes líneas de código y que ahora funciona perfectamente bien ...

Si AuditGrid.ActiveCell.Row> 0 Then

        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
Licenciado bajo: CC-BY-SA con atribución
No afiliado a StackOverflow
scroll top