تقييم الموضوع :
  • 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 ك ب / التحميلات : 16)
الرد
تم الشكر بواسطة:
#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 ك ب / التحميلات : 12)
.rar   Arsafa.rar (الحجم : 1,005.63 ك ب / التحميلات : 8)
الرد
تم الشكر بواسطة:
#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] اضافة ازرار حسب عدد متغير في قاعدة البيانات Ad Heart 5 684 16-11-20, 12:10 AM
آخر رد: sherf
Question [VB.NET] كيف يتم تحديث البيانات في DataGridView بعد حفظ السجل الحالي ؟؟ Microformt 6 160 09-11-20, 07:54 PM
آخر رد: moahmed.abdelmohsen
  كود تعديل البيانات فيجوال بيسك وقاعدة بيانات sql server برحوت 0 133 08-11-20, 12:17 AM
آخر رد: برحوت
  مشكلة حفظ البيانات الموجودة في اداة listview في قاعدة بيانات SQL shado1796 7 2,034 07-11-20, 02:47 PM
آخر رد: sherf
  عرض محتويات الكومبوبوكس حسب ترتيبها في قاعدة البيانات جيولوجي مبتدئ 6 208 02-11-20, 08:36 PM
آخر رد: جيولوجي مبتدئ
  [VB.NET] المشكلة انني لم استطيع استدعاء الملفات pdf من قاعدة البيانات sql 304 0 119 31-10-20, 05:40 PM
آخر رد: 304
  [VB.NET] هل من الضروري اغلاق الاتصال بعد جلب البيانات من sql في جملة الاستعلام alipro 3 232 26-10-20, 03:50 AM
آخر رد: Jounior_P
  [ تمّ الحل ] : عدم القدرة على عمل أتاش لقاعدة البيانات عبد العزيز البسكري 23 1,190 24-10-20, 12:48 AM
آخر رد: عبد العزيز البسكري
  [VB.NET] ربط التقارير بقاعده البيانات احمد سليمان 0 129 14-10-20, 02:43 PM
آخر رد: احمد سليمان
  حفظ list box في قاعدة البيانات اعينوني,,,,,,, KIKO1992 0 143 13-10-20, 11:08 AM
آخر رد: KIKO1992

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


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