[سعود]

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

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