تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] مشكلة بالسيرفر ارهقتني
#1
السلام عليكم ورحمة الله وبركاتة 

انا قمت بانشاء برنامج مربوط بقاعدة بيانات سيكول سيرفر 2014  القعدة مرفوعة باستضافة .

- كل شيء تمام عندي الاتصال واظهار البيانات .

حاولت اجرب البرنامج علي جهاز النت ضعيف فية وحاولت اعمل مشكلة عدم وجود نت بفصل كيبل النت اثناء العمل .

هنا حدثت المشكلة التطبيق بيفضل فاتح الواجهة ومفيش بيانات ودة طبيعي لان مستلمش بيانات من السرفر وطبعا مفيش خطا طبيعي ايضا لان فعليا مفيش خطا .

- المطلوب هو وضع خطا عند طول مدة الانتظار من السيرفر يعني لو مدة الاتصال تخطت 30 ثانية او اكثر يظهر خطا بطول المدة لان كدة التطبيق مش وا ضح عند المستخدم اي شيء 

- لو حد عندة فكرة يوضحها وياريت تكون مدعومة بالكود ويكون جربها قبل كدة .

دالة ملاء الداتا سيت 

كود :
Public Sub fillDATASETA(ByVal ds As DataSet, ByVal tablename As String, ByVal query As String)
       con.Open()
       Using cmd As SqlCommand = New SqlCommand(query, con)
           Using DataAdapter = New SqlDataAdapter(cmd)
               cmd.CommandTimeout = 30
               ds.Clear()
               DataAdapter.Fill(ds, tablename)
               con.Close()
           End Using
       End Using
   End Sub

كود محاول مني  لتصيد خطا الوقت عند تجاوز 30 ثانية بالسيرفر  بدون نتيجة 

كود :
Try

fillDATASETA( DSMANGMANG, "SETTING", "SELECT * FROM  SETTING")

       Catch ex As System.Data.SqlClient.SqlException
           If (ex.Number = -2) Then
               con.Close()
              'ERROR There is too much time without data  
           End If

       Catch ex As Exception

           con.Close()
           'ERROR
       End Try
الرد }}}
تم الشكر بواسطة:


الردود في هذا الموضوع
مشكلة بالسيرفر ارهقتني - بواسطة محمد اسماعيل - 15-08-20, 04:54 PM


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


يقوم بقرائة الموضوع: