21-09-13, 05:44 PM
سلام ..
بثقل عليكم شوية .. بسؤال ثاني ..
عندي هذا الكود .. يعرض بيانات من الداتابيس اكسس ..
Dim CmdSelectPro As New OleDbCommand("Select * From TblEmp Where EmpID =" & EmpID, ConnPro)
Dim RdrSelectPro As OleDbDataReader
Dim ProPicData() As Byte
Dim ProByteData As MemoryStream
Try
RdrSelectPro = CmdSelectPro.ExecuteReader
RdrSelectPro.Read()
w1.Text = RdrSelectPro("EmpName")
ProPicData = RdrSelectPro("EmpPic")
ProByteData = New MemoryStream(ProPicData)
q1.Image = Image.FromStream(ProByteData)
ConnPro.Close()
Catch ex As Exception
MessageBox.Show("Kindly, enter a valid employee id", "Incorrect Employee ID")
End Try
كيف ممكن اعدل على الكود بحيث اقدر اعرض مجموعة من البيانات في نفس الوقت يعني اعرض كل محتويات الجدول بكبسة زر واحدة من خلال هذا الكود ؟ .. ؟؟
لأنو عندي اكثر من صندوق صور واحد لازم ينعرضوا بالضغط على الزر ..
ساعدوني بليييز
بثقل عليكم شوية .. بسؤال ثاني ..
عندي هذا الكود .. يعرض بيانات من الداتابيس اكسس ..
Dim CmdSelectPro As New OleDbCommand("Select * From TblEmp Where EmpID =" & EmpID, ConnPro)
Dim RdrSelectPro As OleDbDataReader
Dim ProPicData() As Byte
Dim ProByteData As MemoryStream
Try
RdrSelectPro = CmdSelectPro.ExecuteReader
RdrSelectPro.Read()
w1.Text = RdrSelectPro("EmpName")
ProPicData = RdrSelectPro("EmpPic")
ProByteData = New MemoryStream(ProPicData)
q1.Image = Image.FromStream(ProByteData)
ConnPro.Close()
Catch ex As Exception
MessageBox.Show("Kindly, enter a valid employee id", "Incorrect Employee ID")
End Try
كيف ممكن اعدل على الكود بحيث اقدر اعرض مجموعة من البيانات في نفس الوقت يعني اعرض كل محتويات الجدول بكبسة زر واحدة من خلال هذا الكود ؟ .. ؟؟
لأنو عندي اكثر من صندوق صور واحد لازم ينعرضوا بالضغط على الزر ..
ساعدوني بليييز
