السلام عليكم
اخواني الكرام انا بعمل شاشة دخول لبرنامج على vb.net 2005
واواجهة مشكة بالكود المطروح
Private Sub Btnok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnok.Click
Dim myConnection As SqlConnection
myConnection = New SqlConnection("Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Documents and Settings\ALRAYAH\My Documents\Visual Studio 2005\Projects\Project\proect1\database\alraed_software.mdf;Integrated Security=True; Connect Timeout=30;User Instance=True;")
Dim myCommand As SqlCommand
myCommand = New SqlCommand("SELECT username,password FROM user WHERE username = @UsernameTextBox AND password = @passwordTextBox", myConnection)
Dim uName As New SqlParameter("@UsernameTextBox", SqlDbType.NVarChar)
Dim uPassword As New SqlParameter("@passwordTextBox", SqlDbType.NVarChar)
uName.Value = UsernameTextBox.Text
uPassword.Value = PasswordTextBox.Text
myCommand.Parameters.Add(uName)
myCommand.Parameters.Add(uPassword)
myCommand.Connection.Open()
Dim myReader As SqlDataReader = myCommand.ExecuteReader(CommandBehavior.CloseConnection)
Dim Login As Object = 0
If myReader.HasRows Then
myReader.Read()
Login = myReader(Login)
End If
If Login = Nothing Then
MessageBox.Show("Sorry, username/password details were incorrect")
Else
MessageBox.Show("Login successful")
Me.Hide()
Form1.Show()
End If
End Subويعطي الرسالة التالية :
incrrect synatx near the keyword 'user
ارجوا منكم الحل
