teymoorei
یک شنبه 12 تیر 1390, 15:09 عصر
71830
اینم کدش
Connection.Close()
Try
strSQL = "INSERT INTO Table11 (name,group1,disk1,pic,tozih) VALUES ('" & Trim(TextBox1.Text) & "','" & Trim(ComboBox1.Text) & "','" & Trim(TextBox2.Text) & "','" & Trim(TextBox3.Text) & "',@pic)"
Dim ms As New MemoryStream
Me.PictureBox1.Image.Save(ms, Me.PictureBox1.Image.RawFormat)
Dim arrPic() As Byte = ms.GetBuffer
ms.Close()
Connection.Open()
Command = New SqlCommand(strSQL, Connection)
Command.Parameters.Add("@Name", SqlDbType.NVarChar, 50).Value = Me.TextBox1.Text
Command.Parameters.Add("@group1", SqlDbType.NVarChar, 50).Value = Me.ComboBox1.Text
Command.Parameters.Add("@disk1", SqlDbType.NVarChar, 50).Value = Me.TextBox2.Text
Command.Parameters.Add("@pic", SqlDbType.VarBinary).Value = arrPic
Command.Parameters.Add("@tozih", SqlDbType.NVarChar, 100).Value = Me.TextBox3.Text
Command.ExecuteNonQuery()
Connection.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
اینم کدش
Connection.Close()
Try
strSQL = "INSERT INTO Table11 (name,group1,disk1,pic,tozih) VALUES ('" & Trim(TextBox1.Text) & "','" & Trim(ComboBox1.Text) & "','" & Trim(TextBox2.Text) & "','" & Trim(TextBox3.Text) & "',@pic)"
Dim ms As New MemoryStream
Me.PictureBox1.Image.Save(ms, Me.PictureBox1.Image.RawFormat)
Dim arrPic() As Byte = ms.GetBuffer
ms.Close()
Connection.Open()
Command = New SqlCommand(strSQL, Connection)
Command.Parameters.Add("@Name", SqlDbType.NVarChar, 50).Value = Me.TextBox1.Text
Command.Parameters.Add("@group1", SqlDbType.NVarChar, 50).Value = Me.ComboBox1.Text
Command.Parameters.Add("@disk1", SqlDbType.NVarChar, 50).Value = Me.TextBox2.Text
Command.Parameters.Add("@pic", SqlDbType.VarBinary).Value = arrPic
Command.Parameters.Add("@tozih", SqlDbType.NVarChar, 100).Value = Me.TextBox3.Text
Command.ExecuteNonQuery()
Connection.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try