الحصول على خطأ الرجاء مساعدتي ألقى الخادم استثناء. (استثناء من HRESULT: 0x80010105 (RPC_E_SERVERFAULT))

برمجة

[ad_1]

The server threw an exception. (Exception from HRESULT: 0x80010105 (RPC_E_SERVERFAULT))

عند تشغيل مشروعي أحصل على هذا الخطأ، الرجاء مساعدتي في حل المشكلة

ما حاولت:

  1  Private Function GetXlUsedRange(ByVal filePath As String) As Object(,)
  2          Dim xlApp As Excel.Application
  3          Dim xlWorkbooks As Excel.Workbooks
  4          Dim xlWorkbook As Excel.Workbook
  5          Dim xlSheets As Excel.Sheets
  6          Dim xlWorkSheet As Excel.Worksheet
  7          Dim xlRange As Excel.Range
  8  
  9  
 10          xlApp = New Excel.Application
 11          xlWorkbooks = xlApp.Workbooks
 12          xlWorkbook = xlWorkbooks.Open(filePath)
 13          xlSheets = xlWorkbook.Worksheets
 14          xlWorkSheet = CType(xlSheets("Data"), Excel.Worksheet)
 15          xlRange = xlWorkSheet.UsedRange
 16  
 17          Dim rangeValues(,) As Object
 18          rangeValues = CType(xlRange.Value, Object(,))
 19  
 20  
 21          xlWorkbook.Close()
 22          xlWorkbooks.Close()
 23          xlApp.Quit()
 24  
 25          releaseObject(xlRange)
 26          releaseObject(xlWorkSheet)
 27          releaseObject(xlSheets)
 28          releaseObject(xlWorkbook)
 29          releaseObject(xlWorkbooks)
 30          releaseObject(xlApp)
 31  
 32          Return rangeValues
 33      End Function
 34  
 35      Private Sub releaseObject(ByVal obj As Object)
 36          Try
 37              System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
 38              obj = Nothing
 39          Catch ex As Exception
 40              obj = Nothing
 41          End Try
 42      End Sub
 43  
 44      Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 45          Dim usedRange(,) As Object = GetXlUsedRange("C:\Users\Jayanta Modak\Desktop\import.xls")
 46  
 47          Dim fromRow As Integer = 7
 48          PopulateListView(usedRange, fromRow)
 49      End Sub

الحل 1

لنكون صادقين، لا يمكننا مساعدتك بهذه المعلومات القليلة، وربما لا نستطيع أن نقدم لك “حلًا كاملاً” على الإطلاق – ببساطة لأنه ليس لدينا طريقة للوصول إلى جدول البيانات الخاص بك على نظامك أثناء تشغيل التعليمات البرمجية، و أنت بحاجة إلى ذلك لبدء تشخيص المشكلة.

لذا، سيكون الأمر متروكًا لك.
لحسن الحظ، لديك أداة متاحة لك والتي ستساعدك على معرفة ما يجري: مصحح الأخطاء. إذا كنت لا تعرف كيفية استخدامه، فمن المفترض أن يوفر لك Google السريع لـ “مصحح أخطاء Visual Studio” المعلومات التي تحتاجها.

ضع نقطة توقف على السطر الأول في الوظيفة، وقم بتشغيل التعليمات البرمجية الخاصة بك من خلال مصحح الأخطاء. ثم انظر إلى التعليمات البرمجية الخاصة بك وإلى بياناتك واكتشف ما يجب أن يحدث يدويًا. ثم قم بخطوة واحدة في كل سطر للتأكد من أن ما كنت تتوقع حدوثه هو بالضبط ما حدث. عندما لا يكون الأمر كذلك، فهذا هو الوقت الذي تواجه فيه مشكلة، ويمكنك التراجع (أو تشغيلها مرة أخرى والنظر عن كثب) لمعرفة السبب.

عندما تعرف السطر الذي يسبب الاستثناء، يمكنك إلقاء نظرة على البيانات التي مررتها إليه وما يفعله (ربما تحتاج إلى إعادة تشغيل تطبيقك مع تعيين نقطة توقف على السطر الفاشل). يجب أن تعطيك البيانات أدلة حول المشكلة.

عذرًا، ولكن لا يمكننا القيام بذلك نيابةً عنك – حان الوقت لتتعلم مهارة جديدة (ومفيدة جدًا جدًا): تصحيح الأخطاء!

[ad_2]

コメント

タイトルとURLをコピーしました