پيش فرض بدست آوردن نام تمام سرور ها و دیتابیس های موجود روی هر سرور

[sari-1369]

سلام دوستان .

چطوری میشه لیست همه سرور هرو بدست اورد و لیست دیتابیس های SqlServer روی هر سرور رو دید ؟

پیشاپیش ممنون

[sari-1369]

مدیران لطفا عنوان تایپیک رو ویرایش کنید :

"پیش فرض" اضافی هستش . ( این پست رو هم حذف کنید ) لطفا

[armin8651]

یک سری جدول ها و stored procedure ها تو پایگاه داده Master هستند که این کارها رو انجام میدن. از اونها باید استفاده کنی. اینم کد:


Dim ConnSTRING As String

Private Sub fillDataSet(ByRef ds As DataSet, ByVal Cmd As String, ByVal connectionStr As String)

Dim conn As SqlConnection = New SqlConnection(connectionStr)
Dim ad As SqlDataAdapter = New SqlDataAdapter(Cmd, conn)
conn.Open()
ad.Fill(ds, "Table1")
conn.Close()

End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ConnSTRING = "Data Source=(local);Initial Catalog=master;Integrated Security=True"
Dim CmdSTR As String = "select srvname from sysservers"
Dim DS As New DataSet()
fillDataSet(DS, CmdSTR, ConnSTRING)

For Each DR As DataRow In DS.Tables("Table1").Rows
ComboBox1.Items.Add(DR("srvname").ToString())
Next
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
ConnSTRING = "Data Source=" & ComboBox1.Text & ";Initial Catalog=master;Integrated Security=True"
Dim CmdSTR1 As String = "exec sp_DataBases"
Dim DS1 As New DataSet()
fillDataSet(DS1, CmdSTR1, ConnSTRING)
For Each DR As DataRow In DS1.Tables("Table1").Rows
ComboBox2.Items.Add(DR("DataBase_name").ToString())
Next
ComboBox2.SelectedIndex = 0
End Sub



اینم یادت نره


Imports System.Data
Imports System.Data.SqlClient

لیست جدول های هر پایگاه داده و فیلدهای هر جدول و ... هم میشه از همین طرق به دست آورد.