سلام
اول چک کنید که نوع ستون Picture از نوع ( VarBinary(Max باشه
کدتون رو هم میشه کوتاه تر و بهینه تر کرد:
تو امضای من هم می تونید دو تا نمونه واسه ذخیره فایل تو دیتابیس(مخصوصا فایل های بزرگتر از یه تصویر) پیدا کنید
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim con As New SqlConnection()
con.ConnectionString = "server=HAMED-PC;database=Hospital;Integrated security=yes"
Dim com As New SqlCommand()
com.Connection = con
Dim sql As String
Dim imgByte = IO.File.ReadAllBytes(ImgPath)
Dim s As String = If(RadioButton1.Checked, "Male", "Female")
sql = "INSERT INTO Login(UserName,Password,Sex,picture) VALUES (N'{0}',N'{1}','{2}',@picture)"
sql = String.Format(sql, TextBox1.Text, TextBox2.Text, s)
com.Parameters.AddWithValue("@picture", imgByte)
com.CommandText = sql
con.Open()
com.ExecuteNonQuery()
MsgBox("SAVED")
com.CommandText = "select * From Login"
Dim da As New SqlDataAdapter(com)
Dim dt As New DataTable
da.Fill(dt)
con.Close()
DataGridView1.DataSource = dt
Catch ex As Exception
MsgBox("Error:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
End Try
End Sub