Список SQL-серверов

[Sandr0]

Мое почтение, Уважаемые!

Суть задачи такова - необходимо получить имена sql-серверов в локальной сети (рассматривать варианты с доменом и без).

Какие есть предложения?

[Ennor]

Предложения имеет смысл высказывать, когда решение задачи заранее неизвестно. А в этом случае все должно выгугливаться за несколько секунд.

Вкратце - бродкаст на UDP 1434 и ждать ответов. Или, если sql monitor закрыт, перебирать все машины и пытаться коннектиться на TCP 1433. Правда, это дефолтный порт сиквела, и меняется он в настройках на раз, так что в общем случае решения задача не имеет. Да, домен ничего не меняет - сервер вовсе необязательно будет листиться в AD.

[Konst_One]

Копать здесь

Код: Выделить всё

Public Const SV_TYPE_SERVER = &H2
Public Declare Function NetServerEnum _
    Lib "Netapi32.dll" ( _
    vServername As Any, _
    ByVal lLevel As Long, _
    vBufptr As Any, _
    lPrefmaxlen As Long, _
    lEntriesRead As Long, _
    lTotalEntries As Long, _
    vServerType As Any, _
    ByVal sDomain As String, _
    vResumeHandle As Any) _
    As Long

[kif]

послал на 1434 и слушаю его же. ответа нет. монитор висит.

[Sandr0]

в принципе сам нашел ответ
подключаем библиотеку sqldmo, которая входит в состав sql

Код: Выделить всё

    Dim СписокСерверов As SQLDMO.Application
    Dim i As Integer
    Dim namX As NameList
    Set СписокСерверов = New SQLDMO.Application
    Set namX = СписокСерверов.ListAvailableSQLServers
    For i = 1 To namX.Count
        msgbox namX.Item(i)
    Next


и все работает

[Konst_One]

будет работать только там, где эта библиотека установлена!

[Sandr0]

ну дык для этого инсталяху делать треба

[Andrey Fedorov]

ну дык для этого инсталяху делать треба

Эта библиотека тянет за собой и другие из комплекта SQL-сервера

Ищи - я закидывал код примера...

[Sandr0]

Эта библиотека тянет за собой и другие из комплекта SQL-сервера

спасибо что подсказал - надо сразу проверить

а по поводу поиска твоего кода - сие весьма проблематично (поиском найдено 1538 сообщений)
то что нешел http://bbs.vbstreets.ru/viewtopic.php?p=45503&highlight=#45503 интересный... вот только есть еще один вопрос - как проверить установленно ли подключение и проверить список баз?

[alibek]

Тут смотрел?
http://bbs.vbstreets.ru/viewtopic.php?t=7870

[Sandr0]

оттуда и взял пример
но только сильно не копал
видел, что получаем список имен серверов, а про список баз не видал
чуть позже погляжу, если не трудно может подскажешь как получить список баз используя api?

[Andrey Fedorov]

оттуда и взял пример
но только сильно не копал
видел, что получаем список имен серверов, а про список баз не видал
чуть позже погляжу, если не трудно может подскажешь как получить список баз используя api?

Именно API???

А не проще: sp_helpdb

[Sandr0]

Andrey Fedorov
в твоем примере используется API ведь?
в принципе без разницы что использовать, лишь бы стандартными средствами без sqldmo

[Andrey Fedorov]

Andrey Fedorov
в твоем примере используется API ведь?

Да, но лишь для получения списка серверов. Это не значит что на API все пишется.

в принципе без разницы что использовать, лишь бы стандартными средствами без sqldmo

Ну я и говорю - подключаешься к серверу и sp_helpdb.

[Sandr0]

шпасиба
чуток освобожусь - и попробую

[Sandr0]

ну дык для этого инсталяху делать треба

Эта библиотека тянет за собой и другие из комплекта SQL-сервера

вот вже плин... действительно Error 1904 sqldmo failed to register

[Andrey Fedorov]

вот вже плин... действительно Error 1904 sqldmo failed to register

Чтобы она просто зарегистрирась достаточно один файлик добавить, но это все одно не поможет ибо ей для работы еще куча других понадобится. Кроме того сия DLL-ка из комплекта сервера и даже если бы она регистрирась, то наверняка распространяя ее отдельно ты нарушил бы лицензионное соглашение. Так что ее можно пользовать, но только на той машине где находится клиентская часть сервера (в некоторых случаях это приемлимо).

[Sandr0]

мдя
еще раз убеждаюсь, что если ничего не помогает читайте хэлп (msdn)
ток времени бы побольше

[Andrey Fedorov]

мдя
еще раз убеждаюсь, что если ничего не помогает читайте хэлп (msdn)
ток времени бы побольше

Эх (позевывая)... Да что там читать - один раз наизусть заучил, вот и все

Ставишь в References галочку напротив Microsoft OLE DB Service Component 1.0 Type Library и выполняешь следующий код:

Код: Выделить всё

    Dim cn As New ADODB.Connection
    Dim dl As New MSDASC.DataLinks
    cn.CursorLocation = adUseClient
    cn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False"
    If dl.PromptEdit(cn) Then
        cn.Open
        MsgBox cn.ConnectionString, vbInformation, "Вах, открыли базу!"
    Else
        MsgBox "Вы ничего не выбрали"
    End If


Тебе случаем не это нужно?

[Sandr0]

ага
типа того, ток я хатю сам найтить все серваки, ввести юзверя и паролъ, дык еще и получить список баз из выбранного сервака

[Andrey Fedorov]

ага
типа того, ток я хатю сам найтить все серваки, ввести юзверя и паролъ, дык еще и получить список баз из выбранного сервака

То бишь сделать свою подобную форму (она вообще-то позволяет все вышенаписанное проделать)?

Ну, если не пугает код на VB.NET, то можешь глянуть здесь:

http://contest2005.gotdotnet.ru/Request/Tools/DevTools/Downloads_GetFile.aspx?id=160916

и конвертнуть код форм frmSelConnection и frmEditConn в VB6

[Sandr0]

вот-вот! сию чудову игрышку треба...
а точка нет действительно пока пугает...