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