Ситуация следующая
В проге находил список доступных SQL серверов в локальной сети (MS SQL 2000), выбирал нужный и получал список БД этого сервера вот эти кодом
- Код: Выделить всё
Dim dr As DataRow
Dim bldr As New SqlConnectionStringBuilder
bldr.DataSource = Trim(cmbServers.Text)
bldr.InitialCatalog = ""
bldr.UserID = Trim(txtUserName.Text)
bldr.Password = Trim(txtPassword.Text)
Try
Dim connSQL As New SqlConnection(bldr.ConnectionString)
connSQL.Open()
Dim table As System.Data.DataTable = connSQL.GetSchema("Databases")
For Each dr In table.Rows
If InStr(UCase(dr.Item(0).ToString), "STR") <> 0 Then
cmbDataBase.Items.Add(dr.Item(0).ToString)
End If
Next
connSQL.Close()
Этот код работал в случаях когда сервер (MS SQL 2000) стоял на win 2000. winxp, win2003 и ни каких проблем не возникала при переносе этого кода под win 7 возникла проблема
Список серверов получаю, а вот при получении БД данного сервера выдает ошибку
An error has occurred while establishing a connection to the server. When connecting to SQL Server 2005, this failure may be caused by the fact that under the default settings SQL Server does not allow remote connections. (provider: Named Pipes Provider, error: 40 - Could not open a connection to SQL Server)
Что можно предпринять
Спасибо...
[Ramzes] пользуемся тегом code
