1

次のコード行を使用して、ROWIDに基づいてレコードを更新しています。ここでは、使用しているデータセットをdsmainします。

j=2の場合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()

問題は、データベースが更新されていないことです。何をすべきか？

4

1 に答える 1

0

私は次のコード行を使用しましたが、今では完全に正常に機能しています...

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
于 2009-04-30T06:50:40.633 に答える