تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيفية جلب اسم السيرفر
#1
السلام عليكم اخوتي الاحباب
كيف لي ان اجلب اسم سيرفر ال SQL 
يعني عند الضغط علي زر تظهر رساله مثلا وفيها اسم السيرفر

وجزاكم الله خيرا
الرد }}}
تم الشكر بواسطة:
#2
ضع ComboBox على الفورم و جرب السب التالي :

PHP كود :
   Sub LoadServer(ByVal Combo As ComboBox)
 
       Try
            Dim Instance 
As New ArrayList
            Dim Rk 
As New ArrayList
            Instance
.AddRange(Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Microsoft SQL Server""InstalledInstances""MSSQLSERVER"))
 
           If Instance.Count 0 Then
                For Each Element 
As String In Instance
                    If Element 
"MSSQLSERVER" Then
                        Combo
.Items.Add("(Local)")
 
                       Combo.Items.Add(System.Environment.MachineName)
 
                   Else
                        Combo
.Items.Add("(Local)" "\" + Element)
                        Combo.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 
ضع في كود تحميل الفورم :
PHP كود :
       LoadServer(ComboBox1)
 
       ComboBox1.SelectedIndex 
الرد }}}
#3
وعليكم السلام ورحمة الله وبركاته
مرحباً اخى Emam emam

يمكنك استخدام هذا الكود
كود :
       Try
           Dim servers As DataTable = System.Data.Sql.SqlDataSourceEnumerator.Instance.GetDataSources()
           For i As Integer = 0 To servers.Rows.Count
               ComboBox1.Items.Add(servers.Rows(i)("ServerName") + "\\" + servers.Rows(i)("InstanceName"))
               ComboBox1.SelectedIndex = 0
           Next
       Catch ex As Exception
           MessageBox.Show(ex.Message)
       End Try

ولتجنب تعليق البرنامج فى عملية جلب البيانات
طبقاً لحالة موارد الجهاز وسرعة الاستجابة فقم باستخدام 
BackgroundWorker

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
#4
(08-10-19, 08:35 AM)asemshahen5 كتب : ضع ComboBox على الفورم و جرب السب التالي :

PHP كود :
   Sub LoadServer(ByVal Combo As ComboBox)
 
       Try
            Dim Instance 
As New ArrayList
            Dim Rk 
As New ArrayList
            Instance
.AddRange(Registry.GetValue("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Microsoft SQL Server""InstalledInstances""MSSQLSERVER"))
 
           If Instance.Count 0 Then
                For Each Element 
As String In Instance
                    If Element 
"MSSQLSERVER" Then
                        Combo
.Items.Add("(Local)")
 
                       Combo.Items.Add(System.Environment.MachineName)
 
                   Else
                        Combo
.Items.Add("(Local)" "\" + Element)
                        Combo.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 
ضع في كود تحميل الفورم :
PHP كود :
       LoadServer(ComboBox1)
 
       ComboBox1.SelectedIndex 

الف مليون شكر اخي عاصم دايما سباق بالخير
ربنا يجعله في ميزان حسناتك ان شاء الله

(08-10-19, 03:00 PM)elgokr كتب :
وعليكم السلام ورحمة الله وبركاته
مرحباً اخى Emam emam

يمكنك استخدام هذا الكود
كود :
       Try
           Dim servers As DataTable = System.Data.Sql.SqlDataSourceEnumerator.Instance.GetDataSources()
           For i As Integer = 0 To servers.Rows.Count
               ComboBox1.Items.Add(servers.Rows(i)("ServerName") + "\\" + servers.Rows(i)("InstanceName"))
               ComboBox1.SelectedIndex = 0
           Next
       Catch ex As Exception
           MessageBox.Show(ex.Message)
       End Try

ولتجنب تعليق البرنامج فى عملية جلب البيانات
طبقاً لحالة موارد الجهاز وسرعة الاستجابة فقم باستخدام 
BackgroundWorker

تحياتى لك
وتمنياتى لك التوفيق

اخي الجوكر اشكرك شكرا كثيرا 
بارك الله فيك علي اهتمامك وجعله في ميزان حسناتك ان شاء الله
الرد }}}
تم الشكر بواسطة: asemshahen5 , baha


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية جمع أرقام عمود فى الداتا جريد فيو بناءاً على بيانات معينة heem1986 5 223 25-02-24, 11:26 PM
آخر رد: heem1986
  كيفية تنفيذ امر عند التعليم على checkbox بالداتا جريد فيو heem1986 2 158 21-02-24, 01:37 AM
آخر رد: heem1986
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 193 20-02-24, 12:00 AM
آخر رد: Kamil
  كيفية تنفيذ أمر عرض بيانات من فورم ثان مصمم هاوي 7 329 19-02-24, 12:28 AM
آخر رد: مصمم هاوي
  كيفية حفظ وتحزيم المشروع وتشغيله كبرنامج علىجميع الاجهزة الرائد 3 1,123 18-02-24, 10:37 PM
آخر رد: الحزين اليماني
  [سؤال] كيفية انشاء فورم داخل مشروعى عاصم النجار 2 304 05-01-24, 12:36 AM
آخر رد: HALIM ELEULMA
  [سؤال] كيفية ربط ماكينة الدفع ببرنامج الكاشير ؟ osamaelmaghraby 3 323 26-12-23, 11:53 PM
آخر رد: osamaelmaghraby
  كيفية رسم بيان دالة رياضية؟ الخير19 6 415 23-12-23, 03:36 PM
آخر رد: الخير19
  [سؤال] كيفية تشغيل ملف باتش دون ظهور "نافذةالـ Consol "؟ AmeenRashed 9 672 14-12-23, 12:07 PM
آخر رد: asmarsou
  كيفية جعل من كتاب فيه هوامش ونص (قاعدة بيانات وواجهة فيجوال مثل الشاملة) ابو امجد 1 1,605 10-12-23, 12:53 PM
آخر رد: محمد بن عطية

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


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم