Народ! Помогите присоединиться к MS SQL Server через VB6

[OMEGUS]

Дело вто в чем!

Пользователь вводит данные:

Имя пользователя
Пароль
Имя логического сервера
Имя базы данных

Необходимо по этим параметрам кот записываются в переменные проверить подсоединение к БД. Т.е. узнать существует такая БД Сревер и т.п.

И если есть то хорошо бы было выставить на форме окно кот само отображало список доступных логических SQL Servrov и и список баз данных. Наподобие DirListBox или DriveListBox....

Помогите пожалуйста подскажите код подключения к БД......

Или дайте ссылочку...

Спасибо всем!!!

[snov]

Дело вто в чем!

Пользователь вводит данные:

Имя пользователя
Пароль
Имя логического сервера
Имя базы данных

Необходимо по этим параметрам кот записываются в переменные проверить подсоединение к БД. Т.е. узнать существует такая БД Сревер и т.п.

И если есть то хорошо бы было выставить на форме окно кот само отображало список доступных логических SQL Servrov и и список баз данных. Наподобие DirListBox или DriveListBox....

Помогите пожалуйста подскажите код подключения к БД......

Или дайте ссылочку...

Спасибо всем!!!

Для получения списка доступных серверов используется библа SQLDMO. По ней куча примеров в инсталяхе к серверу (в зипе). Чтобы определить, что там есть а чего нет. цепляйся к серверу и обрабатывай ошибки

[GSerg]

www.connectionstrings.com

[OMEGUS]

ВСЕ ГОРАЗДО ПРОЩЕ ГОСПОДА !!!!!!!!!!!!!!!!!!

Private Sub Form_Load()
Set cn = New ADODB.Connection
cn.Provider = "SQLOLEDB.1"
cn.ConnectionString = "Persist Security Info=False;User ID=serg;Initial Catalog=Demo1;Data Source=SERVERDATA"

On Error GoTo MsgBox1

cn.Open

MsgBox ("Все ок !!!")

End

MsgBox1:

MsgBox ("Нифига !!!!!!!!")

End Sub