تقييم الموضوع :
  • 1 أصوات - بمعدل 1
  • 1
  • 2
  • 3
  • 4
  • 5
كود حفظ الصورة1 والبياانات في قاعده البيانات
#1
السلام عليكم لدي جدولوهوا الوارد ويعطي خطا الجدوال wared1  في كودد الحفظ
  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)
الرد }}}
تم الشكر بواسطة:
#2
وعليكم السلام...
هل يمكن إرفاق نسخة من الجدول المطلوب الحفظ فيه لإنشاء عملية الحفظ عليه والتأكد من المدخلات.
المبرمج لا يفكر في المشكلة بل في الحل!!
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري
#3
(02-11-20, 02:47 AM)اسامه الهرماوي كتب : وعليكم السلام...
هل يمكن إرفاق نسخة من الجدول المطلوب الحفظ فيه لإنشاء عملية الحفظ عليه والتأكد من المدخلات.

SELECT TOP 1000 [id_esary]
      ,[date_Masg]
      ,[esaryMasgWard]
      ,[date_waredEstelamMasg]
      ,[wared_men]
      ,[wared_ela]
      ,[mawdo_Masg]
      ,[morfagat]
      ,[maktebMOstalem]
      ,[date_Estelam]
      ,[note]
      ,[PicturW]
  FROM [DBArsfa].[dbo].[Wared1]

(02-11-20, 11:25 PM)khowla.goma كتب :
(02-11-20, 02:47 AM)اسامه الهرماوي كتب : وعليكم السلام...
هل يمكن إرفاق نسخة من الجدول المطلوب الحفظ فيه لإنشاء عملية الحفظ عليه والتأكد من المدخلات.

SELECT TOP 1000 [id_esary]
      ,[date_Masg]
      ,[esaryMasgWard]
      ,[date_waredEstelamMasg]
      ,[wared_men]
      ,[wared_ela]
      ,[mawdo_Masg]
      ,[morfagat]
      ,[maktebMOstalem]
      ,[date_Estelam]
      ,[note]
      ,[PicturW]
  FROM [DBArsfa].[dbo].[Wared1]

هذا البرنامج  اخي في فورم الوارد يوجد حفظ وهذا  الجدول والحقول في قواعد البيانات sql


الملفات المرفقة
.rar   Arsafa20210.rar (الحجم : 7.95 ك ب / التحميلات : 24)
الرد }}}
تم الشكر بواسطة:
#4
أخي !!
أولاً: المشروع المرفق به ملف Sin ولا يفي بالغرض بدون العناصر المستخدمة.
ثانياً: أنصح بالتأكد من المسميات وخاصة الجدول.
ثالثاً: إذا كانت القيمة رقمية يكون شكل المتغير كالتالي: (val(text1.tex
المبرمج لا يفكر في المشكلة بل في الحل!!
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري
#5
(03-11-20, 12:25 AM)اسامه الهرماوي كتب : أخي !!
أولاً: المشروع المرفق به ملف Sin ولا يفي بالغرض بدون العناصر المستخدمة.
ثانياً: أنصح بالتأكد من المسميات وخاصة الجدول.
ثالثاً: إذا كانت القيمة رقمية يكون شكل المتغير كالتالي: (val(text1.tex

اخي هاي العناصر

(03-11-20, 12:55 AM)khowla.goma كتب :
(03-11-20, 12:25 AM)اسامه الهرماوي كتب : أخي !!
أولاً: المشروع المرفق به ملف Sin ولا يفي بالغرض بدون العناصر المستخدمة.
ثانياً: أنصح بالتأكد من المسميات وخاصة الجدول.
ثالثاً: إذا كانت القيمة رقمية يكون شكل المتغير كالتالي: (val(text1.tex

اخي هاي العناصر


الملفات المرفقة
.rar   Arsafa.rar (الحجم : 1,012.43 ك ب / التحميلات : 19)
.rar   Arsafa.rar (الحجم : 1,005.63 ك ب / التحميلات : 12)
الرد }}}
تم الشكر بواسطة:
#6
لو تخبرنا في اي سطر يقع الخطأ وما هو نص الخطا ، او ترسل صورة لشكل الخطأ نستطيع مساعدتك ان شاء الله
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري
#7
(03-11-20, 11:34 AM)Anas Mahmoud كتب : لو تخبرنا في اي سطر يقع الخطأ وما هو نص الخطا ، او ترسل صورة لشكل الخطأ نستطيع مساعدتك ان شاء الله
اخي الفاضل :
في فورم 5 يلي هوا بيانات الوارد بعد ما ادخل البيانات ف الحقول واضغط علي حفظ يظهر الخطا في 
 Must declare the scalar variable "@".   cmd.ExecuteNonQuery()

 Private Sub Button8_Click(sender As System.Object, e As System.EventArgs) Handles Buttsave.Click
 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.Connection = cn
        Cmd.ExecuteNonQuery()
        cn.Close()
        MessageBox.Show("تم حفظ البيانات بنجاح", "حفظ", MessageBoxButtons.OK, MessageBoxIcon.Information)

    End Sub
لايتم الحفظ وكذلك يعطي خطا في براميتر
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري
#8
السّلام عليكم و رحمة الله و بركاته
جرّب حذف هذا الفراغ ..
تحياتي
قناتنا على اليوتوب
الرد }}}
تم الشكر بواسطة: khowla.goma , اسامه الهرماوي
#9
(03-11-20, 08:28 PM)عبد العزيز البسكري كتب :
السّلام عليكم و رحمة الله و بركاته
جرّب حذف هذا الفراغ ..
تحياتي
اخي مازال الخطا

