Hello there

Question

johny1980 0 Newbie Poster

14 Years Ago

i am working on medical billing and coding project.i am at login page right now.
i create form and code but i had error for InvalidOperationExcepmtion was unhandled.
i am really thankful for help who will give.

my code is here :

Imports System.Data.OleDb

Public Class login
    Inherits System.Windows.Forms.Form
    Dim iCount As Integer
    Dim frmMain As New Welcomeadmin

    Private Sub btnlogon_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlogon.Click
        Dim ConString As String = "Provider=Microsoft.jet.OLEDB.4.0;Password;userid=Admin;Data Source=C:\project.mdb"
        Dim DBCon As New OleDb.OleDbConnection(ConString)
        g_login = Me.txtuserid.Text
        Dim strPassword As String = Me.txtpassword.Text
        If g_login = "" Or strPassword = "" Then
            MessageBox.Show("You are missing Information.Please check both UserId and Password fields are filed out.", "Missing Info")
            Me.txtuserid.Focus()
            Return
        End If

        Dim strsql As String = "SELECT [userid],[password] FROM tbluser WHERE [userid]='" & g_login & "'"
        Dim cm As New OleDb.OleDbCommand(strsql, DBCon)
        Dim dr As OleDb.OleDbDataReader
        Dim valid As Boolean = False
        Dim HasRows As Boolean = False
        Try
            DBCon.Open()
            dr = cm.ExecuteReader
            If dr.HasRows Then
                While dr.Read
                    If strPassword = dr.Item("password") Then
                        valid = True
                    End If
                End While
                HasRows = True
            End If
            dr.Close()

        Catch exO As OleDb.OleDbException
            MessageBox.Show(exO.Message)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
            If DBCon.State = ConnectionState.Open Then
                DBCon.Close()
            End If
            cm = Nothing
            dr = Nothing
            DBCon.Dispose()
            GC.Collect()
        End Try
        iCount = iCount + 1
        If valid = True Then
            Me.Hide()
            frmMain.Show()
        ElseIf iCount = 3 Then
            MessageBox.Show("Contact Admin !", "Invalid Info")
            Me.Close()
        ElseIf HasRows = False Then
            MessageBox.Show("Invalid User Id,try again !", "Invalid Info")
            Me.txtuserid.Focus()
            Me.txtuserid.Text = ""
            Me.txtpassword.Text = ""
        Else
            MessageBox.Show("Invalid Password, try again !", "Invalid Info")
            Me.txtpassword.Focus()
            Me.txtpassword.Text = ""
        End If

    End Sub

    Private Sub btncancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncancel.Click
        Me.Close()
    End Sub

    Private Sub login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'ProjectDataSet.tbluser' table. You can move, or remove it, as needed.
        ' Me.TbluserTableAdapter.Fill(Me.ProjectDataSet.tbluser)

    End Sub
End Class

vb.net

Edited 14 Years Ago by Nick Evan because: Added code-tags

3 Contributors
16 Replies
150 Views
3 Days Discussion Span
Latest Post 14 Years Ago Latest Post by finito

finito 46 Nearly a Posting Virtuoso

14 Years Ago

Welocme to the forums, Please use code tagging in future, I have sent out a request for now, it should be done anytime soon, but could you please indicate which line the error is thrown?

finito 46 Nearly a Posting Virtuoso

14 Years Ago

put your code in [ CODE][ / CODE] without the spaces

A mod should have already code tagged your code by now.

finito 46 Nearly a Posting Virtuoso

14 Years Ago

example

MessageBox.Show("Hello world")

would be in code tagging like this

[ CODE ]MessageBox.Show("Hello world")[ /CODE ] without spaces

to look like this

MessageBox.Show("Hello world")

Just Highlight your code and click on the code icon on the Message editor where it says Bold Italic Underlined

finito 46 Nearly a Posting Virtuoso

14 Years Ago

Imports System.Data.OleDb

Public Class login
Inherits System.Windows.Forms.Form
Dim iCount As Integer
Dim frmMain As New Welcomeadmin

