[RESOLVED] Cannot load data into database

[tommygrayson]

Hi guys!

I need your help once more. I cannot load data and I don't know why. Maybe there's something wrong with my code.

Private Sub cmdOK_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles cmdOK.Click
        'On Error GoTo ErrorTrapper
        'UPGRADE_WARNING: Screen property Screen.MousePointer has a new behavior. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2065"'
        System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor
        frmSplash.DefInstance.lblStatus.Text = "Processing Authentication..."
        frmSplash.DefInstance.lblStatus.Refresh()
        mUserID = Trim(UCase(txtUserName.Text))
        mRole = Trim(UCase(cmbRole.Text))
        mLevel = ""
        Dbs.rscmdUserFile_Master.Open("SELECT * FROM SYSUSERFILE_MASTER WHERE USERNAME='" & UCase(Trim(txtUserName.Text)) & "'")
        If Dbs.rscmdUserFile_Master.RecordCount <> 0 Then
            If Dbs.rscmdUserFile_Master.Fields("ACTIVE").Value = True Then
                MsgBox("Username already in use.", 64, "Login Error")
                txtUserName.Focus()
                System.Windows.Forms.SendKeys.Send("{Home}+{End}")
            Else
                If UCase(txtPassword.Text) = Trim(UCase(Dbs.rscmdUserFile_Master.Fields("PASSWORD").Value)) And UCase(txtUserName.Text) = UCase(Trim(Dbs.rscmdUserFile_Master.Fields("USERNAME").Value)) And UCase(cmbRole.Text) = UCase(Trim(Dbs.rscmdUserFile_Master.Fields("ROLE").Value)) Then
                    mLevel = Dbs.rscmdUserFile_Master.Fields("ACCESS_LEVEL").Value
                    Dbs.rscmdUserFile_Master.Close()
                    Dbs.rscmdUserFile_Master.Open("UPDATE SYSUSERFILE_MASTER SET ACTIVE = '1' WHERE USERNAME='" & UCase(Trim(mUserID)) & "'")
                    frmSplash.DefInstance.lblStatus.Text = "Login Succeeded..."
                    frmSplash.DefInstance.lblStatus.Refresh()
                    Me.Close()
                    frmSplash.DefInstance.lblStatus.Text = "Finsished Initializing..."
                    frmSplash.DefInstance.lblStatus.Refresh()
                    frmSplash.DefInstance.Close()
                    frmMain.DefInstance.Show()
                    'MsgBox "Welcome to " & App.Title, 64, "Login Successful"
                    'LoadComboLists
                    'PassAccessRights
                    'frmMain.mnuLogOff.Caption = frmMenu.mnuLogOff.Caption & " " & mUserID
                Else
                    MsgBox("Invalid login credentials, try again!", 64, "Login")
                    System.Windows.Forms.SendKeys.Send("{Home}+{End}")
                End If
            End If
            '      MsgBox "Invalid login credentials, try again!", 64, "Login"
            '      txtPassword.SetFocus
        Else
            MsgBox("Username does not exist.", 64, "Login Error")
            txtUserName.Focus()
            '   txtPassword.SetFocus
            System.Windows.Forms.SendKeys.Send("{Home}+{End}")
        End If
        If mLevel = "" Then
            Dbs.rscmdUserFile_Master.Close()
        End If
        'UPGRADE_WARNING: Screen property Screen.MousePointer has a new behavior. Click for more: 'ms-help://MS.VSCC.2003/commoner/redir/redirect.htm?keyword="vbup2065"'
        System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default
ErrorTrapper:
        ErrorTrapperFunction(Me.Name)
    End Sub

[tommygrayson]

Anyone please?

[gigemboy]

We would need more info... we need what error messages are showing, what line it is at, etc.. put a breakpoint at the start of that code, then step line by line (f11 i think) seeing the data as it changes, and where the errors are occurring....

[tommygrayson]

Thanks gigemboy for your response.

I have figured out what really happened.

VB .NET does not support data environment from VB 6.