Не могу приконнектиться к SQL Server 2000

07.07.2008, 21:06. **Показов** 1230. **Ответов** 1

Author24 — интернет-сервис помощи студентам

Проблема вот в чём: создаю (SQL SERVER 2000) в Enterprise Manager БД, назначаю usera и при подключение VB ругается. Я понимаю, что проблема с доступом именно на сервере, так как раньше код поключения я использовал. Может кто поскажет последовательность действий для открытия доступа с помощью Enterprise Manager или чего-нибудь другого. Код подключения следующий:

Visual Basic

Private cn As Connection
 
Private Sub Form_Load()
Set cn = New ADODB.Connection
 
cn.Provider = 'SQLOLEDB'
cn.ConnectionString = 'DATABASE=db2;SERVER=(local);UID=user;PWD=;'
cn.Open
end sub

Раньше с другими БД это работало.

21.07.2008, 18:08

Попробуй так

Visual Basic

1
2
3

DIM con as Object
Set con = CreateObject('ADODB.Connection')
con.Open 'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=DB_Name;Data Source=SERVER_NAME'

' DB_Name - имя БД
' Server_Name - имя SQL сервера
' это строка коннекта чисто OLEDB через ADO через трастовое соединение
' а вообще построй строку коннекта в VB через Data Environment и дерни

	21.07.2008, 18:08

Опции темы