Private Sub btnlogon_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlogon.Click
Dim ConString As String = "Provider=Microsoft.jet.OLEDB.4.0;Password;userid=Admin;Data Source=C:\project.mdb"
Dim DBCon As New OleDb.OleDbConnection(ConString)
g_login = Me.txtuserid.Text
Dim strPassword As String = Me.txtpassword.Text
If g_login = "" Or strPassword = "" Then
MessageBox.Show("You are missing Information.Please check both UserId and Password fields are filed out.", "Missing Info")
Me.txtuserid.Focus()
Return
End If

Dim strsql As String = "SELECT [userid],[password] FROM tbluser WHERE [userid]='" & g_login & "'"
Dim cm As New OleDb.OleDbCommand(strsql, DBCon)
Dim dr As OleDb.OleDbDataReader
Dim valid As Boolean = False
Dim HasRows As Boolean = False
Try
DBCon.Open()
dr = cm.ExecuteReader
If dr.HasRows Then
While dr.Read
If strPassword = dr.Item("password") Then
valid = True
End If
End While
HasRows = True
End If
dr.Close()

Catch exO As OleDb.OleDbException
MessageBox.Show(exO.Message)
Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
If DBCon.State = ConnectionState.Open Then
DBCon.Close()
End If
cm = Nothing
dr = Nothing
DBCon.Dispose()
GC.Collect()
End Try
iCount = iCount + 1
If valid = True Then
Me.Hide()
frmMain.Show()
ElseIf iCount = 3 Then
MessageBox.Show("Contact Admin !", "Invalid Info")
Me.Close()
ElseIf HasRows = False Then
MessageBox.Show("Invalid User Id,try again !", "Invalid Info")
Me.txtuserid.Focus()
Me.txtuserid.Text = ""
Me.txtpassword.Text = ""
Else
MessageBox.Show("Invalid Password, try again !", "Invalid Info")
Me.txtpassword.Focus()
Me.txtpassword.Text = ""
End If

End Sub

Private Sub btncancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncancel.Click
Me.Close()
End Sub

Private Sub login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'ProjectDataSet.tbluser' table. You can move, or remove it, as needed.
' Me.TbluserTableAdapter.Fill(Me.ProjectDataSet.tbluser)

End Sub
End Class

Can you please tell me which line you get the error?

Reply to this topic

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.

johny1980 0 Newbie Poster · Answer 1 · 2010-07-22T04:07:22+00:00

i am working on medical billing and coding project.i am at login page right now.
i create form and code but i had error for InvalidOperationExcepmtion was unhandled.
i am really thankful for help who will give.

my code is here :

Imports System.Data.OleDb

Public Class login
Inherits System.Windows.Forms.Form
Dim iCount As Integer
Dim frmMain As New Welcomeadmin

Private Sub btnlogon_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlogon.Click
Dim ConString As String = "Provider=Microsoft.jet.OLEDB.4.0;Password;userid=Admin;Data Source=C:\project.mdb"
Dim DBCon As New OleDb.OleDbConnection(ConString)
g_login = Me.txtuserid.Text
Dim strPassword As String = Me.txtpassword.Text
If g_login = "" Or strPassword = "" Then
MessageBox.Show("You are missing Information.Please check both UserId and Password fields are filed out.", "Missing Info")
Me.txtuserid.Focus()
Return
End If

Dim strsql As String = "SELECT [userid],[password] FROM tbluser WHERE [userid]='" & g_login & "'"
Dim cm As New OleDb.OleDbCommand(strsql, DBCon)
Dim dr As OleDb.OleDbDataReader
Dim valid As Boolean = False
Dim HasRows As Boolean = False
Try
DBCon.Open()
dr = cm.ExecuteReader
If dr.HasRows Then
While dr.Read
If strPassword = dr.Item("password") Then
valid = True
End If
End While
HasRows = True
End If
dr.Close()

