DDE

[Diz]

Есть БД в Access. При нажатии на кнопку нужно найти объект на карте.
Но постоянно выскакивает сообщение, что невозможно открыть канал DDE. Хотя прописано вроде все правильно. Может кто-нибудь сталкивался с подобной проблемой?
Private Sub Кнопка37_Click()
Dim i As Long
i = DDEInitiate("mapinfo", "system")
Dim id As String, uy As String
If Forms!земельный!Наименование <> 0 Then
uy = Forms!земельный!Наименование
id = "select * from AUSTRLIA where St_Abbr=" & """" & uy & """" & "into Selection"
DDEExecute i, id
Else: MsgBox ("таких объектов не найдено")
End If
DDETerminateAll
End Sub

[Teslenko_EA]

Здравствуйте Diz.
Возможно в Вашем случае поможет применение request

Код: Выделить всё

On Error Resume Next
....
    DDEExecute i, id
    If Not Err.Number = 0 Then 
         i = DDEInitiate("mapinfo", "system")
         DDERequest i, id
...

почему бы Вам не отказаться от DDE в пользу OLE automation ведь Microsoft объявила протокол DDE устаревшим.
Евгений.

[Diz]

Спасибо за помощь Если честно, то я не очень представляю как это же самое можно сделать, используя OLE Automation

[Aent]

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

Посмотрите
http://testdrive.mapinfo.com/TECHSUPP/M ... enDocument
http://www.delphikingdom.com/asp/viewit ... alogid=551