الصورة في سكول - نسخة قابلة للطباعة

الصورة في سكول - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم أسئلة قواعد البيانات تحت بيئة الـ.NET (http://vb4arb.com/vb/forumdisplay.php?fid=41)
+--- الموضوع : الصورة في سكول (/showthread.php?tid=2922)

الصورة في سكول - محاسب يوسف - 19-05-14

السلام عليكم
هل افضل نوع للصورة
image
وسؤالي مثلا البحث في id
وعند الضغط 1
تظهر الصورة الخاصة ب1 التي تم حفظها من قبل في PictureBox
ماهو الكود عند الضغط على الرقم مثلا1 يظهر الصورة الخاصة به في PictureBox

RE: الصورة في سكول - Sajad - 19-05-14

السلام عليكم

انظر الى هذا الموضوع

http://www.vb4arb.com/vb/thread-1075.html

تحياتي

RE: الصورة في سكول - محاسب يوسف - 19-05-14

شكرا للرد ولكن انا لاستخدم linq

RE: الصورة في سكول - Sajad - 19-05-14

طيب

انظر الى الموضوع التالي:

http://www.vb4arb.com/vb/thread-336.html

تحياتي

RE: الصورة في سكول - سعود - 20-05-14

شوف المثال هذا استخدمت نوع بيناري

RE: الصورة في سكول - محاسب يوسف - 20-05-14

السلام عليكم
هذا هو كود عرض الصورة حسب البحث ولكن المشكلة اذا كان حقل الصورة imm
لايحتوي صورة يعطي خطا ولكن اذا كان يحتوي صورة لايعطي خطا مالحل
والخطا يظهر
[b] imgByteArray = ds2.Tables(0).Rows(0).Item(0)[/b]
[Try
Dim ds2 As New DataSet
Dim add As New addshed
ds2 = add.dayByNumcture(Val(TXTBiD.Text))
If ds2.Tables(0).Rows.Count > 0 Then

Dim imgByteArray() As Byte
[b] imgByteArray = ds2.Tables(0).Rows(0).Item(0)[/b]

Dim Stream As New MemoryStream(imgByteArray, True)
Dim Img As System.Drawing.Image = New Bitmap(Stream)
imgSave.Image = Img
End If

Catch ex As Exception
addpicture2()
End Try/code]

RE: الصورة في سكول - محاسب يوسف - 20-05-14

مع العلم ان داتا sql server2008r2
typ image

RE: الصورة في سكول - محاسب يوسف - 21-05-14

محتاج مساعدة للجواب لو سمحتم
هذا هو كود عرض الصورة حسب البحث ولكن المشكلة اذا كان حقل الصورة imm
لايحتوي صورة يعطي خطا ولكن اذا كان يحتوي صورة لايعطي خطا مالحل
والخطا يظهر
imgByteArray = ds2.Tables(0).Rows(0).Item(0)
[Try
Dim ds2 As New DataSet
Dim add As New addshed
ds2 = add.dayByNumcture(Val(TXTBiD.Text))
If ds2.Tables(0).Rows.Count > 0 Then

Dim imgByteArray() As Byte
imgByteArray = ds2.Tables(0).Rows(0).Item(0)

Dim Stream As New MemoryStream(imgByteArray, True)
Dim Img As System.Drawing.Image = New Bitmap(Stream)
imgSave.Image = Img
End If

Catch ex As Exception
addpicture2()
End Try/code]

RE: الصورة في سكول - حريف برمجة - 21-05-14

تعمل شرط للتأكد من وجود الصورة اولاً كالتالي :

كود :

if not ds2.Tables(0).Rows(0).Item(0).isnull then

Dim imgByteArray() As Byte

imgByteArray = ds2.Tables(0).Rows(0).Item(0)

Dim Stream As New MemoryStream(imgByteArray, True)

Dim Img As System.Drawing.Image = New Bitmap(Stream)

imgSave.Image = Img

end if

RE: الصورة في سكول - محاسب يوسف - 22-05-14

شكرا للرد
لدي سؤال لو سمحتم
select mm from tab1
كتابة كود الاستعلام الخاص بعرض mm
وهو نوع image
اريد عرض كلmm عندما تكون تحتوي صورة
اي الذي يحتوي صور فقط
كيفية تصحيح الاستعلام لو سمحتم