PDA

View Full Version : سوال: سوال از قطعه کد



jalehak
پنج شنبه 03 اسفند 1391, 09:11 صبح
سلام دوستان
میخواستم بدونم این قطغه کد چه چیزی رو برمیگردونه؟
در واقع کوئری چکار میکنه و اطلاعات داخل چی ذخیره میشه؟
ممنونم لطفا نظرتون رو بگید

Private Sub server(ByVal str As String)
Dim dread As SqlDataReader
Try

con = New SqlConnection("Data Source=" & str & ";Database=Master;integrated security=SSPI;")
con.Open()
cmd = New SqlCommand("select * from sysservers where srvproduct='SQL Server'", con)
dread = cmd.ExecuteReader
While dread.Read
lstServer.Items.Add(dread(2))
End While

lstServer.SelectedIndex = 0

dread.Close()

Catch ex As Exception

End Try

End Sub

jalehak
پنج شنبه 03 اسفند 1391, 10:26 صبح
سلام دوستان میشه بگید کوئری
select * from sysservers where srvproduct='SQL Server'
داره چی درخواست میکنه؟:افسرده:
ممنونم

the king
پنج شنبه 03 اسفند 1391, 15:33 عصر
sysservers لیست و مشخصات سرور های بانک اطلاعاتی رو ارائه می کنه که مشخصات جدول اش اینجا هست :

(sys.sysservers (Transact-SQL (http://msdn.microsoft.com/en-us/library/ms188740.aspx)

وقتی دریافت مشخصات این جدول رو به srvproduct هایی که "SQL Server" اند محدود کنید، فقط سرور های SQL Server
رو بدست می آورید، نه هر نوع Server ای. اون کد قبلی هم فیلد اندیس 2 (نام سرور، فیلد srvname) رو به یک ComboBox / ListBox اضافه می کنه،
یعنی سرور های SQL رو لیست می کنه.