Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Не могу установить подключение / 16 сообщений из 16, страница 1 из 1
24.06.2003, 08:53
    #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, 11:41
    #32190062
Igogo
Igogo
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не могу установить подключение
А как ругается-то? :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.06.2003, 12:10
    #32190111
Pavel
Pavel
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не могу установить подключение
программно переопределить CurrentProject.Connection невозможно.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.06.2003, 12:22
    #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:23
    #32190132
Владимир Саныч
Владимир СанычПривилегированный пользователь
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не могу установить подключение
Должно быть CurrentProject.OpenConnection, а дальше строка, взятая из BaseConnectionString (а не ConnectionString) проверенного проекта.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.06.2003, 12:23
    #32190133
Владимир Саныч
Владимир СанычПривилегированный пользователь
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не могу установить подключение
Опередили. :^)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.06.2003, 12:25
    #32190136
incold
incold
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не могу установить подключение
2 Владимир Саныч
:-P
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.06.2003, 12:35
    #32190157
Владимир Саныч
Владимир СанычПривилегированный пользователь
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не могу установить подключение
2 incold:

Мое присутствие в этом форуме началось с того, что я задал точно такой же вопрос, а ты мне ответил. А сейчас я стал искать тот твой ответ (ну склероз же), а ты тем временем пришел сам.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.06.2003, 12:50
    #32190177
incold
incold
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не могу установить подключение
Саныч я помню, у меня просто сейчас перед глазами текст процедуры которая работает с подключением (дорабатываю) поэтому мне легче было скинуть текст, чем искать предыдущий пост.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.06.2003, 13:03
    #32190190
Владимир Саныч
Владимир СанычПривилегированный пользователь
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не могу установить подключение
Дык истессно, что ты это имеешь перед глазами и помнишь наизусть. :^)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.06.2003, 13:04
    #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:10
    #32190198
Владимир Саныч
Владимир СанычПривилегированный пользователь
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не могу установить подключение
> 'все OK

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

Потом открываем полученный файл в любом редакторе (с поддержкой UniCode)
и проверяем строку подключения, т.е. сравниваем с той, которая в коде.
Может есть какие-то отличия.
Больше ничего предложить не могу :(
У меня метод работает OpenConnection отлично.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.06.2003, 14:20
    #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:36
    #32190265
incold
incold
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не могу установить подключение
CloseConnection в данном случае не подходит.
Нужно делать CurrentProject.OpenConnection ""
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.06.2003, 14:40
    #32190269
Dmit
Dmit
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не могу установить подключение
Ну вот наконец то сделал то что хотел!!!Все работает !
Всем спасибо!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Не могу установить подключение / 16 сообщений из 16, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 276ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1680943]:
 0ms
get settings:
 5ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 31ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 28ms
get tp. blocked users:
 1ms
others: 188ms
total:  276ms
x
x
Закрыть


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