September 7, 2008 09:09am pdt

1. BillBach 21,548
2. mirtheil 21,152
3. blue_zee 2,000
3. TKorhan 2,000
5. ShineOn 1,250
6. ccosby 750
7. nplib 500
8. hgodfrey 400

1. mirtheil 196,896
2. BillBach 70,646
3. bhess1 16,178
4. wayne_f... 6,800
5. jbuttery 4,675
6. ch2 2,500
7. fanopoe 2,000
7. TKorhan 2,000
7. blue_zee 2,000
7. ShineOn 2,000
11. idt 1,500
12. mlmcc 1,375
13. tonyhowa... 1,300
14. NickUpson 1,200
15. samirise 1,000
16. JWEISBROD 999
17. Megalomac 800
18. DennisL 750
18. jamcos 750
18. ccosby 750
18. Freya28 750
18. EMCIT 750
23. mcarper 500
23. stocksr 500
23. pozoun 500
23. nplib 500
23. athelu 500

05.05.2008 at 07:27PM PDT, ID: 23378350

	[x] Attachment Details

GetEqual and GetGreaterOrEqual in Btrieve

Asked by mike1reynolds in Btrieve 4GL Database

Tags: Pervasive, Btrieve, VB.NET

Using Btrieve Classes for .NET v2, I'm able to open tables and step through them in different index orders, but only from the start. When I use GetEqual or GetGreaterOrEqual I can only step a dozen records forwards before it hangs the thread so badly that the debugger can't break execution. If I step backwards I can only go two records. If I use GetFirst I can step forward indefinitely.Start Free Trial

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:

           
           
             Public Class Form1
    Inherits System.Windows.Forms.Form
 
    Private m_oDaysheet As New Daysheet
 
    Private Sub Button_Search_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Search.Click
        m_oDaysheet.Search(TextBox_Search.Text)
        Dim rc As Integer = m_oDaysheet.Open("z:\apex\umi\daysheet.dat")
        If rc > 0 Then MsgBox(rc)
        m_oDaysheet.GetGreaterOrEqual()
        If rc > 0 Then MsgBox(rc)
        Display()
    End Sub
 
 
 Public Class Daysheet
    Protected m_record As DaysheetRec
    Protected m_type As Type
 
    Protected m_posblk(128) As Byte
    Protected m_data(334) As Byte
    Protected m_dataLength As Int16
    Protected m_keyBuf(128) As Byte
    Protected m_fname() As Byte
    Protected m_keyNum As Int16 = 1
    Protected m_keyBufLen As Int16
    Protected m_ptr As System.IntPtr
 
    Public Sub Search(ByVal sSearch As String)
        m_keyBuf = Encoding.ASCII.GetBytes(sSearch)
    End Sub
 
 
    Public Function GetEqual() As Int16
        Dim rc As Int16 = Native.BtrCall(Operation.GetEqual, m_posblk, m_ptr, m_dataLength, m_keyBuf, m_keyBufLen, m_keyNum)
        m_record = Marshal.PtrToStructure(m_ptr, GetType(DaysheetRec))
        Return rc
    End Function
 
 
 
    Public Function Open(ByVal sTable As String)
        Dim rc As Int16
 
        m_keyBufLen = 128
 
        m_fname = Encoding.ASCII.GetBytes(sTable)
        m_data(0) = 0
        m_dataLength = 0
 
        rc = Native.BtrCall(Operation.Open, m_posblk, m_data, m_dataLength, m_fname, m_fname.Length, m_keyNum)
 
        If rc = 0 Then
            m_dataLength = Marshal.SizeOf(m_record)
            m_ptr = Marshal.AllocCoTaskMem(m_dataLength)
            Marshal.StructureToPtr(m_record, m_ptr, True)
        End If
 
        Return rc
    End Function
End Class

           
         

Keywords: GetEqual and GetGreaterOrEqual in Btri…

	Title
1	I am looking for a Btrieve project that I c…
2	The Btrieve file directory is invalid(Btri…
3	btrieve data files access
4	btrieve
5	Btrieve to SQL Server 2000 Transfer
6	Pervasive SQL / Btrieve reuses delet…

Loading Advertisement...

20080716-EE-VQP-32 / EE_QW_2_20070628

GetEqual and GetGreaterOrEqual in Btrieve

Asked by mike1reynolds in Btrieve 4GL Database

Tags: Pervasive, Btrieve, VB.NET

About this solution