Catch exO As OleDb.OleDbException
MessageBox.Show(exO.Message)
Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
If DBCon.State = ConnectionState.Open Then
DBCon.Close()
End If
cm = Nothing
dr = Nothing
DBCon.Dispose()
GC.Collect()
End Try
iCount = iCount + 1
If valid = True Then
Me.Hide()
frmMain.Show()
ElseIf iCount = 3 Then
MessageBox.Show("Contact Admin !", "Invalid Info")
Me.Close()
ElseIf HasRows = False Then
MessageBox.Show("Invalid User Id,try again !", "Invalid Info")
Me.txtuserid.Focus()
Me.txtuserid.Text = ""
Me.txtpassword.Text = ""
Else
MessageBox.Show("Invalid Password, try again !", "Invalid Info")
Me.txtpassword.Focus()
Me.txtpassword.Text = ""
End If

End Sub

Private Sub btncancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncancel.Click
Me.Close()
End Sub

Private Sub login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'ProjectDataSet.tbluser' table. You can move, or remove it, as needed.
' Me.TbluserTableAdapter.Fill(Me.ProjectDataSet.tbluser)

End Sub
End Class

johny1980 0 Newbie Poster · Answer 2 · 2010-07-22T04:08:11+00:00

i am working on medical billing and coding project.i am at login page right now.
i create form and code but i had error for InvalidOperationExcepmtion was unhandled.
i am really thankful for help who will give.

my code is here :

Imports System.Data.OleDb

Public Class login
Inherits System.Windows.Forms.Form
Dim iCount As Integer
Dim frmMain As New Welcomeadmin

Private Sub btnlogon_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlogon.Click
Dim ConString As String = "Provider=Microsoft.jet.OLEDB.4.0;Password;userid=Admin;Data Source=C:\project.mdb"
Dim DBCon As New OleDb.OleDbConnection(ConString)
g_login = Me.txtuserid.Text
Dim strPassword As String = Me.txtpassword.Text
If g_login = "" Or strPassword = "" Then
MessageBox.Show("You are missing Information.Please check both UserId and Password fields are filed out.", "Missing Info")
Me.txtuserid.Focus()
Return
End If

Dim strsql As String = "SELECT [userid],[password] FROM tbluser WHERE [userid]='" & g_login & "'"
Dim cm As New OleDb.OleDbCommand(strsql, DBCon)
Dim dr As OleDb.OleDbDataReader
Dim valid As Boolean = False
Dim HasRows As Boolean = False
Try
DBCon.Open()
dr = cm.ExecuteReader
If dr.HasRows Then
While dr.Read
If strPassword = dr.Item("password") Then
valid = True
End If
End While
HasRows = True
End If
dr.Close()

Catch exO As OleDb.OleDbException
MessageBox.Show(exO.Message)
Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
If DBCon.State = ConnectionState.Open Then
DBCon.Close()
End If
cm = Nothing
dr = Nothing
DBCon.Dispose()
GC.Collect()
End Try
iCount = iCount + 1
If valid = True Then
Me.Hide()
frmMain.Show()
ElseIf iCount = 3 Then
MessageBox.Show("Contact Admin !", "Invalid Info")
Me.Close()
ElseIf HasRows = False Then
MessageBox.Show("Invalid User Id,try again !", "Invalid Info")
Me.txtuserid.Focus()
Me.txtuserid.Text = ""
Me.txtpassword.Text = ""
Else
MessageBox.Show("Invalid Password, try again !", "Invalid Info")
Me.txtpassword.Focus()
Me.txtpassword.Text = ""
End If

End Sub

Private Sub btncancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncancel.Click
Me.Close()
End Sub

Private Sub login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'ProjectDataSet.tbluser' table. You can move, or remove it, as needed.
' Me.TbluserTableAdapter.Fill(Me.ProjectDataSet.tbluser)

End Sub
End Class

johny1980 0 Newbie Poster · Answer 3 · 2010-07-22T05:04:48+00:00

sorry buddy,
i m very new for this vb.
pls let me know how to do whatever u said..
thx

johny1980 0 Newbie Poster · Answer 4 · 2010-07-22T05:57:27+00:00

thx a lot for telling me ...and i m sorry about that..
for the error as i told you it did't say which line i had error.
that's why i attach word document which has image which tell you what's the error i got while run program..
i m not sure but it was line 7 or 37 ..but 37 has nothing on it.
that's all information i have for this code.
i request you pls take look at that attachment i attach in prev. thread..
again i appreciate you for help..
thx

Imports System.Data.OleDb

