[norhan ahmad]

السلام عليكم

ارجو مساعدتي ضروري جدا

اريد ان يظهر لي مسج بان الرقم الذي تم ادخاله غير موجود وبالتالي لاتظهر له اي بيانات
كمان ان لدي مشكله اني اذا وضع رقم 1 مثلا و عملت بحث يظهر لي بياناتو لكن اذا وضعت بعد ذلك رقم 2 يظهر لدي ايضا اسماء الدورات التي اخذها رقم 1 او في حاله ادخلت رقم 100 وهو غير موجود ايضا تظهر لي بيانات

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim MysqlConn As SqlConnection
        Dim Command As SqlCommand
        MysqlConn = New SqlConnection
        MysqlConn.ConnectionString = "Data Source = PC-PC\SQLEXPRESS;Initial Catalog=Test;Integrated Security=True"

        Dim Reader As SqlDataReader
        If TextBox1.Text = "" Then
            MsgBox("قم بإدخال رقم ")
Else

            Try


                MysqlConn.Open()
                Dim Qurey As String

                Qurey = ("select * from Courses where Military=" & TextBox1.Text)

                Command = New SqlCommand(Qurey, MysqlConn)
                Reader = Command.ExecuteReader
               

                While Reader.Read
                    Dim Sname = Reader("NameCourses")
                    ListBox1.Items.Add(Sname)
                    ListBox1.Text = ""
                End While

                MysqlConn.Close()




            Catch ex As SqlException
                MsgBox(ex.Message)

            Finally
                MysqlConn.Dispose()

            End Try

        End If


    End Sub

رجو منكم مساعدتي في حل مشكلة هذا الكود ,,,,, ضروري جدا

[wael_hassan]

اضيفي
ListBox1.Items.Clear()
قبل
ListBox1.Items.Add(Sname)

[wael_hassan]

سيصبح الكود

  ListBox1.Items.Clear()
 If Reader.HasRows Then
               While Reader.Read                  
   Dim Sname = Reader("NameCourses")    
                 ListBox1.Items.Add(Sname)               
      ListBox1.Text = ""          
       End While
Else
MsgBox("الرقم غير موجود ")

End If

اعذريني اذا كنت قد اخطأت في الكود انا لا استخدم فاجوال بيسك
انا ابرمج بلغة
c,c++ , c#
اذا كان عندك اسئله في هذه اللغات انا مستعد لاجابتها
ارجو المشاركة في موضوعي
http://www.qariya.info/vb/showthread.php?t=153289