[0theghost0]

هذا الكود وضيفته البحث عن sql server name

كود :

Try
           Cursor = Cursors.WaitCursor
           Timer2.Enabled = True
           Dim dataTable As DataTable = SmoApplication.EnumAvailableSqlServers(True)
           cmbServerName.ValueMember = "Name"
           cmbServerName.DataSource = dataTable
           Dim serverName As String = cmbServerName.SelectedValue.ToString()
           Dim server As New Server(serverName)
       Catch ex As Exception
           MessageBox.Show("Sorry unable to find SQL Server instance" & vbCrLf & "If you have installed SQL Server then enter name of SQL Server instance manually", "Info", MessageBoxButtons.OK, MessageBoxIcon.Information)
       End Try

لكن يوجد به خطأ بسيط وهو لايستطيع اظهار الاسم ليقوم بختياره صحيح

[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته

عيد فطر سعيد كل سنة و أنت بمليون خير إن شاء الله

أستخدمت نفس الكود أخي الكريم .. و يعمل بشكل عادي

تحياتي

[0theghost0]

لدي سؤال بخصوص هذه الطريقة هل من الممكن رفع القاعدة في موقع معين ويتم الاتصال بالقاعدة المرفوعة اون لاين ؟؟

[elgokr]

بخصوص الاتصال بقاعدة البيانات

تابع الرد التالى

http://vb4arb.com/vb/showthread.php?tid=...#pid121712

تحياتى لك

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

[عبد العزيز البسكري]

إضافة ممكن تفيد ..

http://vb4arb.com/vb/showthread.php?tid=25414

[سعود]

مشاركة لاخواني اكتب ما اعرفه بهذا الخصوص

PHP كود :

Private Function servers() As List(Of String)
        Dim lst As New List(Of String)
        Dim instance As SqlDataSourceEnumerator = SqlDataSourceEnumerator.Instance
        Dim dt As DataTable = instance.GetDataSources()
        For Each row As System.Data.DataRow In dt.Rows
            lst.Add(row("ServerName"))
        Next
        Return lst
    End Function 


و للاستخدام ضمن زر امر او اي اجراء

PHP كود :

For Each h As String In servers()
            ListBox1.Items.Add(h)
        Next 


[0theghost0]

ممكن مثال لهذا الكود

مع دمجه بالكود او بالمثال المرفوع بالاعلى ولكم جزيل الشكر

[0theghost0]

اين انتم يا شباب

[elgokr]

راجع اخى الرد رقم 4

ستجد به ملخص ما تريد

تحياتى لك

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