[MuwafaQ_mybb_import4690]

مرحبا أخي،

أقوم بعرض الناتج في تكست بوكس (أدرى انها طبيعي تعرض نائج واحد) لكن لم اجد شرح غير هذا ..

أتمني تفيدني بطريقه تعرض جميع النتائج ، ولو فيه أسلوب استعلام أبسط وأفضل من هيك

وجزاك الله كل خير

كود :

Dim SqlStr As String
        Dim Cmd As SqlCommand



        Dim DR As SqlDataReader
        SqlStr = "SELECT * from Table_User WHERE (Table_User.address='" & ComboBox1.Text & "' and Table_User.bld_type='" & ListBox1.Text & "')"
        Con.Open()
        Cmd = New SqlCommand(SqlStr, Con)
        DR = Cmd.ExecuteReader
        If DR.HasRows Then
            While DR.Read
                tb1.Text = DR("name")
                tb2.Text = DR("address")
                tb3.Text = DR("phone")
                tb4.Text = DR("blood_type")
                tb5.Text = DR("contact_type")
                tb6.Text = DR("contact_time")
            End While
        Else
            MsgBox("Not Found")
        End If
        Con.Close()