لكل من يواجه مشكلة مع استهار اسم السرفر في كلتا الطريقتين ودلك بسبب نسخة الويندوز الهجينة لنظام 68 بين استبدال الكود الخاص بنوات تشغيل 64 و 32 بهدا الكود و دلك نظرا لتراجع المشاركة في موضوع مثل هدا و استبدال اجراء مناداته بهدا ايضا

في الوغين فورم الود انستنت ClassSQL.GetInstanceName(ComServerName)

Public Sub GetInstanceName(server As DevExpress.XtraEditors.ComboBoxEdit)
Try
Dim LocalMachine = RegistryKey.OpenBaseKey(RegistryHive.LocalMachine, RegistryView.Registry64)
Dim Rk = LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Microsoft SQL Server")
Dim Instance = CType(Rk.GetValue("InstalledInstances"), String())
If Instance.Length > 0 Then
For Each Element As String In Instance
If Element = "MSSQLSERVER" Then
server.Properties.Items.Add(System.Environment.MachineName)
Else
server.Properties.Items.Add(System.Environment.MachineName + "" + Element)
End If
Next Element
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical + MsgBoxStyle.MsgBoxRight + MsgBoxStyle.MsgBoxRtlReading, "Error")
End Try
End Sub

الرجاء المساعدة استعصى علي هدا الامر اثناء حدث is login يضهر هدا الخطأ لا يجلب لي الجداول لرجاء المساعدة من قبل الاستاد Abufahmi@