Можно ли в *.ADP на ходу менять CurrentProject.Connection ? / Microsoft Access

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Можно ли в *.ADP на ходу менять CurrentProject.Connection ?

17 сообщений из 17, страница 1 из 1

Можно ли в *.ADP на ходу менять CurrentProject.Connection ?

#32028909

Сергей

Участник

Сообщения: 198

Рейтинг: 0 / 0

Можно ли в *.ADP на ходу менять CurrentProject.Connection ?

...

Рейтинг:

0 / 0

26.04.2002, 08:13

| Ответить | Цитировать | Написать

Можно ли в *.ADP на ходу менять CurrentProject.Connection ?

#32028927

lln___

Гость

См. пример с базой Борей (ADP). А в принципе - так
Public Sub ChangeDB(NewDBName As String)
Dim ConnectStr As String
Dim InitCat As String, StartPos As Integer, EndPos As Integer

ConnectStr = CurrentProject.BaseConnectionString

StartPos = InStr(1, ConnectStr, "Initial Catalog", 1)
StartPos = InStr(StartPos + 15, ConnectStr, "=") + 1
EndPos = InStr(StartPos, ConnectStr, ";")
If EndPos = 0 Then
ConnectStr = Left(ConnectStr, StartPos - 1) + NewDBName
Else
ConnectStr = Left(ConnectStr, StartPos - 1) + NewDBName + Right(ConnectStr, Len(ConnectStr) - EndPos + 1)
End If

CurrentProject.OpenConnection ConnectStr, <user_name>, <Password>

End Sub

...

Рейтинг:

0 / 0

26.04.2002, 09:58

| Ответить | Цитировать | Написать

Можно ли в *.ADP на ходу менять CurrentProject.Connection ?

#32028968

Сергей

Участник

Сообщения: 198

Рейтинг: 0 / 0

Спасибо за отклик.
В том-то и дело, что OpenConnection не работает. Выдает Run-time error Method 'OpenConnection' of object '_CurrentProject' failed

...

Рейтинг:

0 / 0

26.04.2002, 13:14

| Ответить | Цитировать | Написать

Можно ли в *.ADP на ходу менять CurrentProject.Connection ?

#32028976

lln___

Гость

При запуске открывается форма регистрации, в которой считываются данные пользователя и запускается указанная процедура ChangeDB. Соответственно, это можно делать и в процессе работы.

...

Рейтинг:

0 / 0

26.04.2002, 14:51

| Ответить | Цитировать | Написать

Можно ли в *.ADP на ходу менять CurrentProject.Connection ?

#32042314

Dima Fokin

Гость

Так чем дело кончилось? У меня такая-же проблема. А как решить?

...

Рейтинг:

0 / 0

10.08.2002, 09:59

| Ответить | Цитировать | Написать

Можно ли в *.ADP на ходу менять CurrentProject.Connection ?

#32047826

Дмитрий123

Гость

А я это делал так, тока это сделано было для случая потери связи с серваком:

Const con = "PROVIDER=SQLOLEDB.1;PERSIST SECURITY INFO=FALSE;INITIAL CATALOG=Dogovor_tmp;DATA SOURCE=MAIN;Current Language=English;Use Procedure for Prepare=1;Auto Translate=True;Application Name=Финплан"
Dim s As String

'On Error Resume Next
s = MsgBox("Cейчас будет произведена попытка восстановить соединение с сервером." & Chr(10) & "Если соединение не восстановится, то следует выйти из программы," & Chr(10) & "произвести обновление и обратно запустить программу!", vbInformation, "Внимание")
s = Application.SysCmd(acSysCmdSetStatus, "Идет соединение с сервером!")
If CurrentProject.IsConnected Then CurrentProject.CloseConnection
On Error Resume Next
CurrentProject.Connection.Open con

...

Рейтинг:

0 / 0

03.09.2002, 16:13

| Ответить | Цитировать | Написать

Можно ли в *.ADP на ходу менять CurrentProject.Connection ?

#32114562

Владимир Саныч Привилегированный пользователь

Модератор форума

Откуда: Израиль (причем это 1 человек, а не 2 => прошу на ты)

Сообщения: 40 863

Рейтинг: 1 / 0

Здравствуйте, господа.

Увидел тему "Можно ли в *.ADP на ходу менять CurrentProject.Connection?" и обрадовался. У меня точно такая проблема. Но - увы! - ответа я здесь не вижу.

