كود حفظ الصورة والبياانات في قاعده البيانات - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182) +--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183) +--- الموضوع : كود حفظ الصورة والبياانات في قاعده البيانات (/showthread.php?tid=35665) الصفحات:
1
2
|
كود حفظ الصورة والبياانات في قاعده البيانات - khowla.goma - 15-07-20 "\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() RE: كود حفظ الصورة والبياانات في قاعده البيانات - ابراهيم ايبو - 15-07-20 السلام عليكم ورحمة الله وبركاته اختي الكريمة المشكلة في حقل الاي دي اذا كان ترقيم تلقائي لانحتاج الى ذكره في جمل الانسرت وان كان غير ذلك نذكره بالنسبة للكود الذي اوردتيه ..... في جملة الانسرت ذكرت حقل الاي دي ولكن في الباراميترات لم تضعي له باراميتر الان اما ان تجعلي جملة الانسرت بهذا الشكل ( حذف حقل الاي دي ان كان ترقيم تلقائي) وتبقي الباراميترات كما هي كود : cmd = New SqlCommand("Insert Into Sader( mawdo_MasgS,Sader_men,date_MasgS,Sader_ela,morfagatS,Mostalem,sefa,namberphon,websait,note,Pictur)values(@ mawdo_MasgS,@Sader_men,@date_MasgS,@Sader_ela,@morfagatS,@Mostalem,@sefa,@namberphon,@websait,@note,@Pictur)", cn) كود : cmd.Parameters.Add(New SqlParameter("@id_esaryS", SqlDbType.Int)).Value = id_esaryS.Text RE: كود حفظ الصورة والبياانات في قاعده البيانات - khowla.goma - 15-07-20 id_esaryS nvarchar(50) Unchecked date_MasgS nvarchar(50) Checked Sader_men nvarchar(50) Checked Sader_ela nvarchar(50) Checked mawdo_MasgS nvarchar(50) Checked morfagatS nvarchar(50) Unchecked Mostalem nvarchar(50) Checked sefa nvarchar(50) Checked namberphon nvarchar(50) Checked websait nvarchar(50) Checked note nvarchar(50) Checked Pictur image Checked Unchecked هذا الجدول في قاعدة البيانات اخي العزيز حاليا يعطي الخطا في Must declare the scalar variable "@". اخي ابراهيم ايبو RE: كود حفظ الصورة والبياانات في قاعده البيانات - ابراهيم ايبو - 15-07-20 اختي بالنسبة لحقل الاي دي يجب ان يكون من نوع رقمي int وحقل date_MasgS يجب ان يكون تاريخ Date يجب تعديل انواع بيانات الحقول السابقة السلام عليكم اختي الكريمة من خلال تتبعي للباراميترات وجدت ان ثلاث حقول ليس لها باراميترات وهي الاي دي ورقم الهاتف والمستلم اجعليهم بهذا الشكل فيما لو كان الترقيم غير تلقائي كود : 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) طبعا باراميتر الصورة لاتنسي اضافته في كل الاحوال وبقية الكود RE: كود حفظ الصورة والبياانات في قاعده البيانات - khowla.goma - 15-07-20 (15-07-20, 04:38 PM)ابراهيم ايبو كتب : اختي بالنسبة لحقل الاي دي يجب ان يكون من نوع رقمي int (15-07-20, 05:13 PM)khowla.goma كتب :اخي عدلت مطلوب لكن يعطي خطا فشل تحويل قيمة المعلمة من String إلى Int32.(15-07-20, 04:38 PM)ابراهيم ايبو كتب : اختي بالنسبة لحقل الاي دي يجب ان يكون من نوع رقمي int RE: كود حفظ الصورة والبياانات في قاعده البيانات - ابراهيم ايبو - 15-07-20 اختي هل عدلت حقل الاي دي النوع رقم ؟ اذا كان ذلك ومازال الخطأ يظهر عدلي هذا السطر الى التالي كود : CMD.Parameters.Add(New SqlParameter("@id_esaryS", SqlDbType.Int)).Value = CInt(id_esaryS.Text) RE: كود حفظ الصورة والبياانات في قاعده البيانات - khowla.goma - 15-07-20 (15-07-20, 05:29 PM)ابراهيم ايبو كتب : اختي هل عدلت حقل الاي دي النوع رقم ؟ اي عدلت حقل الاي دي نوع رقم ومازال يعطي خطا في Must declare the scalar variable "@". cmd.ExecuteNonQuery() (15-07-20, 05:36 PM)khowla.goma كتب :(15-07-20, 05:29 PM)ابراهيم ايبو كتب : اختي هل عدلت حقل الاي دي النوع رقم ؟ اخي هيا منظومة ارشيف الكتروني وحقل id_esaryS هوا الرقم الاشاري للمعامله (15-07-20, 05:36 PM)khowla.goma كتب :اخي هذا البرنامج كله احترت ليش يعطي ف الخطا(15-07-20, 05:29 PM)ابراهيم ايبو كتب : اختي هل عدلت حقل الاي دي النوع رقم ؟ (15-07-20, 05:36 PM)khowla.goma كتب :اخي هذا البرنامج كله احترت ليش يعطي ف الخطا(15-07-20, 05:29 PM)ابراهيم ايبو كتب : اختي هل عدلت حقل الاي دي النوع رقم ؟ RE: كود حفظ الصورة والبياانات في قاعده البيانات - ابراهيم ايبو - 15-07-20 اختي الكريمة اليك الكود كاملا يوجد بعض الخلاف في التسميات اسم الجدول هل هو : Sader1 ام Sader بدون واحد ..... يجب ان يتطابق الاسم في الاستعلام مع الجدول كود : Dim Cmd As New SqlCommand() مثلا TextBox => يصبح هكذا Txt_id_esaryS RE: كود حفظ الصورة والبياانات في قاعده البيانات - ابراهيم ايبو - 15-07-20 السلام عليكم ورحمة الله وبركاته اختي الكريمة حهزت لك مثال مع قاعدة بيانات SqlServer مرفقة مع المثال باسم vb4arab وفيها جدول باسم Sader بنفس الحقول التي تستخدمينها اعملي لها Attach ثم غيري اسم السيرفر الى الاسم الذي في الحاسب عندك المثال سيفيدك فيما لو اردت احال صورة او لم تريدي RE: كود حفظ الصورة والبياانات في قاعده البيانات - khowla.goma - 16-07-20 (15-07-20, 10:44 PM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته بارك الله فيك أخي العزيز (16-07-20, 01:09 AM)khowla.goma كتب :أخي الفاضل لدي جدول أخر وهوا الوارد ويعطي نفس خطا الجدول sader مع اني اخدته كوبي وعدلت الحقول بحقول الجدوال wared1 في كودد الحفظ(15-07-20, 10:44 PM)ابراهيم ايبو كتب : السلام عليكم ورحمة الله وبركاته Dim Cmd As New SqlCommand() Dim Pictur() As Byte Dim Ms As New MemoryStream() PictureBox2.Image.Save(Ms, PictureBox2.Image.RawFormat) Pictur = Ms.ToArray() Cmd = New SqlCommand("insert into Wared1(id_esary, mawdo_Masg,esaryMasgWard,date_Masg,date_waredEstelamMasg,wared_men,wared_ela,morfagat,maktebMOstalem,date_Estelam,note,PicturW)Values(@id_esary,@ mawdo_Masg,@esaryMasgWard,@date_Masg,@date_waredEstelamMasg,@wared_men,@wared_ela,@morfagat,@maktebMOstalem,@date_Estelam,@note,@PicturW)", cn) Cmd.Parameters.Add(New SqlParameter("@id_esary", SqlDbType.Int)).Value = CInt(id_esary.Text) Cmd.Parameters.Add(New SqlParameter("@mawdo_Masg", SqlDbType.NVarChar, 50)).Value = mawdo_Masg.Text Cmd.Parameters.Add(New SqlParameter("@esaryMasgWard", SqlDbType.NVarChar, 50)).Value = esaryMasgWard.Text Cmd.Parameters.Add(New SqlParameter("@date_Masg", SqlDbType.Date)).Value = date_Masg.Value.ToString("dd-MM-yyyy") Cmd.Parameters.Add(New SqlParameter("@date_waredEstelamMasg", SqlDbType.NVarChar, 50)).Value = date_waredEstelamMasg.Text Cmd.Parameters.Add(New SqlParameter("@wared_men", SqlDbType.NVarChar, 50)).Value = wared_men.Text Cmd.Parameters.Add(New SqlParameter("@wared_ela", SqlDbType.NVarChar, 50)).Value = wared_ela.Text Cmd.Parameters.Add(New SqlParameter("@morfagat", SqlDbType.NVarChar, 50)).Value = morfagat.Text Cmd.Parameters.Add(New SqlParameter("@maktebMOstalem", SqlDbType.NVarChar, 50)).Value = maktebMOstalem.Text Cmd.Parameters.Add(New SqlParameter("@date_Estelam", SqlDbType.NVarChar, 50)).Value = date_Estelam.Text Cmd.Parameters.Add(New SqlParameter("@note", SqlDbType.NVarChar, 50)).Value = note.Text Cmd.Parameters.Add(New SqlParameter("@PicturW", SqlDbType.Image)).Value = Pictur If cn.State = ConnectionState.Open Then cn.Close() cn.Open() Cmd.ExecuteNonQuery() cn.Close() MessageBox.Show("تم حفظ البيانات بنجاح", "حفظ", MessageBoxButtons.OK, MessageBoxIcon.Information) |