[khowla.goma]

"\u0627\u0644\u0633\u0644\u0627\u0645 \u0639\u0644\u064a\u0643\u0645 \u0623\u062e\u0648\u062a\u064a :\r\n\u0639\u0646\u062f\u064a \u0628\u0631\u0646\u0627\u0645\u062c \u0644\u0641\u064a\u062c\u0648\u0627\u0644 \u0628\u064a\u0633\u0643 vb.net\r\n\u0628\u0631\u0646\u0627\u0645\u062c \u0627\u0631\u0634\u064a\u0641 \u0627\u0644\u0643\u062a\u0631\u0648\u0646\u064a \u0648\u0627\u062c\u0647\u062a\u0646\u064a \u0645\u0634\u0643\u0644\u0647 \u0641 \u0631\u0632 \u0627\u0644\u062d\u0641\u0638\u00a0\r\n\u064a\u0639\u0646\u064a \u0628\u0639\u062f \u0627\u062f\u062e\u0627\u0644 \u0627\u0644\u0628\u064a\u0627\u0646\u0627\u062a \u0648\u0627\u062e\u062a\u064a\u0627\u0631 \u0627\u0644\u0635\u0648\u0631\u0629 \u0648\u0639\u0631\u0636\u0647\u0627 \u0641\u064a \u0628\u0643\u062a\u0634\u0631 \u0628\u0648\u0643\u0633 \u0644\u0645\u0627 \u0623\u062c\u064a \u0627\u0636\u063a\u0638 \u0639\u0644\u064a \u0632\u0631 \u0627\u0644\u062d\u0641\u0638 \u062a\u0636\u0647\u0631 \u0645\u0634\u0643\u0644\u0647 \u0641\u064a \u0628\u0631\u0646\u0627\u0645\u062c\u00a0\r\n\u00a0cmd = New SqlCommand(\"Insert Into Sader( id_esaryS, mawdo_MasgS,Sader_men,date_MasgS,Sader_ela,morfagatS,Mostalem,sefa,namberphon,websait,note,Pictur)values(\u00a0 @id_esaryS ,@ mawdo_MasgS,@Sader_men,@date_MasgS,@Sader_ela,@morfagatS,@Mostalem,@sefa,@namberphon,@websait,@note,@Pictur)\", cn)\r\n\r\n\u00a0\u00a0'cmd.Parameters.Add(New SqlParameter(\"@mawdo_MasgS\", SqlDbType.NVarChar, 50)).Value = mawdo_MasgS.Text\r\n\u00a0 \u00a0 \u00a0 \u00a0 'cmd.Parameters.Add(New SqlParameter(\"@Sader_men\", SqlDbType.NVarChar, 50)).Value = Sader_men.Text\r\n\u00a0 \u00a0 \u00a0 \u00a0 'cmd.Parameters.Add(New SqlParameter(\"@date_MasgS\", SqlDbType.NVarChar, 50)).Value = date_MasgS.Text\r\n\u00a0 \u00a0 \u00a0 \u00a0 'cmd.Parameters.Add(New SqlParameter(\"@Sader_ela\", SqlDbType.NVarChar, 50)).Value = Sader_ela.Text\r\n\u00a0 \u00a0 \u00a0 \u00a0 'cmd.Parameters.Add(New SqlParameter(\"@morfagatS\", SqlDbType.NVarChar, 50)).Value = morfagatS.Text\r\n\u00a0 \u00a0 \u00a0 \u00a0 'cmd.Parameters.Add(New SqlParameter(\"@sefa\", SqlDbType.NVarChar, 50)).Value = namberphon.Text\r\n\u00a0 \u00a0 \u00a0 \u00a0 'cmd.Parameters.Add(New SqlParameter(\"@websait\", SqlDbType.NVarChar, 50)).Value = websait.Text\r\n\u00a0 \u00a0 \u00a0 \u00a0 'cmd.Parameters.Add(New SqlParameter(\"@note\", SqlDbType.NVarChar, 50)).Value = note.Text\r\n\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0\u00a0\r\n\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0\u00a0 \u00a0 \u00a0\u00a0 \u00a0Dim ms As New MemoryStream\r\n\r\n\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0PictureBox2.Image.Save(ms, PictureBox2.Image.RawFormat)\r\n\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 Dim Pictur() As Byte = ms.ToArray\r\n\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 'cmd.Parameters.Add(New SqlParameter(\"@Pictur\", SqlDbType.Image)).Value = Pictur\r\n\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0\u00a0\r\n\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0\u00a0\r\n\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0\u00a0 \u00a0cn.Open()\r\n\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0cmd.ExecuteNonQuery()\r\n\r\n\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 cn.Close()\r\n\u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0 \u00a0\u00a0MsgBox(\"\u062a\u0645 \u062d\u0641\u0638 \u0628\u064a\u0627\u0646\u0627\u062a \u0628\u0646\u062c\u0627\u062d\")\r\n\u0623\u0631\u062c\u0648 \u0627\u0644\u0645\u0633\u0627\u0639\u062f\u0629"

---

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Butsave.Click

cmd = New SqlCommand("Insert Into Sader( id_esaryS, mawdo_MasgS,Sader_men,date_MasgS,Sader_ela,morfagatS,Mostalem,sefa,namberphon,websait,note,Pictur)values( @id_esaryS ,@ mawdo_MasgS,@Sader_men,@date_MasgS,@Sader_ela,@morfagatS,@Mostalem,@sefa,@namberphon,@websait,@note,@Pictur)", cn)


cmd.Parameters.Add(New SqlParameter("@mawdo_MasgS", SqlDbType.NVarChar, 50)).Value = mawdo_MasgS.Text
cmd.Parameters.Add(New SqlParameter("@Sader_men", SqlDbType.NVarChar, 50)).Value = Sader_men.Text
cmd.Parameters.Add(New SqlParameter("@date_MasgS", SqlDbType.NVarChar, 50)).Value = date_MasgS.Text
cmd.Parameters.Add(New SqlParameter("@Sader_ela", SqlDbType.NVarChar, 50)).Value = Sader_ela.Text
cmd.Parameters.Add(New SqlParameter("@morfagatS", SqlDbType.NVarChar, 50)).Value = morfagatS.Text
cmd.Parameters.Add(New SqlParameter("@sefa", SqlDbType.NVarChar, 50)).Value = namberphon.Text
cmd.Parameters.Add(New SqlParameter("@websait", SqlDbType.NVarChar, 50)).Value = websait.Text
cmd.Parameters.Add(New SqlParameter("@note", SqlDbType.NVarChar, 50)).Value = note.Text
Dim ms As New MemoryStream

PictureBox2.Image.Save(ms, PictureBox2.Image.RawFormat)
Dim Pictur() As Byte = ms.ToArray
cmd.Parameters.Add(New SqlParameter("@Pictur", SqlDbType.Image)).Value = Pictur

cn.Open()
cmd.Connection = cn
cmd.ExecuteNonQuery()

cn.Close()
MsgBox("تم حفظ بيانات بنجاح")
يعطي خطا Must declare the scalar variable "@id_esaryS". cmd.ExecuteNonQuery() يعني بعد ماأخل القيم واختار الصورة واعرضها في بكتشر بوكس واقوم بضغظ علي حفظ لا تتم العملية ويعطي هذا الخطا Must declare the scalar variable "@id_esaryS". cmd.ExecuteNonQuery()