Я пробовал и Application.CurrentProject.Connection.Open ..., и Application.CurrentProject.Connection.ConnectionString = ... - но получаю одну и ту же ошибку:

Run-time error '3705':
Operation is not allowed when the object is open.

Какой именно object is open??? Я не нашел, что надо закрыть. Connection я закрывал, но, правда, Application открыт, но я просто в нем нахожусь и не намерен выходить. И пока получается, что я не имею возможности поменять ConnectionString. И значит - не могу создать проект для заказчика, если сам при этом нахожусь у себя, а не у него. Возможно ли такое?

Спасибо!

...

Рейтинг:

0 / 0

04.03.2003, 18:39

| Ответить | Цитировать | Написать

Можно ли в *.ADP на ходу менять CurrentProject.Connection ?

#32114588

Участник

Откуда: Calgary, Canada

Сообщения: 217

Рейтинг: 0 / 0

Тот же вопрос был и у меня. Пытался попробовать такой трюк

Код: plaintext

currentProject.Connection.Execute  "USE "  & DBName

- формы начинают работать на этой самой DBName базе, а листбоксы и комбобоксы - все еще на старой, похоже, для них connectionstring какой-то иной.

В результате использую ChangeDB, правда с небольшими корректировками - у меня SQL авторизация, потому требуется переспрашивать у пользователя имя и пароль.

В идеале хотелось бы сделать нечто типа такого

1. При инсталляции приложения клиенту в реестр записывается инфа о сервере БД

2. При старте приложения - появляется форма со списком (или TreeView ) доступных серверов БД (первоначально один - полученный при инсталляции ). Этот список можно редактировать.

3 При разворачивании узла TreeView (сервера) - получить список доступных проектов (не имен баз, а имеющих смысл описаний проектов)

4 При выборе проекта произвести подключение к нему.

...

Рейтинг:

0 / 0

04.03.2003, 19:49

| Ответить | Цитировать | Написать

Можно ли в *.ADP на ходу менять CurrentProject.Connection ?

#32114592

Владимир Саныч Привилегированный пользователь

Модератор форума

Откуда: Израиль (причем это 1 человек, а не 2 => прошу на ты)

Сообщения: 40 863

Рейтинг: 1 / 0

Вопрос к SM. Спасибо за ответ, но я ничего не понял. Что надо поставить в DBName? Ведь указать-то надо и имя сервера, и юзера, и пароль, да и вообще весь ConnectionString. Там есть место для этого всего?

...

Рейтинг:

0 / 0

04.03.2003, 20:07

| Ответить | Цитировать | Написать

Можно ли в *.ADP на ходу менять CurrentProject.Connection ?

#32114598

Владимир Саныч Привилегированный пользователь

Модератор форума

Откуда: Израиль (причем это 1 человек, а не 2 => прошу на ты)

Сообщения: 40 863

Рейтинг: 1 / 0

P.S. И что такое ChangeDB? Мой Object Browser такого не находит.

...

Рейтинг:

0 / 0

04.03.2003, 20:29

| Ответить | Цитировать | Написать

Можно ли в *.ADP на ходу менять CurrentProject.Connection ?

#32114621

-=Alexey=-

Участник

Сообщения: 258

Рейтинг: 0 / 0

Можно ли в *.ADP на ходу менять CurrentProject.Connection ?
можно

например переключаем текущий проект на базу pubs

Код: plaintext

1.
2.
3.
4.

Dim s String
  s =  "PROVIDER=SQLOLEDB.1 ;PERSIST SECURITY INFO=TRUE;USER ID=" & strLogin &  ";PASSWORD="  & strPass _
  &  ";INITIAL CATALOG=pubs;DATA SOURCE=." 
  CurrentProject.OpenConnection (s)

To All (у кого не получается)
пишите подробнее, что делаете. Например, как по постам автора трэйда - Сергея, понять что он неправильно делает?

...

Рейтинг:

0 / 0

05.03.2003, 01:29

| Ответить | Цитировать | Написать

Можно ли в *.ADP на ходу менять CurrentProject.Connection ?

#32114701

АлексейК

Участник

Откуда: http://www.msdatabase.ru , Moscow

Сообщения: 7 569

Рейтинг: 0 / 0

подключться то можно, никто не знает как заставить отключиться

...

Рейтинг:

0 / 0

05.03.2003, 10:52

| Ответить | Цитировать | Написать

