17-10-12, 08:23 PM
كاتب الموضوع : Marwan
كود :
Function GetSQLInstances() As List(Of String)
Dim Instances As New List(Of String)
Dim s As Sql.SqlDataSourceEnumerator
s = Sql.SqlDataSourceEnumerator.Instance
Dim ta As DataTable = s.GetDataSources
For Each row As DataRow In ta.Rows
Instances.Add(row(1).ToString)
Next
Return Instances
End Function