Модераторы: Akina

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Настройка для доступа через локальную сеть, Доступ D7 ADOConnection 
:(
    Опции темы
Lord_HEV
Дата 18.4.2006, 22:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 20
Регистрация: 11.11.2004

Репутация: нет
Всего: нет



Привет! Помогите, плиз, по такому вопросу.

Есть проект на Дельфи 7, подключение к MS SQL Server 2000 через ADO Connection.

Как правильно настроить сервер и компонент ADO, чтобы программа автоматически подключалась с удаленного клиента через локальную сеть?

Заранее благодарен! 
PM MAIL   Вверх
Vit
Дата 19.4.2006, 14:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Vitaly Nevzorov
****


Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 5
Всего: 207



Прописать и запомнить строку подключения, указать чтоб в ней пароль запоминался, в ADOConnection поставить LoginPrompt=False 


--------------------
With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru
PM MAIL WWW ICQ   Вверх
Lord_HEV
Дата 19.4.2006, 16:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 20
Регистрация: 11.11.2004

Репутация: нет
Всего: нет



Хорошо, а как лучше прописать строчку?

Код

Form1.ADOConnection1.ConnectionString:='Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Recruting;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=LORD;Use Encryption for Data=False;Tag with column collation when possible=False';




 
PM MAIL   Вверх
Vit
Дата 19.4.2006, 16:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Vitaly Nevzorov
****


Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 5
Всего: 207



Что значит "лучше"? Она не может быть лучше или хуже, она должна быть правильная и зависит от очень многих факторов - типа security, настроек сервера, сетки и т.п. 


--------------------
With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru
PM MAIL WWW ICQ   Вверх
Lord_HEV
Дата 19.4.2006, 18:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 20
Регистрация: 11.11.2004

Репутация: нет
Всего: нет



Спасибо за совет, просто не совсем понимаю как правильно настроить сетевые параметры сервера MS SQL, вроде настроил протоколы и порты, но все равно выводит сообщение об ошибке подключения (не найден сервер).

Учусь еще,  smile  
PM MAIL   Вверх
Vit
Дата 19.4.2006, 19:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Vitaly Nevzorov
****


Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 5
Всего: 207



Попробуй вместо имени сервера поставить IP адрес компьютера на котором сервер установлен 


--------------------
With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru
PM MAIL WWW ICQ   Вверх
Lord_HEV
Дата 19.4.2006, 23:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 20
Регистрация: 11.11.2004

Репутация: нет
Всего: нет



Я попробовал поставить IP в поле Workstation. Получилось, только опять же на компьютере где установлен сервер.
Через удаленный все равно не видит, пишет DBNETLIB Connection not found connection()))), что-то в этом роде.
Настроил client netrwork utility и server network utility при помощи книжки книжки SQL Server2000 Справочник администратора, открыл для удаленного компа полный доступ. 

Короче ничего не добился, и еще сервак угрохал, сейчас не могу подключиться даже напрямую
выдает: доступ  к серверу(имя) закрыт, попробуй настроить параметры идентификации, проверил, все равно запустить не могу, уже второй раз так  smile Такая проблема была описана, советовали ставить NTSwitch и другую версию MS SQL, у меня при установке есть возможность выбрать client and server, NTSwitch не заработал. 


Не может ли это быть из-за попыток доступа с удаленного компа ???  smile  
PM MAIL   Вверх
Silmarion
Дата 20.4.2006, 12:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 73
Регистрация: 31.10.2005
Где: Москва

Репутация: нет
Всего: нет



Такая же проблема... только он дает мне доступ через именованные каналы... причем если настроить логин и пароль авторизации винды на клиенте совпадает с логином и паролем авторизации SQL сервера... жесть... короче через TCP/IP тоже не пашет... если вдруг ктонить сталкивался и настравал подскажите я 3ю неделю парюсь  smile  ... \

У Вас сеть доменная или просто рабочаю группа... просто если доменная то при установке надо указывать название домена, иначе он не даст доступ 
PM MAIL ICQ   Вверх
Vit
Дата 20.4.2006, 15:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Vitaly Nevzorov
****


Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 5
Всего: 207



Так же как и Network Client Utility есть - Network Server Utility на сервере ессно, в ней надо проверить установлена ли TCP/IP библиотека, потому как если нет, то действительно только через каналы может работать. 


--------------------
With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru
PM MAIL WWW ICQ   Вверх
kivan
  Дата 20.4.2006, 17:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 111
Регистрация: 17.10.2005

Репутация: нет
Всего: нет