Можно ли в *.ADP на ходу менять CurrentProject.Connection ?

#32114731

incold

Участник

Сообщения: 1 580

Рейтинг: 0 / 0

2 All
Полностью согласен с -=Alexey=- метод CurrentProject.OpenConnection прекрасно работает, при условии, что правильно сформирована строка подключения.

2 АлексейК
Отключиться от базы доволно просто с помощью того же метода
CurrentProject.OpenConnection ""

...

Рейтинг:

0 / 0

05.03.2003, 11:50

| Ответить | Цитировать | Написать

Можно ли в *.ADP на ходу менять CurrentProject.Connection ?

#32114814

Владимир Саныч Привилегированный пользователь

Модератор форума

Откуда: Израиль (причем это 1 человек, а не 2 => прошу на ты)

Сообщения: 40 863

Рейтинг: 1 / 0

Рассказываю, что я делаю не так. :^)

1. Беру готовый ADP, спрашиваю CurrentProject.Connection, запоминаю.

2. Переключаю вручную на другую базу данных.

3. Запускаю CurrentProject.OpenConnection с той строкой, которую запомнил в п.1.

4. Получаю ошибку 80004005: Method 'OpenConnection' of object '_CurrentProject' failed.

Вот два примера строк:

Provider=MSDataShape.1;Persist Security Info=True;Data Source=...;User ID=...;Password=...;Initial Catalog=...;Data Provider=SQLOLEDB.1

Provider=MSDataShape.1;Persist Security Info=False;Data Source=...;Integrated Security=SSPI;Initial Catalog=...;Data Provider=SQLOLEDB.1

Может, надо что-то поменять в самой строке?

...

Рейтинг:

0 / 0

05.03.2003, 13:31

| Ответить | Цитировать | Написать

Можно ли в *.ADP на ходу менять CurrentProject.Connection ?

#32114823

incold

Участник

Сообщения: 1 580

Рейтинг: 0 / 0

2 Владимир Саныч
Запрашивать нужно не Connection, а BaseConnectionString

...

Рейтинг:

0 / 0

05.03.2003, 13:39

| Ответить | Цитировать | Написать

Можно ли в *.ADP на ходу менять CurrentProject.Connection ?

#32114834

Владимир Саныч Привилегированный пользователь

Модератор форума

Откуда: Израиль (причем это 1 человек, а не 2 => прошу на ты)

Сообщения: 40 863

Рейтинг: 1 / 0

Уррррра, заработало!!! (С) кот Матроскин.

incold, громадное спасибо!

...

Рейтинг:

0 / 0

05.03.2003, 13:46

| Ответить | Цитировать | Написать

Можно ли в *.ADP на ходу менять CurrentProject.Connection ?

#32190590

Artem K

Гость

to:Дмитрий123

неужели у вас эти свойства

Const con = "PROVIDER=SQLOLEDB.1;PERSIST SECURITY INFO=FALSE;INITIAL CATALOG=Dogovor_tmp;DATA SOURCE=MAIN;Current Language=English;Use Procedure for Prepare=1;Auto Translate=True;Application Name=Финплан"

реально выставляются в currentproject.conection ?

у меня нет. по крайней мере Microsoft SQL Profiler продолжает показывать, что access использует каждый раз sp_prepare. да и Application Name не то которое я ставил (пытался ставить).

можт ктоньть откроет секрет как установить из VBA свойства currentproject.connection

в currentproject.openconnection первый параметр - BaseConnectionString,
в котором можно ставить только "PROVIDER=SQLOLEDB.1;PERSIST SECURITY INFO=FALSE;INITIAL CATALOG=db;DATA SOURCE=server"

а как же остальные?
с учетом того что для того чтобы сделать свою форму авторизации каждый раз при выходе делается "currentproject.openconnection "Provider="", вариант вбить один раз ручками а потом хватит и baseconnection string не подходит...

...

Рейтинг:

0 / 0

24.06.2003, 18:23

| Ответить | Цитировать | Написать

17 сообщений из 17, страница 1 из 1

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Можно ли в *.ADP на ходу менять CurrentProject.Connection ?

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=45&msg=32028968&tid=1680934]:	0ms
get settings:	6ms
get forum list:	11ms
check forum access:	2ms
check topic access:	2ms
track hit:	51ms
get topic data:	7ms
get forum data:	2ms
get page messages:	34ms
get tp. blocked users:	1ms
others:	198ms

total:	314ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы