[Nickless]

Hi.

Have been struggling to write a database into a msgbox.
This is the code:

Dim login = Me.UsersTableAdapter1.Login(User.Text, Pass.Text)


        If login Is Nothing Then
            MsgBox("Username or Password is incorrect!", MsgBoxStyle.Critical, "Login Error")
        Else
            Dim Userinformation = Me.UsersTableAdapter1.GetUserInfo(User.Text, Pass.Text)

            MsgBox("Welcome " & Userinformation, MsgBoxStyle.Information, "Access Granted")

The database is a MS Access-file. The first part where I check that the user exists and that the password/username is correct works.
But I want to write Welcome "firstname of the user".

All the information should be in the Userinformation variable. But how can I get the firstname value?

This post has been edited by Nickless: 30 October 2010 - 03:31 AM

[CharlieMay]

Try:

MsgBox("Welcome " & User.Text, MsgBoxStyle.Information, "Access Granted")

Not sure what Userinformation is at this point but if it's successful, then User.Text should be the correct user anyway.

[Nickless]

CharlieMay, on 30 October 2010 - 05:31 AM, said:

Try:

MsgBox("Welcome " & User.Text, MsgBoxStyle.Information, "Access Granted")

Not sure what Userinformation is at this point but if it's successful, then User.Text should be the correct user anyway.

Thanks for your reply.

But User.text is the username the user types in when he/she logs in. User.Pass is the password.
What I want is the FirstName column of the Users-table where the username is User.text
Is there anyway to do it?

[CharlieMay]

I assume UserInformation is a class that stores all this information? Is that correct. If so, is there a property that holds the FirstName (something like: FirstName). If so, then you would use:

Quote

MsgBox("Welcome " & UserInformation.FirstName, MsgBoxStyle.Information, "Access Granted")

Note to Moderators, I left the code outside a code window to allow for the bold text

This post has been edited by CharlieMay: 30 October 2010 - 09:34 AM

[Nickless]

Can't UserInformation.FirstName :S Can use UserInformation.FirstNameColumn, but that only returns the name of the column, not the value. If I write UserInformation.FirstName I get the error:

'FirstName' is not a member of 'WindowsApplication1.UsersDataSet.UsersDataTable'.

The UserDataSet is some preset functions that shall return the value. In side the UserDataSet I Have a function called GetUserInfo(Username, Password).

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim login = LoginChecker.LoginCheck(Username.Text, Password.Text)

        If login Is Nothing Then
            MsgBox("Invalid Username or Password", MsgBoxStyle.Critical, "Access Denied")
        Else
            Dim DataTable As DataTable
            Dim Userinformation = LoginChecker.GetUserInfo(Username.Text, Password.Text)
            DataTable = LoginChecker.GetUserInfo(Username.Text, Password.Text)

            MsgBox(Userinformation.FirstName, MsgBoxStyle.Information, "Access Granted")

The first part:

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim login = LoginChecker.LoginCheck(Username.Text, Password.Text)

returns 1 if the login is valid, this part works. But as soon as I try the other part(GetUserInfo)which will return FirstName,LastName,Address,Phone and so on I get problems. Don't know how to get does attributes out :S

Hope you understand the problem

[CharlieMay]

show the code for LoginCheck and GetUserInfo

[Nickless]

LoginCheck and GetUserInfo are functions created in UserDataSet and when I doble click on them they are empty functions.

Partial Class UsersDataSet
    Partial Class UsersDataTable

    End Class

End Class


Partial Class UsersDataSet
    Partial Class UsersDataTable

    End Class

End Class

If I Right click on them and choose configure I get the following:

#####This is the GetUserInfo ####
SELECT        FirstName
FROM            Users
WHERE        (Username = ?) AND ([Password] = ?)

#####This is the LoginCheck ####
SELECT        COUNT(*) AS Result, Username, [Password]
FROM            Users
GROUP BY Username, [Password]
HAVING        (Username = ?) AND ([Password] = ?) AND (COUNT(*) = 1)

But I found a solution that works:

    Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim login = LoginChecker.LoginCheck(Username.Text, Password.Text)
        If login Is Nothing Then
            MsgBox("Invalid Username or Password", MsgBoxStyle.Critical, "Access Denied")
        Else
            Dim cN As OleDbConnection
            Dim myDataReader As OleDbDataReader
            Dim myOleDbCommand As OleDbCommand
            Dim DataTable As DataTable
            Dim Userinformation = LoginChecker.GetUserInfo(Username.Text, Password.Text)
            DataTable = LoginChecker.GetUserInfo(Username.Text, Password.Text)

            Dim user As String = Username.Text
            cN = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source= Path to Access-file")
            myOleDbCommand = New OleDbCommand("SELECT FirstName FROM Users WHERE username ='" + user + "'", cN)
            cN.Open()

            myDataReader = myOleDbCommand.ExecuteReader()

            myDataReader.Read()
            MsgBox(myDataReader.GetString(0), MsgBoxStyle.Information, "Access Granted")

        End If

    End Sub

Do I have to do it like this, or is there another way?

Thank you for your help so far =)

[CharlieMay]

Well, that would work, but I agree, it appears from the Query that GetUserInfo would return the FirstName. What does UserInformation actually contain when you tried it in your original code?

[AdamSpeight2008]

Be careful.

Nothing is not the same as 0 (Zero). Nothing means default instance of the value type (Generally this 0 but not always). For reference type is Nothing means it has no reference.

Dim login = LoginChecker.LoginCheck(Username.Text, Password.Text)
 If login <> 1 Then 
 Else
 EndIf

As I notice that LoginChecker.LoginCheck(Username.Text, Password.Text) looks to attempting to return two different types Integer or DataTable. vb.net doesn't allow method overload with the same type signature to differ only on return types.

[Nickless]

CharlieMay, on 30 October 2010 - 01:11 PM, said:

Well, that would work, but I agree, it appears from the Query that GetUserInfo would return the FirstName. What does UserInformation actually contain when you tried it in your original code?

As far as I can remember it didn't contain any values. I could only write stuff like:
UserInformation.FirstNameColumn, USerInformation.Select() <--- Tryed to put FirstName in as a parameter but no luck.

And Userinformation.FirstNameColumn just returned FirstName. So it appears that it got contact since it knows the name of the column, but didn't manager to write any values.

AdamSpeight2008 said:

Be careful.

Nothing is not the same as 0 (Zero). Nothing means default instance of the value type (Generally this 0 but not always). For reference type is Nothing means it has no reference.

view source
print?
1 Dim login = LoginChecker.LoginCheck(Username.Text, Password.Text)
2 If login <> 1 Then
3 Else
4 EndIf


As I notice that LoginChecker.LoginCheck(Username.Text, Password.Text) looks to attempting to return two different types Integer or DataTable. vb.net doesn't allow method overload with the same type signature to differ only on return types.

Thanks for the heads up Will change the code on that part.