تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
يجبرني البرنامج على حفظ صورة الموظف!!
#1
السلام عليكم
لدي برنامج شؤون الموظفين ، عند حفظ بيانات الموظف كاملة و لكن بدون إدخال صورته لا يقبل البرنامج ، يظهر لي الخطأ المرفق صورته
كيف اسمح للبرنامج أن يحفظ المدخلات بدون الصورة.

كود الحفظ
كود :
Public Sub Insert_Hadi11(ByVal ID As Long, ByVal Ename As String, ByVal Ro As String, ByVal ID1 As String, ByVal ID2 As String, ByVal ID3 As String, ByVal Jawal As String, ByVal School As String, ByVal DateM As String, ByVal DateT As String, ByVal DateTr As String, ByVal Zawaj As String, ByVal Saha As String, ByVal Tsaha As String, ByVal Jaha As String, ByVal Mrkz As String, ByVal Moga As String, ByVal T_M As String, ByVal ToQ As String, ByVal StartD As String, ByVal EndDate As String, ByVal nameQ As String, ByVal SQ As String, ByVal JawalQ As String, ByVal MM As String, ByVal Photo1 As PictureBox)
       Dim Cmd As New OleDbCommand
       With Cmd
           .Connection = con
           .CommandType = CommandType.Text
           .CommandText = "Insert Into Hadi11 ( ID,Ename,Ro,ID1,ID2,ID3,Jawal,School,DateM,DateT,DateTr,Zawaj,Saha,Tsaha,Jaha,Mrkz,Moga,T_M,ToQ,StartD,EndDate,nameQ,SQ,JawalQ,MM,Photo1)values(@ID,@Ename,@Ro,@ID1,@ID2,@ID3,@Jawal,@School,@DateM,@DateT,@DateTr,@Zawaj,@Saha,@Tsaha,@Jaha,@Mrkz,@Moga,@T_M,@ToQ,@StartD,@EndDate,@nameQ,@SQ,@JawalQ,@MM,@Photo1)"
           .Parameters.Clear()
           .Parameters.AddWithValue("@ID", OleDbType.Integer).Value = ID
           .Parameters.AddWithValue("@Ename", OleDbType.VarChar).Value = Ename
           .Parameters.AddWithValue("@Ro", OleDbType.VarChar).Value = Ro
           .Parameters.AddWithValue("@ID1", OleDbType.VarChar).Value = ID1
           .Parameters.AddWithValue("@ID2", OleDbType.VarChar).Value = ID2
           .Parameters.AddWithValue("@ID3", OleDbType.VarChar).Value = ID3
           .Parameters.AddWithValue("@Jawal", OleDbType.VarChar).Value = Jawal
           .Parameters.AddWithValue("@School", OleDbType.VarChar).Value = School
           .Parameters.AddWithValue("@DateM", OleDbType.VarChar).Value = DateM
           .Parameters.AddWithValue("@DateT", OleDbType.VarChar).Value = DateT
           .Parameters.AddWithValue("@DateTr", OleDbType.VarChar).Value = DateTr
           .Parameters.AddWithValue("@Zawaj", OleDbType.VarChar).Value = Zawaj
           .Parameters.AddWithValue("@Saha", OleDbType.VarChar).Value = Saha
           .Parameters.AddWithValue("@Tsaha", OleDbType.VarChar).Value = Tsaha
           .Parameters.AddWithValue("@Jaha", OleDbType.VarChar).Value = Jaha
           .Parameters.AddWithValue("@Mrkz", OleDbType.VarChar).Value = Mrkz
           .Parameters.AddWithValue("@Moga", OleDbType.VarChar).Value = Moga
           .Parameters.AddWithValue("@T_M", OleDbType.VarChar).Value = T_M
           .Parameters.AddWithValue("@ToQ", OleDbType.VarChar).Value = ToQ
           .Parameters.AddWithValue("@StartD", OleDbType.VarChar).Value = StartD
           .Parameters.AddWithValue("@EndDate", OleDbType.VarChar).Value = EndDate
           .Parameters.AddWithValue("@nameQ", OleDbType.VarChar).Value = nameQ
           .Parameters.AddWithValue("@SQ", OleDbType.VarChar).Value = SQ
           .Parameters.AddWithValue("@JawalQ", OleDbType.VarChar).Value = JawalQ
           .Parameters.AddWithValue("@MM", OleDbType.VarChar).Value = MM
           Dim ms As New MemoryStream()
           Dim bmpImage As New Bitmap(Photo1.Image)
           bmpImage.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)
           Dim data As Byte() = ms.GetBuffer()
           Dim p As New OleDbParameter("@Photo1", OleDbType.Binary)
           p.Value = data
           .Parameters.Add(p)
       End With
       If con.State = 1 Then con.Close()
       con.Open()
       Cmd.ExecuteNonQuery()
       con.Close()
       MsgBox("تم إضافة السجل بنجاح", MsgBoxStyle.Information, "حفظ")
       Cmd = Nothing
   End Sub


