تقييم الموضوع :
  • 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 ك ب / التحميلات : 21)
الرد
تم الشكر بواسطة:
#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 ك ب / التحميلات : 16)
.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] اريد عرض اسماء الجداول من قاعدة البيانات سكوال سيرفرس alsaab120 2 53 , 01:45 AM
آخر رد: alsaab120
  عرض البيانات داخل التاتا جرد فيو بطريقة جداول متداخلة moahmed.abdelmohsen 6 238 30-04-21, 05:17 PM
آخر رد: mrfenix93
  المساعده في عرض البيانات moahmed.abdelmohsen 4 211 30-04-21, 03:11 PM
آخر رد: ابو انس
  [VB.NET] مطلوب كود يختص بحفظ البيانات Ayat.B.H 1 122 28-04-21, 07:45 AM
آخر رد: messry
  كيف يتم تعديل البيانات بين تاريخين في sql جيولوجي مبتدئ 3 201 28-04-21, 03:50 AM
آخر رد: جيولوجي مبتدئ
  [VB.NET] استعلام متقدم لعرض البيانات بالداتاجريد فيو محمد اسماعيل 4 239 27-04-21, 04:26 PM
آخر رد: messry
  [VB.NET] اختيار البيانات غير مكررة من الداتاتابل محمد اسماعيل 3 216 24-04-21, 06:23 AM
آخر رد: محمد اسماعيل
  [VB.NET] الكود المكافئ لعرض أسماء الجداول فى قاعدة البيانات mmaalmesry 4 346 23-04-21, 08:30 AM
آخر رد: d3vc0d
  اريد خذف كل السجلات من قاعدة البيانات العواجي 1 134 20-04-21, 05:35 AM
آخر رد: messry
  [VB.NET] اضافة البيانات من الداتاتابل الي الداتابيز احمد 2021 0 155 05-04-21, 11:10 PM
آخر رد: احمد 2021

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


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