Ребят,у меня все работает,установил Network Server Utility настроил   TCP/IP библиотеку,т.е указал порт + имя сервера, все работает, что вы там намудрили smile   
Vit прав, попробуйте все заного, может чего упустили...  

Это сообщение отредактировал(а) kivan - 20.4.2006, 17:52
--------------------
#----------------------------------------------------------#A little knowledge is a dangerous thing...!!!senatum.blogspot.com
PM MAIL WWW ICQ   Вверх
Silmarion
Дата 21.4.2006, 10:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 73
Регистрация: 31.10.2005
Где: Москва

Репутация: нет
Всего: нет



Network Server Utility в ней настроил и порт он как и у Network Client Utility 1433  smile  smile  smile  
PM MAIL ICQ   Вверх
Vit
Дата 21.4.2006, 16:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Vitaly Nevzorov
****


Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 5
Всего: 207



Скажи подробнее как настроен сервер и клиент и как подключаешься 


--------------------
With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru
PM MAIL WWW ICQ   Вверх
Lord_HEV
Дата 21.4.2006, 20:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 20
Регистрация: 11.11.2004

Репутация: нет
Всего: нет



Настраивал сервер и клиент таким образом:

 сервер: 

отключены все протоколы, кроме TCP
порт по умолчанию - 1433, галочка hide server снята.

галочки force protocol и enable winsock proxy отключены.


 клиент:

включен только протокол TCP/IP
в настройках default port: 1433

пробовал настраивать alias, не помогло.

в настройках алисаса:
прописан server alias и server name
пробовал включать и выключать dynamically determinate port и настраивать - не получилось (не знаю что это такое)

подключение при помощи ADO:
Код

Form1.ADOConnection1.ConnectionString:='Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Recruting;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=110.120.130.142;Use Encryption for Data=False;';


В строке Workstation ID пробовал поставить IP адрес, как советовали, ставил разный, не помогает (на машине, где сервак, ему вообще пофиг что там написано).  smile 

в сети всего две машины(делаю дома, диплом) 

ОС:
на "сервере" - WIN XP SP2 ENGLISH
на "клиенте" - WIN XP HomeEdition RUS
в сети полностью открыт взаимный доступ, фаерволы отключены.
ставил на "сервере" вторую ось - Win 2003 Server, открыл права - не работает.
Есть предложение поставить на машину клиента WIN XP SP2, но пока не сделал, на днях поставлю.  
PM MAIL   Вверх
Vit
Дата 21.4.2006, 23:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Vitaly Nevzorov
****


Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 5
Всего: 207



Строка подключения примерно такая, для серверной security:

Provider=SQLOLEDB.1;Password={здесь пишем пароль};Persist Security Info=True;User ID={здесь пишем логин};Initial Catalog={здесь пишем имя базы 
данных};Data Source={Здесь пишем имя сервера или его IP}

(фигурные скобки в реале не нужны)


Workstation ID - не имеет отношение к серверу, здесь прописывается IP/имя клиента а не сервера, не нужный в общем-то параметер

Добавлено @ 23:06 
Вот код для Дельфи:

Код

procedure Tdm.Connect(Server, Database, Login, Password: string);
begin
  try
    screen.cursor:=crSQLWait;
    ADOConnection.Connected:=false;
    ADOConnection.ConnectionString:=Format('Provider=SQLOLEDB.1;Password=%s;Persist Security Info=True;User ID=%s;Initial Catalog=%s;Data Source=%s',[Password, Login, database, Server]);
    ADOConnection.Connected:=true;
  finally
    screen.cursor:=crDefault;
  end;
 


--------------------
With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru
PM MAIL WWW ICQ   Вверх
Silmarion
Дата 24.4.2006, 09:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 73
Регистрация: 31.10.2005
Где: Москва

Репутация: нет
Всего: нет



Я тоже пишу на дельфях под АДО компоненты... но даже этот код не помогает  smile  Но как была ошибка сервер не найден или отсутствует доступ так и осталась  smile

Добавлено @ 09:32 
Коннект происходит только через именнованные каналы причем на клиент машине должен быть логин sa и пароль должен совпадать с паролем на сервак к БД

Добавлено @ 09:33 
Иеще на серваке тоже пришлось создать учетную запись sa и пароль такойже как и у SQL к логину sa 
PM MAIL ICQ   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "MS SQL"
Akina

Akina

Запрещается!

Публиковать ссылки и обсуждать взлом чего бы то ни было.

  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы составления неспецифических запросов рассматриваются здесь
  • Используйте теги [code=sql][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Zloxa, Akina.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | MS SQL Server | Следующая тема »


 




[ Время генерации скрипта: 0.1134 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.