Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / проверка идентичности объектов / 6 сообщений из 6, страница 1 из 1
01.02.2016, 07:59
    #39159752
aleks2
aleks2
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
проверка идентичности объектов
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Private PriceRemoverConnection As ADODB.Connection

Sub Test()

  Set PriceRemoverConnection = CurrentProject.Connection

  If (PriceRemoverConnection Is CurrentProject.Connection) Then
    MsgBox "Да"
  else
    MsgBox "Нет"
  End If

End Sub



Почему "Нет"?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.02.2016, 09:04
    #39159770
Rivkin Dmitry
Rivkin Dmitry
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
проверка идентичности объектов
aleks2,


If PriceRemoverConnection.ConnectionString = CurrentProject.ConnectionString Then
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.02.2016, 09:40
    #39159801
aleks2
aleks2
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
проверка идентичности объектов
Rivkin Dmitry,

Надеюсь, ты понимаешь, что это не одно и тоже?

Мне объект надо сравнить. А не строку подключения.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.02.2016, 11:04
    #39159895
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
проверка идентичности объектов
aleks2Мне объект надо сравнить.
Нет такого. Ты можешь только проверить, что две объектные переменные указывают на один и тот же объект.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.02.2016, 11:09
    #39159899
0170
0170
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
проверка идентичности объектов
aleks2,

Код: vbnet
1.
  If (CurrentProject.Connection Is CurrentProject.Connection) Then



:))

https://msdn.microsoft.com/ru-ru/library/office/ff821478.aspx
The Connection property actually returns a reference to a copy of the ActiveX Data Object (ADO) connection for the active database
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.02.2016, 17:57
    #39160493
aleks2
aleks2
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
проверка идентичности объектов
0170aleks2,

Код: vbnet
1.
  If (CurrentProject.Connection Is CurrentProject.Connection) Then



:))

https://msdn.microsoft.com/ru-ru/library/office/ff821478.aspx
The Connection property actually returns a reference to a copy of the ActiveX Data Object (ADO) connection for the active database
Ну вот и выяснили.
Типерь "Да".
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Sub Test()
  Dim conn1 As ADODB.Connection
  Dim conn2 As ADODB.Connection

  Set conn1 = CurrentProject.Connection
  Set conn2 = conn1

  If (conn1 Is conn2) Then
    MsgBox "Да"
  Else
    MsgBox "Нет"
  End If

End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / проверка идентичности объектов / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 141ms
Закрыть
start [/forum/topic.php?fid=45&tablet=1&tid=1613982]:
 0ms
get settings:
 11ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 39ms
get topic data:
 12ms
get forum data:
 2ms
get page messages:
 40ms
get tp. blocked users:
 2ms
others: 12ms
total:  141ms
x
x
Закрыть


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