Sticky topic.
X
X

دورة صناعة برنامج مولد أكواد السيكوال والأكسس بالدوت نت

Programming Languages

 
  • Filter
  • Time
  • Show
Clear All
new posts
  • oromoro
    Free Membership
    • Nov 2018 
    • 38 

    #46
    لكل من يواجه مشكلة مع استهار اسم السرفر في كلتا الطريقتين ودلك بسبب نسخة الويندوز الهجينة لنظام 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
    Comment
    • oromoro
      Free Membership
      • Nov 2018 
      • 38 

      #47

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