Public Class login
Inherits System.Windows.Forms.Form
Dim iCount As Integer
Dim frmMain As New Welcomeadmin

Private Sub btnlogon_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlogon.Click
Dim ConString As String = "Provider=Microsoft.jet.OLEDB.4.0;Password;userid=Admin;Data Source=C:\project.mdb"
Dim DBCon As New OleDb.OleDbConnection(ConString)
g_login = Me.txtuserid.Text
Dim strPassword As String = Me.txtpassword.Text
If g_login = "" Or strPassword = "" Then
MessageBox.Show("You are missing Information.Please check both UserId and Password fields are filed out.", "Missing Info")
Me.txtuserid.Focus()
Return
End If

Dim strsql As String = "SELECT [userid],[password] FROM tbluser WHERE [userid]='" & g_login & "'"
Dim cm As New OleDb.OleDbCommand(strsql, DBCon)
Dim dr As OleDb.OleDbDataReader
Dim valid As Boolean = False
Dim HasRows As Boolean = False
Try
DBCon.Open()
dr = cm.ExecuteReader
If dr.HasRows Then
While dr.Read
If strPassword = dr.Item("password") Then
valid = True
End If
End While
HasRows = True
End If
dr.Close()

Catch exO As OleDb.OleDbException
MessageBox.Show(exO.Message)
Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
If DBCon.State = ConnectionState.Open Then
DBCon.Close()
End If
cm = Nothing
dr = Nothing
DBCon.Dispose()
GC.Collect()
End Try
iCount = iCount + 1
If valid = True Then
Me.Hide()
frmMain.Show()
ElseIf iCount = 3 Then
MessageBox.Show("Contact Admin !", "Invalid Info")
Me.Close()
ElseIf HasRows = False Then
MessageBox.Show("Invalid User Id,try again !", "Invalid Info")
Me.txtuserid.Focus()
Me.txtuserid.Text = ""
Me.txtpassword.Text = ""
Else
MessageBox.Show("Invalid Password, try again !", "Invalid Info")
Me.txtpassword.Focus()
Me.txtpassword.Text = ""
End If

End Sub

Private Sub btncancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncancel.Click
Me.Close()
End Sub

Private Sub login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'ProjectDataSet.tbluser' table. You can move, or remove it, as needed.
' Me.TbluserTableAdapter.Fill(Me.ProjectDataSet.tbluser)

End Sub
End Class

Can you please tell me which line you get the error?

finito 46 Nearly a Posting Virtuoso · Answer 5 · 2010-07-22T11:26:32+00:00

when you run the code the program stops and highlights the line in Yellow when it has a problem. tell me which line that is.

johny1980 0 Newbie Poster · Answer 6 · 2010-07-22T19:06:35+00:00

hello buddy,
i know very well u asking about error.
but believe me when i was run program, it didn't show me where is the error.i also knew exception handling error shows in yellow line.
but i this case i didn't get where i was code wrong or what's wrong with exception.
And tht's why i provide tht attachment .doc to see how i got error.

let me know any other way that i can catch the error by line.

thank you very much for help

G_Waddell 131 Posting Whiz in Training · Answer 7 · 2010-07-22T20:23:03+00:00

Hi,

You are not checking your password value (from your query) to see if it is null it is possible that the exception is being thrown as you try to compare a string to a null value.

If strPassword = dr.Item("password") Then

(line 30)

Personally I'd change my query to something like this:

Dim strsql As String = "SELECT COUNT([userid]) FROM tbluser WHERE [userid]='" & g_login & "' AND [password] ='" &strPassword &"'"

If the entered details where correct, you should get 1 if not, a 0 that way you don't have to worry about nulls.

Again just personal preference

johny1980 0 Newbie Poster · Answer 8 · 2010-07-24T19:09:48+00:00

Hello buddy...
i got tht error line in this code..i debug line by line and i found when i was in line # 7 tht means this line "Dim frmMain As New Welcomeadmin" i had yellow bgroung on "frmMain"
and after tht i got error " InvalidOperationException was unhandle "

I think this going to help you.

thx a lot for helping me.

Imports System.Data.OleDb

Public Class login
Inherits System.Windows.Forms.Form
Dim iCount As Integer
[B]Dim frmMain As New Welcomeadmin[/B]

