VB 2008 code vs VB 6

I am trying to rewrite my VB 6 code to VB 2008. Can you provide me some direction how to best rewrite the VB 6 code below to VB 2008. This code was adapted from "Beginning VB6 Databases" by John Connell. I created a desktop application and now I'm trying to rewrite it to make it a client server app.

Specifically, I'm trying to find Methods in VB 2008 that are functionally the same as the dbEditNone, dbEditInProgress, etc.

vb Code:

Public Sub updateButtons(Optional bLockEm As Variant)
 
'-----------------------------------------------------
'-The position of the 0 or 1 in the string represents
'-a specific button in our cmdButton control array.
'-----------------------------------------------------
'-Position      Button
'-  0           move first
'-  1           move previous
'-  2           move next
'-  3           move last
'-  4           add a new record
'-  5           edit the current record
'-  6           save the current record
'-  7           delete the current record
'-  8           undo any current changes
'-  9           find a specific record
'-  10          scan a file
'-  11          open a saved file
'-  12          done. Unload the form
'-----------------------------------------------------
 
Select Case Data1.Recordset.EditMode
 
Case dbEditNone     '-no editing taking place, just handle navigation
    If (lTotalRecords >= 2) Then
        If (Data1.Recordset.BOF) Or (Data1.Recordset.AbsolutePosition = 0) Then
            navigateButtons ("0011110101011")
        ElseIf (Data1.Recordset.EOF) Or (Data1.Recordset.AbsolutePosition = lTotalRecords - 1) Then
            navigateButtons ("1100110101011")
        Else
            navigateButtons ("1111110101011")
        End If
    ElseIf (lTotalRecords > 0) Then
        navigateButtons ("0000110100111")
    Else
        navigateButtons ("0000100000001")
    End If
    If (Not IsMissing(bLockEm)) Then
        lockTheControls (bLockEm)
    End If
Case dbEditInProgress       '-we are editing a current record
    Call lockTheControls(False)
    navigateButtons ("0000001010100")
    If (Text1(0).Visible) Then Text1(0).SetFocus
Case dbEditAdd              '-we are adding a new record
    Call lockTheControls(False)
    navigateButtons ("0000001010100")
    If (Text1(0).Visible) Then Text1(0).SetFocus
End Select
 
End Sub
 
Public Sub navigateButtons(sButtonString As String)
 
'--------------------------------------------------
'-This routine handles setting the enabled
'-property to true/false on the buttons
'--------------------------------------------------
'-A string of 0101 passed.  If 0, disabled
'--------------------------------------------------
 
Dim iIndx As Integer
Dim iButtonLength As Integer
 
sButtonString = Trim$(sButtonString)
iButtonLength = Len(sButtonString)
 
For iIndx = 1 To iButtonLength
    If (Mid$(sButtonString, iIndx, 1) = "1") Then
        Command1(iIndx - 1).Enabled = True
    Else
        Command1(iIndx - 1).Enabled = False
    End If
Next
 
DoEvents
 
End Sub

:eek:

That code is DAO, which is actually for versions of VB earlier than VB6 - it was replaced in/before 1998, and the VB6 help for DAO explicitly says not to use it.

There are also several things about that code that are far less than ideal (such as coding around a bound control, rather than fully using code), so I would recommend completely forgetting about it, and starting again.


As you are using VB.Net, you should be using ADO.Net, and you can find good tutorials etc about it in the VB.Net section of our Database Development FAQs/Tutorials (at the top of the Database Development forum)

Thank you for your response. I am using ADO.Net. What I am trying to do is to "disable", gray-out some of the navigation buttons I created when the program is in certain states. For example, when the user selects the "Add New" button on the form, I want to "disable" the Edit, Delete, Search and Open control buttons on the form and enable the Save and Undo buttons. I am trying to provide the user a "bullet proof" interface. In my original program this was accomplished by checking the "Edit Mode" of the Recordset. I'm trying to figure out how to accomplish this with ADO.Net. Thanks again!

There are a variety of methods within ADO.Net, and we can't really help unless we know some details of what you are actually doing already.

The short answer to your question is you would need to look at the .RowState property of the row in question.

-tg