الملفات المرفقة صورة/صور
   
اللهم ارحم من أسس هذا المنتدى (اباليث) و أجعل كل علم نافع تعلمناه في هذا المنتدى أجر له و صدقة تنفعه في قبره
الرد
تم الشكر بواسطة:
#2
السّلام عليكم و رحمة الله و بركاته
حتّى تتفادى أخي الكريم هذه الإشكاليّة تماما و بدون إلتباسات
قم بوضع صورة إفتراضية لعدم وجودها بالريسورس .. مثلا ..

و بزر الأمر الإضافة .. إستعمل ما يلي :
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   If MsgBox("هل تريد إضافة سجل جديد ؟ ", MsgBoxStyle.Exclamation + MsgBoxStyle.MsgBoxRight + MsgBoxStyle.OkCancel, "إضافة سجل جديد") = MsgBoxResult.Cancel Then Exit Sub
   PictureBox1.Image = My.Resources.Nopicture1
End Sub

بعدها ستختار طبعا الصورة التي تريد إضافتها
إذا لم تقم بالإختيار .. تلقائيا سيتم حفظ الصورة أعلاه الإفتراضية
هكذا تضمن دائما وجود الصورة  لديك
تحياتي
الرد
#3
الف شكر أخي عبد العزيز البسكري

تم تطبيق الخطوات بنجاح ،،

جزاك الله خير و كثر من أمثالك
اللهم ارحم من أسس هذا المنتدى (اباليث) و أجعل كل علم نافع تعلمناه في هذا المنتدى أجر له و صدقة تنفعه في قبره
الرد
تم الشكر بواسطة:
#4
يمكنك استخدام شرط عند الحفظ 
If picturbox1 .image=is nothing then 

Else 

Save image code
End if
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] واجهات البرنامج تظهر في الاجهزة الاخرى بحجم كبير yassbazz1987 3 71 07-12-18, 05:07 PM
آخر رد: ahmadpal
  [سؤال] توقف البرنامج عن العمل allo5_800 7 130 05-12-18, 08:25 PM
آخر رد: ابو روضة
  [سؤال] كيف أقوم بنسخ كلام عربي او انجليزي من صورة من خلال VB.net dametucorazon 4 118 04-12-18, 12:06 PM
آخر رد: dametucorazon
Rainbow [سؤال] تشغيل البرنامج ببرنامج اسامه الهرماوي 6 163 02-12-18, 09:33 PM
آخر رد: اسامه الهرماوي
  ادراج صورة في الكرستال ريبورت المتألق9 2 101 02-12-18, 03:37 PM
آخر رد: المتألق9
  بعد تثبيت البرنامج عند العميل Emam emam 10 205 02-12-18, 03:31 PM
آخر رد: Emam emam
  البرنامج لا يعمل الا بعد عمل ريسترت makky 4 85 02-12-18, 10:29 AM
آخر رد: makky
  ربطت مشروع على قاعدة بيانات mysql على استضافتي لكن البرنامج بطيء جدا essawq 17 559 02-12-18, 12:13 AM
آخر رد: أبوبكر سويدان
  خطأ في كود اظهار الصورة من مجلد بداخل البرنامج aftfm 6 120 01-12-18, 09:15 PM
آخر رد: aftfm
  محتاج مساعدة فى تفعيل لى البرنامج Mohamed Magdy 8 184 27-11-18, 09:27 PM
آخر رد: Mohamed Magdy

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


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