ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Не могу установить подключение
16 сообщений из 16, страница 1 из 1
Не могу установить подключение
    #32189853
Dmit
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dmit
Гость
Что только не пробывал никак не могу установить подключение к SQL
все время ругается
CurrentProject.OpenConnection - ругается
CurrentProject.Connection.ConnectionString -ругается
не могу сообразить как сделать

"Provider=SQLOLEDB.1;integrated security=SSPI;Persist Security Info=False;initial Catalog=Base1;DataSource=Server1;Use Procedure for Prepare=1;Auto Translate=True;workstation ID=Pr"
...
Рейтинг: 0 / 0
24.06.2003, 08:53
| Ответить | Цитировать | Написать  
Не могу установить подключение
    #32190062
Igogo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Igogo
Гость
А как ругается-то? :)
...
Рейтинг: 0 / 0
24.06.2003, 11:41
| Ответить | Цитировать | Написать  
Не могу установить подключение
    #32190111
Фотография Pavel
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pavel
Участник
программно переопределить CurrentProject.Connection невозможно.
...
Рейтинг: 0 / 0
24.06.2003, 12:10
| Ответить | Цитировать | Написать  
Не могу установить подключение
    #32190131
incold
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
incold
Участник
программно переопределить CurrentProject.Connection невозможно.

Не согласен.
Выполняем:

Код: plaintext
1.
2.
3.
4.
Dim ls_cnn as String

ls_cnn=CurrentProject.BaseConnectionString

CurrentProject.OpenConnection ls_cnn


А если строку сформировать отдельно, то можно менять как угодно.
Я например, сделал файл **.udl в котором храню строку подключения и при необходимости в текущем проекте вызываю метод
CurrentProject.OpenConnection [строка]
...
Рейтинг: 0 / 0
24.06.2003, 12:22
| Ответить | Цитировать | Написать  
Не могу установить подключение
    #32190132
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Должно быть CurrentProject.OpenConnection, а дальше строка, взятая из BaseConnectionString (а не ConnectionString) проверенного проекта.
...
Рейтинг: 0 / 0
24.06.2003, 12:23
| Ответить | Цитировать | Написать  
Не могу установить подключение
    #32190133
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Опередили. :^)
...
Рейтинг: 0 / 0
24.06.2003, 12:23
| Ответить | Цитировать | Написать  
Не могу установить подключение
    #32190136
incold
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
incold
Участник
2 Владимир Саныч
:-P
...
Рейтинг: 0 / 0
24.06.2003, 12:25
| Ответить | Цитировать | Написать  
Не могу установить подключение
    #32190157
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
2 incold:

Мое присутствие в этом форуме началось с того, что я задал точно такой же вопрос, а ты мне ответил. А сейчас я стал искать тот твой ответ (ну склероз же), а ты тем временем пришел сам.
...
Рейтинг: 0 / 0
24.06.2003, 12:35
| Ответить | Цитировать | Написать  
Не могу установить подключение
    #32190177
incold
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
incold
Участник
Саныч я помню, у меня просто сейчас перед глазами текст процедуры которая работает с подключением (дорабатываю) поэтому мне легче было скинуть текст, чем искать предыдущий пост.
...
Рейтинг: 0 / 0
24.06.2003, 12:50
| Ответить | Цитировать | Написать  
Не могу установить подключение
    #32190190
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Дык истессно, что ты это имеешь перед глазами и помнишь наизусть. :^)
...
Рейтинг: 0 / 0
24.06.2003, 13:03
| Ответить | Цитировать | Написать  
Не могу установить подключение
    #32190191
