I know this might have came up, but i have a login code and once logged in it would show u your information that u entered in the sql database just for that one person that logged in. Here is my problem when i login it shows another users information, please help i would really apperciate it.
here is the wrong code :P
Module Module1
Dim connection As New SqlClient.SqlConnection
Dim command As New SqlClient.SqlCommand
' Login and connecting to the database.
Public Sub Connect()
Dim adapter As New SqlClient.SqlDataAdapter
Dim dataset As New DataSet
connection.ConnectionString = ("Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\database.mdf;Integrated Security=True;User Instance=True")
command.CommandText = "SELECT * FROM [pilots] WHERE pilotid = '" & LoginForm.TextBox1.Text & "' AND password = '" & LoginForm.MaskedTextBox1.Text & "';"
connection.Open()
command.Connection = connection
adapter.SelectCommand = command
adapter.Fill(dataset, "0")
Dim count = dataset.Tables(0).Rows.Count
If count > 0 Then
UserArea.Show()
LoginForm.Close()
Else
MsgBox("Wrong Login!")
End If
End Sub
' here u would get the users information
Public Sub GetInfo()
Try
command.Connection = connection
command.CommandText = "SELECT * FROM [table]"
Dim lrd As SqlClient.SqlDataReader = command.ExecuteReader()
While lrd.Read()
PilotArea.Label8.Text = "First Name: " + lrd(0).ToString()
PilotArea.Label9.Text = "Last Name: " + lrd(1).ToString()
End While
Catch ex As Exception
MessageBox.Show("Error has occured on recieving credentials!" & ex.Message, "Loading Credentails!")
Finally
connection.Close()
End Try
End Sub
' this just closes the connection
Public Sub DestroySession()
connection.Close()
End Sub
End ModuleTHANKS!!!! :)!!!!!!!!!
