1 Ответить Последний ответ: 14.09.2004 19:30, автор: 82532

    Invalid bookmark in an unbound Sheridan grid with Oracle 9i

      Hi, we have an application that worked on Oracle 8i with oo4o and oraoldb.

      We use a Sheridan grid in unbound mode with the following code in the unboundReadData event where RecGlobal is an OraDynaset:

      Public Sub UnboundReadData(RowBuf As SSDataWidgets_B.ssRowBuffer, StartLocation As Variant, ReadPriorRows As Boolean)
      On Error GoTo ErrorGridStreetSectorUnboundReadData:

      Dim Rcnt, Rcount, Rcounter As Integer

      If Grid.Redraw = False Then Exit Sub
      If recGlobal Is Nothing Then Exit Sub
      If IsNull(StartLocation) Then
      If ReadPriorRows Then
      End If
      'Conversion from HEX string to Binary string
      recGlobal.Bookmark = objMain.HexToBookmark(StartLocation)
      If ReadPriorRows Then
      End If
      End If
      For Rcount = 0 To RowBuf.RowCount - 1
      If recGlobal.BOF Or recGlobal.EOF Then Exit For
      Select Case (RowBuf.ReadType)
      Case 0
      For Rcounter = 0 To RowBuf.ColumnCount - 1
      RowBuf.Value(Rcount, Rcounter) = recGlobal(Grid.Columns(Rcounter).Name).Value
      Next Rcounter
      RowBuf.Bookmark(Rcount) = objMain.BookmarkToHex(recGlobal.Bookmark)
      Case 1
      RowBuf.Bookmark(Rcount) = objMain.BookmarkToHex(recGlobal.Bookmark)
      Case 2
      RowBuf.Value(Rcount, Rcounter) = recGlobal(Grid.Columns(Rcounter).Name).Value 'recGlobal(Rcounter).Value
      RowBuf.Bookmark(Rcount) = objMain.BookmarkToHex(recGlobal.Bookmark)
      Case 3
      End Select

      If ReadPriorRows Then
      End If
      Rcnt = Rcnt + 1
      Next Rcount
      RowBuf.RowCount = Rcnt

      Exit Sub
      Dim ErrNum As Long, ErrDesc As String
      ErrNum = objMain.GetLastError(Err.Number)
      Select Case ErrNum
      Case 3021
      Case 40088: Grid.ReBind 'No open cursor
      Case 40022 'Resultset is empty
      Case Else
      ErrDesc = objMain.GetLastErrorDesc(Err.Description)
      MsgBox ErrNum & " : " & ErrDesc, CriticalFlag, Msg(1)
      End Select
      Resume ExitGridStreetSectorUnboundReadData:
      End Sub

      Here is the code for the HexToBookmark and BookmarkToHex functions we use:

      Private Function Mainfunctions_HexToBookmark(ByVal S As Variant) As Variant
      Dim I As Integer, STmp As Variant
      If IsNull(S) Then Exit Function
      For I = 1 To Len(S) Step 2
      STmp = STmp & Chr(Val("&h" & Mid(S, I, 2)))
      Mainfunctions_HexToBookmark = STmp
      End Function

      Private Function Mainfunctions_BookmarkToHex(ByVal S As Variant) As Variant
      Dim I As Integer, H As String, STmp As Variant
      For I = 1 To Len(S)
      H = Hex(Asc(Mid(S, I, 1)))
      If Len(H) = 1 Then H = "0" & H
      STmp = STmp & H
      Mainfunctions_BookmarkToHex = STmp
      End Function

      Now we need to make our application run on Oracle 9i (patchset 9204) (with oraoledb and oo4o and our Sheridan Grid in unbound mode seems to work fine, except that after some time I reexecute the query to refresh the grid I get an invalid bookmark error message (OIP.4121) and only 10 records from the recordset are displayed even if the recordcount is greater.

      Anything that can help solve this somehow weird problem is welcome.