اخي لي يوم كامل احاول احلها ،،، وما كتبت المشكلة عشان انت اعطيتني مثال وموجودة الطريقة لكن في مشروعي مو راضيه :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 If
<
لكن مادام هذا اللي تريده اوكي!