Login

[martialdc]

Using this code to Log in

'Filter
DataSet11.User.DefaultView.RowFilter = "UserName = '" & TextBox1.Text & "' And Password='" & TextBox2.Text & "'"

If DataSet11.User.Count = 1 Then
Dim aForm As New MDIForm()
aForm.Show()
End If

I have already the correct UserName and Password but I can't log in. Attached with this is the Project that I am doing. Please check it..

Kindly help me to do this? Or any other idea to make my Login more presentable.

[crpietschmann]

Change the code in your btnOK_Click procedure of the frmLogin to the following code. And it will work.

'Filter
DataSet11.User.DefaultView.RowFilter = "UserName = '" & TextBox1.Text & "' And Password='" & TextBox2.Text & "'"
 
Dim dv As DataView
dv = DataSet11.Tables("User").DefaultView
 
If dv.Count = 1 Then
     Dim aForm As New MDIForm()
     aForm.Show()
End If
 
dv.Dispose()

[martialdc]

I try to use the code but it doesn't work.
'Filter
DataSet11.User.DefaultView.RowFilter = "UserName = '" & TextBox1.Text & "' And Password='" & TextBox2.Text & "'"

Dim dv As DataView
dv = DataSet11.Tables("User").DefaultView

If dv.Count = 1 Then
Dim aForm As New MDIForm()
aForm.Show()
End If

dv.Dispose()

I try MessageBox.Show(dv.Count) and the message box display 0 even i type the correct username and password.

[crpietschmann]

I ran the code on my own machine. I know it works.

Ok, as long as you put in the correct username and password the first time it works. It didn't work when I typed the wrong password, then the right one.

[martialdc]

Kindly attach the file for me. I try to do it here on my own but it really don't work.. pls.pls.