Dim mstream As New System.IO.MemoryStream()
PicMeal.Image.Save(mstream, System.Drawing.Imaging.ImageFormat.Png)
Dim arrImage() As Byte = mstream.GetBuffer()
mstream.Close()
Dim cm As New MySqlCommand("insert into menu_table (mealname,type,prod_date,ex_date,price,picture) values(@mealname,@type,@prod_date,@ex_date,@price,@picture)", conn)
cm.Parameters.Add("@mealname", MySqlDbType.VarChar).Value = TextMealName.Text
cm.Parameters.Add("@type", MySqlDbType.VarChar).Value = cbo_mealtype.Text
cm.Parameters.Add("@prod_date", MySqlDbType.Date).Value = Date_product.Value
cm.Parameters.Add("@ex_date", MySqlDbType.Date).Value = Date_Expiry.Value
cm.Parameters.Add("@price", MySqlDbType.Decimal).Value = TextPrice.Text
cm.Parameters.AddWithValue("@picture", arrImage)