منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - كود حفظ الصورة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)

وعليكم السلام...
هل يمكن إرفاق نسخة من الجدول المطلوب الحفظ فيه لإنشاء عملية الحفظ عليه والتأكد من المدخلات.

(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

أخي !!
أولاً: المشروع المرفق به ملف Sin ولا يفي بالغرض بدون العناصر المستخدمة.
ثانياً: أنصح بالتأكد من المسميات وخاصة الجدول.
ثالثاً: إذا كانت القيمة رقمية يكون شكل المتغير كالتالي: (val(text1.tex

(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

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

لو تخبرنا في اي سطر يقع الخطأ وما هو نص الخطا ، او ترسل صورة لشكل الخطأ نستطيع مساعدتك ان شاء الله

(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
لايتم الحفظ وكذلك يعطي خطا في براميتر

السّلام عليكم و رحمة الله و بركاته

جرّب حذف هذا الفراغ ..

تحياتي

(03-11-20, 08:28 PM)عبد العزيز البسكري كتب : [ -> ]
السّلام عليكم و رحمة الله و بركاته

جرّب حذف هذا الفراغ ..

تحياتي

اخي مازال الخطا

(03-11-20, 09:12 PM)khowla.goma كتب : [ -> ]
(03-11-20, 08:28 PM)عبد العزيز البسكري كتب : [ -> ]
السّلام عليكم و رحمة الله و بركاته

جرّب حذف هذا الفراغ ..

تحياتي
اخي مازال الخطا

يا ست الكل

على الأقل يتم تصوير الكود كاملا

بهذه الكيفية

تم تفسير الماء .. بالماء

إحتراماتي