Private Sub btnlogon_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlogon.Click
Dim ConString As String = "Provider=Microsoft.jet.OLEDB.4.0;Password;userid=Admin;Data Source=C:\project.mdb"
Dim DBCon As New OleDb.OleDbConnection(ConString)
g_login = Me.txtuserid.Text
Dim strPassword As String = Me.txtpassword.Text
If g_login = "" Or strPassword = "" Then
MessageBox.Show("You are missing Information.Please check both UserId and Password fields are filed out.", "Missing Info")
Me.txtuserid.Focus()
Return
End If

Dim strsql As String = "SELECT [userid],[password] FROM tbluser WHERE [userid]='" & g_login & "'"
Dim cm As New OleDb.OleDbCommand(strsql, DBCon)
Dim dr As OleDb.OleDbDataReader
Dim valid As Boolean = False
Dim HasRows As Boolean = False
Try
DBCon.Open()
dr = cm.ExecuteReader
If dr.HasRows Then
While dr.Read
If strPassword = dr.Item("password") Then
valid = True
End If
End While
HasRows = True
End If
dr.Close()

Catch exO As OleDb.OleDbException
MessageBox.Show(exO.Message)
Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
If DBCon.State = ConnectionState.Open Then
DBCon.Close()
End If
cm = Nothing
dr = Nothing
DBCon.Dispose()
GC.Collect()
End Try
iCount = iCount + 1
If valid = True Then
Me.Hide()
frmMain.Show()
ElseIf iCount = 3 Then
MessageBox.Show("Contact Admin !", "Invalid Info")
Me.Close()
ElseIf HasRows = False Then
MessageBox.Show("Invalid User Id,try again !", "Invalid Info")
Me.txtuserid.Focus()
Me.txtuserid.Text = ""
Me.txtpassword.Text = ""
Else
MessageBox.Show("Invalid Password, try again !", "Invalid Info")
Me.txtpassword.Focus()
Me.txtpassword.Text = ""
End If

End Sub

Private Sub btncancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncancel.Click
Me.Close()
End Sub

Private Sub login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'ProjectDataSet.tbluser' table. You can move, or remove it, as needed.
' Me.TbluserTableAdapter.Fill(Me.ProjectDataSet.tbluser)

End Sub
End Class

Can you please tell me which line you get the error?

Hello buddy...
i got tht error line in this code..i debug line by line and i found when i was in line # 7 tht means this line "Dim frmMain As New Welcomeadmin" i had yellow bgroung on "frmMain"
and after tht i got error " InvalidOperationException was unhandle "

I think this going to help you.

thx a lot for helping me.

johny1980 0 Newbie Poster · Answer 9 · 2010-07-24T19:12:33+00:00

Imports System.Data.OleDb

Public Class login
Inherits System.Windows.Forms.Form
Dim iCount As Integer
Dim frmMain As New Welcomeadmin

Private Sub btnlogon_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlogon.Click
Dim ConString As String = "Provider=Microsoft.jet.OLEDB.4.0;Password;userid=Admin;Data Source=C:\project.mdb"
Dim DBCon As New OleDb.OleDbConnection(ConString)
g_login = Me.txtuserid.Text
Dim strPassword As String = Me.txtpassword.Text
If g_login = "" Or strPassword = "" Then
MessageBox.Show("You are missing Information.Please check both UserId and Password fields are filed out.", "Missing Info")
Me.txtuserid.Focus()
Return
End If

Dim strsql As String = "SELECT [userid],[password] FROM tbluser WHERE [userid]='" & g_login & "'"
Dim cm As New OleDb.OleDbCommand(strsql, DBCon)
Dim dr As OleDb.OleDbDataReader
Dim valid As Boolean = False
Dim HasRows As Boolean = False
Try
DBCon.Open()
dr = cm.ExecuteReader
If dr.HasRows Then
While dr.Read
If strPassword = dr.Item("password") Then
valid = True
End If
End While
HasRows = True
End If
dr.Close()

