16-03-13, 03:15 AM
Easy 4ever كتب :فكره إضافة ( 0x00 ) في الحقول الفارغه هل ستأثر في العرض :confused:لا ادري....... لكن هو يرفض اضافة اي شي من نوع بيانات اخر
16-03-13, 03:15 AM
16-03-13, 03:16 AM
سعود كتب :اهاااااااااا الخطا ماله علاقة بالحفظ هو لازم اصفر الـ progressbar بعد الانتهاء
نعم اخي ،، عرفت وجئت باكتب لك والله بس سبقتني هههههههه ،،جاري التجربة في مشروعي ،،
شكرا،
16-03-13, 03:17 AM
سعود كتب :لا ادري....... لكن هو يرفض اضافة اي شي من نوع بيانات اخر
هل 0x00 هو رمز اللون الاسود ؟
16-03-13, 03:34 AM
ضبط في العرض 
أظن 0x00 = لاشيء
<
أظن 0x00 = لاشيء
<16-03-13, 03:35 AM
shado1796 كتب :هل 0x00 هو رمز اللون الاسود ؟مدري والله..لكن ايش الفايدة منه؟
16-03-13, 03:55 AM
سعود كتب :مدري والله..لكن ايش الفايدة منه؟
لانه موجود في قاعدة البيانات :confused:
16-03-13, 11:18 PM
اخي لي يوم كامل احاول احلها ،،، وما كتبت المشكلة عشان انت اعطيتني مثال وموجودة الطريقة لكن في مشروعي مو راضيه :confused: يظهرلي خطأ في Img1U1
هذا الكود كامل
هذا الكود كامل
كود :
If IsNothing(PictureBox2.Image) = False Then
Dim picStream2 As New MemoryStream
PictureBox2.Image.Save(picStream2, ImageFormat.Gif)
Dim PicByte2 As Byte() = picStream2.ToArray
cm.Parameters.AddWithValue("@Img1U1", Data.SqlDbType.VarBinary).Value = PicByte2
'===================================
If Conn.State = ConnectionState.Closed Then
Conn.Open()
End If
cm.ExecuteNonQuery()
cm.Parameters.Clear()
'==================================
Else
Dim PicByte2 As New Byte
cm.Parameters.AddWithValue("@Img1U1", Data.SqlDbType.VarBinary).Value = PicByte2
'===================================
If Conn.State = ConnectionState.Closed Then
Conn.Open()
End If
cm.ExecuteNonQuery()
cm.Parameters.Clear()
'===================================
End If
If IsNothing(PictureBox3.Image) = False Then
Dim picStream3 As New MemoryStream
PictureBox3.Image.Save(picStream3, ImageFormat.Gif)
Dim PicByte3 As Byte() = picStream3.ToArray
cm.Parameters.AddWithValue("@Img2U1", Data.SqlDbType.VarBinary).Value = PicByte3
'===================================
If Conn.State = ConnectionState.Closed Then
Conn.Open()
End If
cm.ExecuteNonQuery()
cm.Parameters.Clear()
'==================================
Else
Dim PicByte3 As New Byte
cm.Parameters.AddWithValue("@Img2U1", Data.SqlDbType.VarBinary).Value = PicByte3
'===================================
If Conn.State = ConnectionState.Closed Then
Conn.Open()
End If
cm.ExecuteNonQuery()
cm.Parameters.Clear()
'===================================
End If
If IsNothing(PictureBox4.Image) = False Then
Dim picStream4 As New MemoryStream
PictureBox4.Image.Save(picStream4, ImageFormat.Gif)
Dim PicByte4 As Byte() = picStream4.ToArray
cm.Parameters.AddWithValue("@Img3U1", Data.SqlDbType.VarBinary).Value = PicByte4
'===================================
If Conn.State = ConnectionState.Closed Then
Conn.Open()
End If
cm.ExecuteNonQuery()
cm.Parameters.Clear()
'==================================
Else
Dim PicByte4 As New Byte
cm.Parameters.AddWithValue("@Img3U1", Data.SqlDbType.VarBinary).Value = PicByte4
'===================================
If Conn.State = ConnectionState.Closed Then
Conn.Open()
End If
cm.ExecuteNonQuery()
cm.Parameters.Clear()
'===================================
End If
If IsNothing(PictureBox5.Image) = False Then
Dim picStream5 As New MemoryStream
PictureBox5.Image.Save(picStream5, ImageFormat.Gif)
Dim PicByte5 As Byte() = picStream5.ToArray
cm.Parameters.AddWithValue("@Img4U1", Data.SqlDbType.VarBinary).Value = PicByte5
'===================================
If Conn.State = ConnectionState.Closed Then
Conn.Open()
End If
cm.ExecuteNonQuery()
cm.Parameters.Clear()
'==================================
Else
Dim PicByte5 As New Byte
cm.Parameters.AddWithValue("@Img4U1", Data.SqlDbType.VarBinary).Value = PicByte5
'===================================
If Conn.State = ConnectionState.Closed Then
Conn.Open()
End If
cm.ExecuteNonQuery()
cm.Parameters.Clear()
'===================================
End If
If IsNothing(PictureBox6.Image) = False Then
Dim picStream6 As New MemoryStream
PictureBox6.Image.Save(picStream6, ImageFormat.Gif)
Dim PicByte6 As Byte() = picStream6.ToArray
cm.Parameters.AddWithValue("@Img1U2", Data.SqlDbType.VarBinary).Value = PicByte6
'===================================
If Conn.State = ConnectionState.Closed Then
Conn.Open()
End If
cm.ExecuteNonQuery()
cm.Parameters.Clear()
'==================================
Else
Dim PicByte6 As New Byte
cm.Parameters.AddWithValue("@Img1U2", Data.SqlDbType.VarBinary).Value = PicByte6
'===================================
If Conn.State = ConnectionState.Closed Then
Conn.Open()
End If
cm.ExecuteNonQuery()
cm.Parameters.Clear()
'===================================
End If
If IsNothing(PictureBox7.Image) = False Then
Dim picStream7 As New MemoryStream
PictureBox7.Image.Save(picStream7, ImageFormat.Gif)
Dim PicByte7 As Byte() = picStream7.ToArray
cm.Parameters.AddWithValue("@Img2U2", Data.SqlDbType.VarBinary).Value = PicByte7
'===================================
If Conn.State = ConnectionState.Closed Then
Conn.Open()
End If
cm.ExecuteNonQuery()
cm.Parameters.Clear()
'==================================
Else
Dim PicByte7 As New Byte
cm.Parameters.AddWithValue("@Img2U2", Data.SqlDbType.VarBinary).Value = PicByte7
'===================================
If Conn.State = ConnectionState.Closed Then
Conn.Open()
End If
cm.ExecuteNonQuery()
cm.Parameters.Clear()
'===================================
End If
If IsNothing(PictureBox8.Image) = False Then
Dim picStream8 As New MemoryStream
PictureBox8.Image.Save(picStream8, ImageFormat.Gif)
Dim PicByte8 As Byte() = picStream8.ToArray
cm.Parameters.AddWithValue("@Img3U2", Data.SqlDbType.VarBinary).Value = PicByte8
'===================================
If Conn.State = ConnectionState.Closed Then
Conn.Open()
End If
cm.ExecuteNonQuery()
cm.Parameters.Clear()
'==================================
Else
Dim PicByte8 As New Byte
cm.Parameters.AddWithValue("@Img3U2", Data.SqlDbType.VarBinary).Value = PicByte8
'===================================
If Conn.State = ConnectionState.Closed Then
Conn.Open()
End If
cm.ExecuteNonQuery()
cm.Parameters.Clear()
'===================================
End If
If IsNothing(PictureBox9.Image) = False Then
Dim picStream9 As New MemoryStream
PictureBox9.Image.Save(picStream9, ImageFormat.Gif)
Dim PicByte9 As Byte() = picStream9.ToArray
cm.Parameters.AddWithValue("@Img4U2", Data.SqlDbType.VarBinary).Value = PicByte9
'===================================
If Conn.State = ConnectionState.Closed Then
Conn.Open()
End If
cm.ExecuteNonQuery()
cm.Parameters.Clear()
'==================================
Else
Dim PicByte9 As New Byte
cm.Parameters.AddWithValue("@Img4U2", Data.SqlDbType.VarBinary).Value = PicByte9
'===================================
If Conn.State = ConnectionState.Closed Then
Conn.Open()
End If
cm.ExecuteNonQuery()
cm.Parameters.Clear()
'===================================
End If
If IsNothing(PictureBox10.Image) = False Then
Dim picStream10 As New MemoryStream
PictureBox10.Image.Save(picStream10, ImageFormat.Gif)
Dim PicByte10 As Byte() = picStream10.ToArray
cm.Parameters.AddWithValue("@Img1U3", Data.SqlDbType.VarBinary).Value = PicByte10
'===================================
If Conn.State = ConnectionState.Closed Then
Conn.Open()
End If
cm.ExecuteNonQuery()
cm.Parameters.Clear()
'==================================
Else
Dim PicByte10 As New Byte
cm.Parameters.AddWithValue("@Img1U3", Data.SqlDbType.VarBinary).Value = PicByte10
'===================================
If Conn.State = ConnectionState.Closed Then
Conn.Open()
End If
cm.ExecuteNonQuery()
cm.Parameters.Clear()
'===================================
End If
If IsNothing(PictureBox11.Image) = False Then
Dim picStream11 As New MemoryStream
PictureBox11.Image.Save(picStream11, ImageFormat.Gif)
Dim PicByte11 As Byte() = picStream11.ToArray
cm.Parameters.AddWithValue("@Img2U3", Data.SqlDbType.VarBinary).Value = PicByte11
'===================================
If Conn.State = ConnectionState.Closed Then
Conn.Open()
End If
cm.ExecuteNonQuery()
cm.Parameters.Clear()
'==================================
Else
Dim PicByte11 As New Byte
cm.Parameters.AddWithValue("@Img2U3", Data.SqlDbType.VarBinary).Value = PicByte11
'===================================
If Conn.State = ConnectionState.Closed Then
Conn.Open()
End If
cm.ExecuteNonQuery()
cm.Parameters.Clear()
'===================================
End If
If IsNothing(PictureBox12.Image) = False Then
Dim picStream12 As New MemoryStream
PictureBox12.Image.Save(picStream12, ImageFormat.Gif)
Dim PicByte12 As Byte() = picStream12.ToArray
cm.Parameters.AddWithValue("@Img3U3", Data.SqlDbType.VarBinary).Value = PicByte12
'===================================
If Conn.State = ConnectionState.Closed Then
Conn.Open()
End If
cm.ExecuteNonQuery()
cm.Parameters.Clear()
'==================================
Else
Dim PicByte12 As New Byte
cm.Parameters.AddWithValue("@Img3U3", Data.SqlDbType.VarBinary).Value = PicByte12
'===================================
If Conn.State = ConnectionState.Closed Then
Conn.Open()
End If
cm.ExecuteNonQuery()
cm.Parameters.Clear()
'===================================
End If
If IsNothing(PictureBox13.Image) = False Then
Dim picStream13 As New MemoryStream
PictureBox13.Image.Save(picStream13, ImageFormat.Gif)
Dim PicByte13 As Byte() = picStream13.ToArray
cm.Parameters.AddWithValue("@Img4U3", Data.SqlDbType.VarBinary).Value = PicByte13
'===================================
If Conn.State = ConnectionState.Closed Then
Conn.Open()
End If
cm.ExecuteNonQuery()
cm.Parameters.Clear()
'==================================
Else
Dim PicByte13 As New Byte
cm.Parameters.AddWithValue("@Img4U3", Data.SqlDbType.VarBinary).Value = PicByte13
'===================================
If Conn.State = ConnectionState.Closed Then
Conn.Open()
End If
cm.ExecuteNonQuery()
cm.Parameters.Clear()
'===================================
End If17-03-13, 12:33 AM
تسميتك لاعمدة الصور تلخبط
لكن مادام هذا اللي تريده اوكي!
اذا المشكلة في عمود واحد فقط قم بحذفه وحذف اكواده وجرب فان زال الاشكال اضفه من جديد.
لكن مادام هذا اللي تريده اوكي!اذا المشكلة في عمود واحد فقط قم بحذفه وحذف اكواده وجرب فان زال الاشكال اضفه من جديد.
17-03-13, 12:40 AM
سعود كتب :تسميتك لاعمدة الصور تلخبط
اذا المشكلة في عمود واحد فقط قم بحذفه وحذف اكواده وجرب فان زال الاشكال اضفه من جديد.
برضوا ما نفع ،،، اخي انا متحمس على وشك انهاء مشاكل الاضافة واخذ الخبره منك ومن الاخوان جزاكم الله خير ،،،،، شوف اخذت اكواد واضفتها في مشروعك وطلع نفس الخطأ لماذا فيما انا اخطأت ،، المشروع بالمرفقات ،، ( هل يمكن بسبب تغير التعريفات ) >؟
17-03-13, 12:45 AM
ان شالله انحد يسبقني لاني بطيء بفهم الكود ...