مطلوب مساعدتكم .. محتاجة كود يحمل الصور و البيانات النصية من قاعدة البيانات الى العناصر المخصصة في الفورم ..
حاولت اعدل في هذا الكود و للاسف ما عرفت :D :
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 ConnPro.Close()
استخدم فيجول بيسك 2005 .. و قاعدة البيانات اكسس ..
تم النشر منذ
السلام عليكم و رحمة الله و بركاته
هاي صورة للتوضيح:
مطلوب مساعدتكم .. محتاجة كود يحمل الصور و البيانات النصية من قاعدة البيانات الى العناصر المخصصة في الفورم ..
حاولت اعدل في هذا الكود و للاسف ما عرفت :D :
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 ConnPro.Close()استخدم فيجول بيسك 2005 .. و قاعدة البيانات اكسس ..
منتظرة مساعدتكم :blush: ..
شارك هذا الرد
رابط المشاركة
شارك الرد من خلال المواقع ادناه