خطأ في البرنامج وذلك عند تشغيلة

هل حاولت تتبع الخطأ؟ قد تكون المشكلة من الدالة Get_ConnectionString

الاخ الغالي system down

لقد تتبعت الخطأ بالفعل

ولا ادري ماذا يريد مني البرنامج مع العلم ان يوجد لدي نسخة احتياطية كانت شغالة بدون مشاكل وعند تجربتها لئيت فيها نفس المشكلة

عموما تفضل ملف مشروح بالفيديو لتتبع المشكلة

الاخ الغالي السعوددي

الحل المطروح من طرفك لم يفلح

ايضا غيرت امتداد الملف من XML الي txt

وغيرت هذا الامتداد في الكود ولكن بدون جدوي نفس الخطأ المرفق

وشكرا علي المساعدة

Error.rar

السلام عليكم,,,

اخي ممكن تعرض InnerException للخطأ الذي يحصل معاك.

مش فاهم

بعد الضغط علي InnerException التي تظهر في الخطأ تظهر هذه الصورة والتي قد وضعتها في اول المشاركة

لما يظهر الخطأ.

تضغط على View Detail، ومن النافذة الي تظهر تضغط على علامة (+) ويظهر InnerException .

جرب تجعل اسم الـ Server في ملف الـ XML هكذا ورد علينا :)

تفضل صورة من الخطأ كما طلبت

حزووم

لم تفلح العملية

Imports System.IO



Public Function Get_ServerName() As String

Dim ServerName As String

If My.Computer.FileSystem.FileExists("C:MyServerName.txt") Then

  Dim sr As New StreamReader("C:MyServerName.txt")
  ServerName = sr.ReadLine
  Return ServerName

End If

End Function



Public sqlcon As New SqlClient.SqlConnection("Server=" & Get_ServerName() & "SQLEXPRESS;Database=index;Trusted_connection=yes;")

عادة الخطأ TypeInitializationException يكون نتيجة خطأ آخر يظهر في InnerException .

واظن ان الخطأ معاك في sqlcon في نص الأتصال،

على العموم ممكن تجرب تعمل تتبع كافة الأخطاء التي يمكن ان تنتج في زمن التشغيل، كيف؟

من القائمة Debug اضغط على Exceptions وعين الأعدادات كما في الصورة.

بعدها شغل البرنامج وشوف فين الخطأ او الأخطاء الي تحصل.

شكراً جزيلاً لكم يا اخواني

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

احب ان اشرح لكم كيف توصلت للمشكلة فربما تقابل احد الزملاء فيما بعد

المشكلة كانت في هذه الدالة تحديداً

Function FileCreate_Set_Get() As String
		Dim connstring As String = Nothing
		If My.Computer.FileSystem.FileExists(Application.StartupPath & "\" & "ConStr.XML") Then
			Dim sr As New StreamReader(Application.StartupPath & "\" & "ConStr.XML")
			connstring = sr.ReadLine
		Else
			Dim Str As New FileStream(Application.StartupPath & "\" & "ConStr.XML", FileMode.Create)
			Dim Sw As New StreamWriter(Str)
			Sw.WriteLine("Server=CODING01\TEST;Database=index;User ID=sa;password=123456;")
			Sw.Close()
			Str.Close()
			FileCreate_Set_Get()
		End If
		Return connstring
End Function

وبالاخص هذا السطر

Sw.WriteLine ( True)

وهو مسؤل عن كتابة سلسلة الاتصال داخل الملف النصي

وكانت سلسة الاتصال تظهر بهذا الشكل

Server=MFOUADSQLEXPRESS;Database=index;Trusted_connection=yes;True

المشكلة كلها في كلمة True

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

شكراً لكم جميعا علي المساعدة