پیدا کردن SQLServer

[ساران سافت]

می خواستم ببینم چجوری می شه توی برنامه شبکه رو گشت و Sqlserver 2005 رو یا هر SqlServer رو پیدا کرد؟

[رضا عربلو]

System.Data.DataTable AvialableSQLServers = System.Data.Sql.SqlDataSourceEnumerator.Instance.G etDataSources();

[Sub Zero]

Dim app As New SQLDMO.ApplicationClass()
Try
Dim name As SQLDMO.NameList = app.ListAvailableSQLServers()
For Each strServer As String In name
My.Forms.Form1.Srvlist.Items.Add(strServer)
Next
[2] Dim sqlSrv As New SQLDMO.SQLServer
sqlSrv.LoginSecure = True
sqlSrv.Connect(".\sqlexpress")
My.Forms.Form1.Srvlist.Items.Add(sqlSrv.HostName & "\SQLEXPRESS")
My.Forms.Form1.Srvlist.SelectedIndex = 0
Catch err As Exception
MsgBox(err.Message)
Finally
app.Quit()
app = Nothing
End Try
قسمت دوم برای اضافه کردن سرور SqlExpress هستش .
برای کار با SQLDMO هم باید فایل Microsoft SQLDMO Object Library رو به Refrence تون اضافه کنید .