[استفسار] عرض البيانات mysql بستخدام Vb.net

[محروم.كوم]

السلام عليكم ورحمة الله وبركاته

اخواني عندي استفسار





انا نجحت ف الاتصال بقاعدة البيانات واستطيع تنفيذ استعلام select و لكن يعرض لي فقط سجل واحد في label انا اريد يعملي مثل php يعني fetch_array اريد اجيب كل السجلات مثلا في قائمة او جدول او شي من هالنوع


كود برنامجي

رمز Code:
Imports System.Data
Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim sqlstr As String = "select * from apointment where car_number='" + TextBox1.Text + "'"
con.ConnectionString = str
cmd.CommandText = sqlstr
cmd.Connection = con
con.Open()
myReader = cmd.ExecuteReader()
While myReader.Read
Label5.Text = myReader.GetValue(myReader.GetOrdinal("car_number" ))
Label6.Text = myReader.GetValue(myReader.GetOrdinal("car_name"))
Label7.Text = myReader.GetValue(myReader.GetOrdinal("person_name "))

Label8.Text = myReader.GetValue(myReader.GetOrdinal("apointment_ date"))
End While
con.Close()

Catch ex As Exception
MsgBox("هذا الملف غير موجود")
MsgBox(ex.Message)
End Try
End Sub


Private Sub Label7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label7.Click

End Sub
End Class

كود الموديل

اقتباس:
Imports MySql.Data.MySqlClient
Imports MySql.Data.MySqlClient.MySqlDataReader
Imports System.Data.SqlClient.SqlDataAdapter

Module Module1

Public con As New MySqlConnection
Public cmd As New MySqlCommand
Public str As String = "server=localhost;User Id=root;password=;database=vbnet;Persist Security Info=True"
Public myReader As MySqlDataReader

End Module
الرجاء التوضيح يا شباب ودمتم بكل الحب :icon30: __DEFINE_LIKE_SHARE__