Catch exO As OleDb.OleDbException
MessageBox.Show(exO.Message)
Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
If DBCon.State = ConnectionState.Open Then
DBCon.Close()
End If
cm = Nothing
dr = Nothing
DBCon.Dispose()
GC.Collect()
End Try
iCount = iCount + 1
If valid = True Then
Me.Hide()
frmMain.Show()
ElseIf iCount = 3 Then
MessageBox.Show("Contact Admin !", "Invalid Info")
Me.Close()
ElseIf HasRows = False Then
MessageBox.Show("Invalid User Id,try again !", "Invalid Info")
Me.txtuserid.Focus()
Me.txtuserid.Text = ""
Me.txtpassword.Text = ""
Else
MessageBox.Show("Invalid Password, try again !", "Invalid Info")
Me.txtpassword.Focus()
Me.txtpassword.Text = ""
End If

End Sub

Private Sub btncancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncancel.Click
Me.Close()
End Sub

Private Sub login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'ProjectDataSet.tbluser' table. You can move, or remove it, as needed.
' Me.TbluserTableAdapter.Fill(Me.ProjectDataSet.tbluser)

End Sub
End Class

finito 46 Nearly a Posting Virtuoso · Answer 10 · 2010-07-24T19:16:05+00:00

do You have a form called Welcomeadmin?

Please use code tagging.

Select your Code and Click on CODE

Or Type it.
Before and After the code but add a / in the ending code.

johny1980 0 Newbie Poster · Answer 11 · 2010-07-24T21:20:17+00:00

the Welcomeadmin is my nxt form after login to direct user over there..right not it's blank nothing on it.

Imports System.Data.OleDb

Public Class login
Inherits System.Windows.Forms.Form
Dim iCount As Integer
Dim frmMain As New Welcomeadmin

Private Sub btnlogon_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlogon.Click
Dim ConString As String = "Provider=Microsoft.jet.OLEDB.4.0;Password;userid=Admin;Data Source=C:\project.mdb"
Dim DBCon As New OleDb.OleDbConnection(ConString)
g_login = Me.txtuserid.Text
Dim strPassword As String = Me.txtpassword.Text
If g_login = "" Or strPassword = "" Then
MessageBox.Show("You are missing Information.Please check both UserId and Password fields are filed out.", "Missing Info")
Me.txtuserid.Focus()
Return
End If

Dim strsql As String = "SELECT [userid],[password] FROM tbluser WHERE [userid]='" & g_login & "'"
Dim cm As New OleDb.OleDbCommand(strsql, DBCon)
Dim dr As OleDb.OleDbDataReader
Dim valid As Boolean = False
Dim HasRows As Boolean = False
Try
DBCon.Open()
dr = cm.ExecuteReader
If dr.HasRows Then
While dr.Read
If strPassword = dr.Item("password") Then
valid = True
End If
End While
HasRows = True
End If
dr.Close()

Catch exO As OleDb.OleDbException
MessageBox.Show(exO.Message)
Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
If DBCon.State = ConnectionState.Open Then
DBCon.Close()
End If
cm = Nothing
dr = Nothing
DBCon.Dispose()
GC.Collect()
End Try
iCount = iCount + 1
If valid = True Then
Me.Hide()
frmMain.Show()
ElseIf iCount = 3 Then
MessageBox.Show("Contact Admin !", "Invalid Info")
Me.Close()
ElseIf HasRows = False Then
MessageBox.Show("Invalid User Id,try again !", "Invalid Info")
Me.txtuserid.Focus()
Me.txtuserid.Text = ""
Me.txtpassword.Text = ""
Else
MessageBox.Show("Invalid Password, try again !", "Invalid Info")
Me.txtpassword.Focus()
Me.txtpassword.Text = ""
End If

End Sub

Private Sub btncancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncancel.Click
Me.Close()
End Sub

Private Sub login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'ProjectDataSet.tbluser' table. You can move, or remove it, as needed.
' Me.TbluserTableAdapter.Fill(Me.ProjectDataSet.tbluser)

End Sub
End Class

finito 46 Nearly a Posting Virtuoso · Answer 12 · 2010-07-24T22:52:59+00:00

You don't have to keep posting your code everytime.

Please make sure that the name of the Form is spelled exactly like Welcomeadmin including Caps.