+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كود حفظ الصورة1 والبياانات في قاعده البيانات (/showthread.php?tid=36827)
الصفحات:
1
2
كود حفظ الصورة1 والبياانات في قاعده البيانات - khowla.goma - 01-11-20
السلام عليكم لدي جدولوهوا الوارد ويعطي خطا الجدوال 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)
RE: كود حفظ الصورة1 والبياانات في قاعده البيانات - اسامه الهرماوي - 02-11-20
وعليكم السلام...
هل يمكن إرفاق نسخة من الجدول المطلوب الحفظ فيه لإنشاء عملية الحفظ عليه والتأكد من المدخلات.
RE: كود حفظ الصورة1 والبياانات في قاعده البيانات - khowla.goma - 02-11-20
(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
RE: كود حفظ الصورة1 والبياانات في قاعده البيانات - اسامه الهرماوي - 03-11-20
أخي !!
أولاً: المشروع المرفق به ملف Sin ولا يفي بالغرض بدون العناصر المستخدمة.
ثانياً: أنصح بالتأكد من المسميات وخاصة الجدول.
ثالثاً: إذا كانت القيمة رقمية يكون شكل المتغير كالتالي: (val(text1.tex
RE: كود حفظ الصورة1 والبياانات في قاعده البيانات - khowla.goma - 03-11-20
(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
اخي هاي العناصر
RE: كود حفظ الصورة1 والبياانات في قاعده البيانات - Anas Mahmoud - 03-11-20
لو تخبرنا في اي سطر يقع الخطأ وما هو نص الخطا ، او ترسل صورة لشكل الخطأ نستطيع مساعدتك ان شاء الله
RE: كود حفظ الصورة1 والبياانات في قاعده البيانات - khowla.goma - 03-11-20
(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
لايتم الحفظ وكذلك يعطي خطا في براميتر
RE: كود حفظ الصورة1 والبياانات في قاعده البيانات - عبد العزيز البسكري - 03-11-20
السّلام عليكم و رحمة الله و بركاته
جرّب حذف هذا الفراغ ..
تحياتي
RE: كود حفظ الصورة1 والبياانات في قاعده البيانات - khowla.goma - 03-11-20
(03-11-20, 08:28 PM)عبد العزيز البسكري كتب :اخي مازال الخطاالسّلام عليكم و رحمة الله و بركاتهجرّب حذف هذا الفراغ ..تحياتي
(03-11-20, 09:12 PM)khowla.goma كتب :(03-11-20, 08:28 PM)عبد العزيز البسكري كتب :اخي مازال الخطاالسّلام عليكم و رحمة الله و بركاتهجرّب حذف هذا الفراغ ..تحياتي
RE: كود حفظ الصورة1 والبياانات في قاعده البيانات - عبد العزيز البسكري - 03-11-20
يا ست الكل
على الأقل يتم تصوير الكود كاملا
بهذه الكيفية
تم تفسير الماء .. بالماء
إحتراماتي