+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] عرض الصورة من قاعدة البيانات (/showthread.php?tid=28605)
عرض الصورة من قاعدة البيانات - محمد اسماعيل - 14-02-19
السلام عليكم
اريد عرض صورة موظف بواجهة اخري غير المحفوظ فيها جدول الداتا جريد
اريد عرض الصورة من الداتا سيت الي صندوق الصور
حاولت بالكود دة وفشلت
كود :
indx = DATAG_EMPLOYE.SelectedRows(0).Index
fillDATASET(Me, DSDETAILS, "EMPLOYE_TB", "SELECT * FROM EMPLOYE_TB WHERE EMPLOYE_ID =" & DATAG_EMPLOYE(1, indx).Value.ToString() & "")
If DSDETAILS.Tables("EMPLOYE_TB").Rows.Count > 0 Then
Dim img As Byte()
' المشكلة هنا ' img = DSDETAILS.Tables("EMPLOYE_TB").Rows(0)("EMPLOYE_IMAGE").value
Dim ms As New MemoryStream(img)
FEMPLOYDETUPDAT.PIC_EMPLOYEE.Image = Image.FromStream(ms)
End IfRE: عرض الصورة من قاعدة البيانات - princelovelorn - 14-02-19
وعليكم السلام ورحمة الله وبركاته
جرب الكود التالي
كود :
Sub show_Image()
Dim indx = DATAG_EMPLOYE.SelectedRows(0).Index
Dim sql = "select * from EMPLOYE_TB where EMPLOYE_ID ='" & indx & "'"
Dim adp As New SqlClient.SqlDataAdapter(sql, sqlcon)
Dim ds As New DataSet
adp.Fill(ds)
Dim dt = ds.Tables(0)
If dt.Rows.Count = 0 Then
MsgBox("لم يتم العثور على السجل", MsgBoxStyle.Exclamation, "رسالة تنبيه")
Else
Dim dr = dt.Rows(0)
On Error Resume Next
If IsDBNull(dr!EMPLOYE_IMAGE) = False Then
Dim imgbytearray() As Byte
imgbytearray = CType(dr!EMPLOYE_IMAGE, Byte())
Dim stream As New MemoryStream(imgbytearray)
Dim bmp As New Bitmap(stream)
FEMPLOYDETUPDAT.PIC_EMPLOYEE.Image = Image.FromStream(stream)
stream.Close()
End If
End If
End Subتمنياتي لك بالتوفيق والنجاح
RE: عرض الصورة من قاعدة البيانات - محمد اسماعيل - 15-02-19
اسال [b]الله ان يجعلة في ميزان حسناتك[/b]
RE: عرض الصورة من قاعدة البيانات - princelovelorn - 15-02-19
(15-02-19, 06:12 AM)محمد اسماعيل كتب : اسال [b]الله ان يجعلة في ميزان حسناتك[/b]
اللهم أمين وإياك