Фотография Pavel
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pavel
Участник
А почему у меня такая фигня:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Dim cnStr As String, cn As ADODB.Connection
cnStr =  "PROVIDER=SQLOLEDB.1 ;INTEGRATED SECURITY=SSPI;PERSIST SECURITY INFO=FALSE;INITIAL CATALOG=TestDB;DATA SOURCE=SERVER"
Set cn = New ADODB.Connection
cn.ConnectionString = cnStr
cn.Open
cn.Close
Set cn = Nothing
'все OK
CurrentProject.OpenConnection cnStr
'прилетает  "Method OpenConnection of object _Currentproject Failed"
...
Рейтинг: 0 / 0
24.06.2003, 13:04
| Ответить | Цитировать | Написать  
Не могу установить подключение
    #32190198
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
> 'все OK

OK в смысле ошибок не выдает, или же еще и меняет подключение?
...
Рейтинг: 0 / 0
24.06.2003, 13:10
| Ответить | Цитировать | Написать  
Не могу установить подключение
    #32190208
incold
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
incold
Участник
2 Pavel
Трудно что-то сказать.
Могу предложить для проверки след. вариант:
Создаем в проводнике файл с расширением .udl
Сохраняем. Окрываем. Появится окно с похожим подключением как в акессе, на первой вкладке меняем провайдера
Microsoft OleDB Provider for SQL Server
на второй вкладке как обычно в аксессе.
Сохраняем подключение.

Потом открываем полученный файл в любом редакторе (с поддержкой UniCode)
и проверяем строку подключения, т.е. сравниваем с той, которая в коде.
Может есть какие-то отличия.
Больше ничего предложить не могу :(
У меня метод работает OpenConnection отлично.
...
Рейтинг: 0 / 0
24.06.2003, 13:25
| Ответить | Цитировать | Написать  
Не могу установить подключение
    #32190247
Dmit
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dmit
Гость
Значит так, вот как я сделал
это я просто проверял и при нажатии на кнопку сделал обработку события
Private Sub Кнопка8_Click()
If (CurrentProject.IsConnected) = True Then
CurrentProject.CloseConnection
End If
End Sub
работает вроде бы потом жму на другую кнопку, пришет что
(CurrentProject.IsConnected) = False
делаю так
Пример2,
If (CurrentProject.IsConnected) = False Then
strCnn = "Provider=SQLOLEDB.1;integrated security=SSPI;Persist Security Info=False;initial Catalog=Table;DataSource=Server;Use Procedure for Prepare=1;Auto Translate=True;workstation ID=Prr"
CurrentProject.OpenConnection strCnn
Else
MsgBox "Соединение уже установленно"
Все работает. Подключение устанавливает
Но меня волнует один момент. Когда я делаю CurrentProject.CloseConnection
и потом смотрю Файл-Подключение- есть все настрйки, тоесть указан и сервер и база. И из-за этого я даж могу не восстанавливать подключение (Пример2), а просто могу сразу открыть любую форму из собственного меню и он у меня не будет ругаться что нет подключения, откроет и покажет данные из таблицы. Получается что CurrentProject.CloseConnection не совсем верно как то работае или может я что то не правильно делаю. Мне именно нужно что бы на открытие проекта он отключался от сервера и только при нажатии на кнопку подключался.
Может мне нужно напистаь что то другое вместо CurrentProject.CloseConnection???
...
Рейтинг: 0 / 0
24.06.2003, 14:20
| Ответить | Цитировать | Написать  
Не могу установить подключение
    #32190265
incold
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
incold
Участник
CloseConnection в данном случае не подходит.
Нужно делать CurrentProject.OpenConnection ""
...
Рейтинг: 0 / 0
24.06.2003, 14:36
| Ответить | Цитировать | Написать  
Не могу установить подключение
    #32190269
Dmit
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dmit
Гость
Ну вот наконец то сделал то что хотел!!!Все работает !
Всем спасибо!!!
...
Рейтинг: 0 / 0
24.06.2003, 14:40
| Ответить | Цитировать | Написать  
16 сообщений из 16, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Не могу установить подключение
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32190133&tid=1680943]:
 0ms
get settings:
 7ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 48ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 33ms
get tp. blocked users:
 1ms
others: 191ms
total:  303ms
созд. / загр.: 303ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]