منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : مشكلة فى زر Login الخاص بشاشة الدخول
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
ده الكود اللى استخدمته
 Private Sub LoginButton_Click(sender As Object, e As EventArgs) Handles LoginButton.Click
        Try
            Dim con As New SqlConnection("Data source=.;Initial Catalog=ChurchMembership;Integrated Security=True")

            If TextBoxUsername.Text = "" Then
                MsgBox("You Must Enter The Username", MsgBoxStyle.Exclamation, "Error")
            End If
            If TextBoxPassword.Text = "" Then
                MsgBox("You Must Enter The Password", MsgBoxStyle.Exclamation, "Error")
            End If
            Dim Str As String = "select * from Users where Username =" & TextBoxUsername.Text & "and Password=" & TextBoxPassword.Text & ""
            Dim da As New SqlDataAdapter(Str, Con)
            Dim ds As New DataSet
            da.Fill(ds)
            If ds.Tables(0).Rows.Count > 0 Then
                Me.Hide()
                MdiParent.Show()
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
وعند التنفيذ تظهر لى رسالة 
Incorrect syntax near 'Password'
28 lمشاهدة ومحدش عنده رد  Sad
(17-05-18, 12:12 AM)Michael Maher كتب : [ -> ]28 lمشاهدة ومحدش عنده رد  Sad

PHP كود :
Private Sub LoginButton_Click(sender As ObjectAs EventArgsHandles LoginButton.Click
        Try
            Dim con 
As New SqlConnection("Data source=.;Initial Catalog=ChurchMembership;Integrated Security=True")

 
           If TextBoxUsername.Text "" Then
                MsgBox
("You Must Enter The Username"MsgBoxStyle.Exclamation"Error")
 
           End If
 
           If TextBoxPassword.Text "" Then
                MsgBox
("You Must Enter The Password"MsgBoxStyle.Exclamation"Error")
 
           End If
 
           Dim Str As String "select * from Users where Username =" TextBoxUsername.Text "and Password=" TextBoxPassword.Text ""
 
           Dim da As New SqlDataAdapter(StrCon)
 
           Dim ds As New DataSet
            da
.Fill(ds)
 
           If ds.Tables(0).Rows.Count 0 Then
                Me
.Hide()
 
               MdiParent.Show()
 
           End If
 
       Catch ex As Exception
            MsgBox
(ex.Message)
 
       End Try
 
   End Sub 
ضع فراغ قبلand Password

PHP كود :
Username ='" & TextBoxUsername.Text & "' and Password=
للاستعلام عن نص استخدم علامات التنصيص المفردة '
شكرا لردك يا اخ سعود وكل عام وانت بخير  Smile

كتبت الكود وعند التنفيذ بيقولى 'invalid column name 'admin
(17-05-18, 03:54 PM)Michael Maher كتب : [ -> ]شكرا لردك يا اخ سعود وكل عام وانت بخير  Smile

كتبت الكود وعند التنفيذ بيقولى 'invalid column name 'admin

المرسول واضح من عنوانه
راجع أخي الكريم أسماء الأعمدة لديك بقاعدة البيانات
تحياتي
(17-05-18, 03:54 PM)Michael Maher كتب : [ -> ]شكرا لردك يا اخ سعود وكل عام وانت بخير  Smile

كتبت الكود وعند التنفيذ بيقولى 'invalid column name 'admin

العفو اخي الكريم مثل ما قال اخونا البسكري  لايوجد عمود بالاسم  المحدد.
المهم ان الرسالة الاولى عولجتSmile
شكرا لردكم 
انا عندى عمود باسم "Username" وعمود باسم "Password"
والقيم لكل منهم admin

[attachment=18072]