النتائج 1 إلى 5 من 5

الموضوع: كيف يمكنني الخروج نهائيا من المتتالية عند وجود خطأ

  1. كيف يمكنني الخروج نهائيا من المتتالية عند وجود خطأ



    كود:
    If (FileUpload1.HasFile) Then
                    SaveFile(FileUpload1.PostedFile)
                    Cn.ConnectionString = cnnStr
                    Cmd.Connection = Cn
                    Cn.Open()
                    Dim maxx As Integer
                    Cmd.CommandText = "select count(Id_Book) from Book"
    
                    Dim cnt As Integer = Cmd.ExecuteScalar
                    If cnt > 0 Then
                        Cmd.CommandText = "select max(Id_Book) from Book"
                        maxx = Cmd.ExecuteScalar + 1
                    Else
                        maxx = 1
                    End If
                    Cmd.CommandText = "select * from Book"
                    Da.SelectCommand = Cmd
                    Da.Fill(Ds, "Book")
                    Dr = Ds.Tables("Book").NewRow
                    Dr("Id_Book") = maxx
                    Dr("Name_Book") = Name_book.Text
                    Dr("Intro_Book") = IntroBook.Text
                    Dr("Resume_book") = Resumebook.Text
                    Dr("Pic_Book") = "imagebook/" + pathname
                    Ds.Tables("Book").Rows.Add(Dr)
                    Da.Update(Ds, "Book")
                    Cn.Close()
                    Response.Redirect("booklist.aspx")
                Else
                    UploadStatusLabel.Text = "لم تحدد الملف الذي تريد تحميله"
                End If
    هذا الكود خاص بحفظ البيانات في قاعدة البيانات
    وقبل ذلك ينادي على procedure التي تقوم برفع الصور
    وهي كالتالي:

    كود:
    Sub SaveFile(ByVal file As HttpPostedFile)
            Dim savePath As String = Server.MapPath("../imagebook/")
            Dim fileName As String = FileUpload1.FileName
            fileName = Replace(fileName, " ", "")
            Dim pathToCheck As String = savePath + fileName
            Dim tempfileName As String = ""
            Dim Fex As String = IO.Path.GetExtension(fileName)
            If Fex <> ".gif" Or Fex <> ".GIF" Or Fex <> ".jpg" Or Fex <> ".JPG" Or Fex <> ".bmp" Or Fex <> ".BMP" Or Fex <> ".png" Or Fex <> ".PNG" Then
                UploadStatusLabel.Text = "نوع الملف الذي تم اختياره غير مسموح به"
                Exit Sub
            End If
            If (System.IO.File.Exists(pathToCheck)) Then
                Dim counter As Integer = 2
                While (System.IO.File.Exists(pathToCheck))
                    tempfileName = counter.ToString() + fileName
                    pathToCheck = savePath + tempfileName
                    counter = counter + 1
                End While
                fileName = tempfileName
                UploadStatusLabel.Text = "يوجد ملف يحمل نفس الإسم." + "<br>" + _
                                         "تم حفظ الملف تحت اسم  " + fileName
            End If
            savePath += fileName
            FileUpload1.SaveAs(savePath)
            pathname = fileName
        End Sub
    لقد وضعت هذا الكود

    كود:
         
         If Fex <> ".gif" Or Fex <> ".GIF" Or Fex <> ".jpg" Or Fex <> ".JPG" Or Fex <> ".bmp" Or Fex <> ".BMP" Or Fex <> ".png" Or Fex <> ".PNG" Then
                UploadStatusLabel.Text = "نوع الملف الذي تم اختياره غير مسموح به"
                Exit Sub
            End If
    حتى استثني باقي الملفات من غير الصور

    المشكل انه ومع وجود Exit Sub يعود و يكمل تنفيد باقي الكود ويقوم بحفظ البيانات في قاعدة البيانات






    __________________
    شبكة النبع الصافي = www.annab3.net
    منتديات النبع الصافي = http://www.annab3.net/forum/
    مكتبة الدروس و المواعظ = http://www.annab3.net/doros/
    مكتبة البرامج و السكريبتات = http://www.annab3.net/pro/


  2. #2

    تاريخ التسجيل
    Jun 2006
    المشاركات
    1,370


    هلا اخي البديل الاسلامي

    في هذا الكود

    كود:
    If Fex <> ".gif" Or Fex <> ".GIF" Or Fex <> ".jpg" Or Fex <> ".JPG" Or Fex <> ".bmp" Or Fex <> ".BMP" Or Fex <> ".png" Or Fex <> ".PNG" Then
                UploadStatusLabel.Text = "نوع الملف الذي تم اختياره غير مسموح به"
                Exit Sub
            End If
    استبدل ال or ب and
    انت مستخدم or وهذا بعني انه سوف يتحقق دائما
    مثلا لو لم يكن الامتداد يساوي gif او ماكان يساوي GIF يدخل الشرط وهذا يعني انه سوف يتحقق دائما لذلك لن يدخل لتنفيذ حدث ال exit sub

    في حالتك هذه يجب ان تكون and

    يعني تصحيح الكود هو

    كود:
    If Fex <> ".gif" and Fex <> ".GIF" and Fex <> ".jpg" and Fex <> ".JPG" and Fex <> ".bmp" and Fex <> ".BMP" and Fex <> ".png" and Fex <> ".PNG" Then
                UploadStatusLabel.Text = "نوع الملف الذي تم اختياره غير مسموح به"
                Exit Sub
            End If






    __________________
    @_@



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

    عموا اخي الحبيب بارك الله فيك و جعل ما تقوم به في ميزان حسنات






    __________________
    شبكة النبع الصافي = www.annab3.net
    منتديات النبع الصافي = http://www.annab3.net/forum/
    مكتبة الدروس و المواعظ = http://www.annab3.net/doros/
    مكتبة البرامج و السكريبتات = http://www.annab3.net/pro/

  4. #4

    تاريخ التسجيل
    Jun 2006
    المشاركات
    1,370


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

    عموا اخي الحبيب بارك الله فيك و جعل ما تقوم به في ميزان حسنات
    حياك الله اخوي

    لم افهم قصدك هنا ؟؟؟
    لكن المشكل الذي سالتك فقد تمكنت من حله وهو بسيط جدا ويبدو اني فشلت في إيصاله اليكم بالطريقة السليمة






    __________________
    @_@

  5. #5


    بسم الله الرحمن الرحيم
    أولا : الان هذا هو الاسم الذي ساشارك به في هذا المنتدى انطلاقا من اليوم . فقد تمكنت من التسجيل باسمي الخاص بي و سأستغني عن حسابي صديقي الحبيب البديل الاسلامي الذي منحني معلومات الدخول باسمه

    بارك الله فيك أخي على المجهود الذي بذلته معي
    بخصوص المشكل أخي فقد كان بسيطا لم انتبه له وقتها
    ويبدو اني فشلت في إيصاله اليك كما يجب لذلك اتجهت في جوابك اتجاها آخر غير الذي كنت اريد الوصول اليه
    عموما أخي لا حرمنا الله من مساعدتك و صبرك الطويل علي
    جعله الله في ميزان حسنات
    ك










ضوابط المشاركة

  • لا تستطيع إضافة مواضيع جديدة
  • لا تستطيع الرد على المواضيع
  • لا تستطيع إرفاق ملفات
  • لا تستطيع تعديل مشاركاتك
  •  

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