[عبدالله الدوسري]

مساء النور

أولا : Exit For تستخدم للخروخ من الحلقة قبل إنتهائها. 
        على سبيل المثال حلقة في منتصفها وجدة ما تبحث عنة أو إنتهيت من القيام بعمل معين, لماذا تكمل الحلقة وأنت قد وجدة ما تبحث عنة, لذلك تستخدم Exit For



ثانياً : إذا كنت قلق من التأخير , فيجب أن تعيد النظر في مسألة فتح وإغلاق الإتصال في كل حلقة تكرار.
         فتح وإغلاق الإتصال في كل حلقة تكرار سيسبب الكثير من التأخير , وأنت في غنى عن إغلاق وإعادة فتح الإتصال في كل حلقة.
         لو قلت لك امسك قلم حبر واكتب على ورقة بيضاء كلام من أختيارك على الأقل 20 كلمة!!!!!
         السؤال : هل ستفتح غطاء القلم وتغلقة بعد كل كلمة؟ أم أنك ستفتح الغطاء مرة واحدة ثم تبداء بالكتابة وعند الإنتهاء كلياً تقوم بإغلاق غطاء القلم؟؟؟؟؟؟



لاحظ هنا فتح وإغلاق الإتصال خارج الحلقة For

كود :

  Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

      con.Open()  <<<---------------
      For index = 0 To dt.Rows.Count - 1
          x = dt(index)(0)
          Dim cmd As SqlCommand
          cmd = New SqlCommand("UpdateTBL_22", con)
          cmd.CommandType = CommandType.StoredProcedure
          Dim Parma(1) As SqlParameter
          Parma(0) = New SqlParameter("@ID", SqlDbType.Int) With {.Value = x}
          Parma(1) = New SqlParameter("@ysers", SqlDbType.Int) With {.Value = "700"}
          cmd.Parameters.AddRange(Parma)
         
          cmd.ExecuteNonQuery()
      Next
      con.Close()   <<<---------------

      MsgBox("ok")
  End Sub