проверка идентичности объектов

aleks2

Дата: 01.02.2016 07:59:07

Private PriceRemoverConnection As ADODB.Connection

Sub Test()

  Set PriceRemoverConnection = CurrentProject.Connection

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

End Sub

Почему "Нет"?

Rivkin Dmitry

Дата: 01.02.2016 09:04:32

aleks2,

If PriceRemoverConnection.ConnectionString = CurrentProject.ConnectionString Then

aleks2

Дата: 01.02.2016 09:40:45

Rivkin Dmitry,

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

Мне объект надо сравнить. А не строку подключения.

Akina

Дата: 01.02.2016 11:04:44

aleks2
Мне объект надо сравнить.

Нет такого. Ты можешь только проверить, что две объектные переменные указывают на один и тот же объект.

0170

Дата: 01.02.2016 11:09:57

aleks2,

  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

aleks2

Дата: 01.02.2016 17:57:27

0170
aleks2, 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

Ну вот и выяснили.
Типерь "Да".

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