(03-11-20, 09:12 PM)khowla.goma كتب :
(03-11-20, 08:28 PM)عبد العزيز البسكري كتب :
السّلام عليكم و رحمة الله و بركاته
جرّب حذف هذا الفراغ ..
تحياتي
اخي مازال الخطا


الملفات المرفقة صورة/صور
       
الرد }}}
تم الشكر بواسطة:
#10
يا ست الكل
على الأقل يتم تصوير الكود كاملا
بهذه الكيفية
تم تفسير الماء .. بالماء
إحتراماتي
قناتنا على اليوتوب
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] حل مشكلة الاتصال بقواعد البيانات access loay775 2 158 25-02-24, 06:29 AM
آخر رد: loay775
  سؤال عن عملية حذف سجل من قاعدة البيانات assuhimi 3 249 11-02-24, 08:43 PM
آخر رد: assuhimi
  [VB.NET] منع تكرار البيانات في عند الادخال مبرمج صغير 1 2 255 24-01-24, 05:18 PM
آخر رد: مبرمج صغير 1
  [VB.NET] مساعدة في استدعاء البيانات معينه من form الأول إلى form 2 بدون التعديل loay775 2 275 18-01-24, 05:04 PM
آخر رد: loay775
  [VB.NET] إعادة استدعاء البيانات من قاعدة بيانات اكسس والاهم الصورة مبرمج صغير 1 1 273 13-01-24, 01:17 PM
آخر رد: مبرمج صغير 1
  [كود] اريد كود إرسال البيانات من الفيجوال بيسك إلىPDF issamsaidd 10 5,829 25-12-23, 06:30 PM
آخر رد: الحزين اليماني
  جملة الاتصال بقاعدة البيانات اكسس محمد خيري 4 364 12-12-23, 03:14 AM
آخر رد: محمد خيري
  كود الاتصال بقاعدة البيانات sqlserver strongriseman 2 421 29-11-23, 09:25 PM
آخر رد: العتيق
Heart [VB.NET] كيفية جعل الدتاجريديد فيو تظهر عندما تكون قاعدة البيانات فارغه الحزين اليماني 1 371 22-11-23, 05:31 PM
آخر رد: justforit
  الحفاظ على خصائص قاعدة البيانات عند النقل strongriseman 0 280 19-11-23, 12:28 PM
آخر رد: strongriseman

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم