jalehak
پنج شنبه 03 اسفند 1391, 10: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
میخواستم بدونم این قطغه کد چه چیزی رو برمیگردونه؟
در واقع کوئری چکار میکنه و اطلاعات داخل چی ذخیره میشه؟
ممنونم لطفا نظرتون رو بگید
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