Liaison access mapinfo

Question

Bonjour,
J'ai un probleme avec ma procedure. Quand MapInfo n'est pas ouvert il me renvoie un messgage d'erreur. 

Merci d'avance pour votre interventio.

Sub Link_MI()

Dim MyAppID As Variant

    str = Chr$(34)

    PathMbx = Application.CurrentProject.Path & "\Access_Mi.MBX"

    On Error Resume Next
    canal = DDEInitiate("Mapinfo", "system")

    If Err.Number <> 0 Then
        Err = 0
        Shell "C:\Program Files\MapInfo\Professional\Mapinfow.exe"
        canal = DDEInitiate("Mapinfo", "system")
    End If

    DDEExecute canal, "Run application " & str & PathMbx & str
    canal2 = DDEInitiate("Mapinfo", PathMbx)
End sub

cs_rolfalfa · Answer

salut mes amis je developpe une applications en visual basic 6 en integrant le logiciel mapinfo mais j'arrive pas a acceder a la base de donn&#233;es mapinfo directement comme le cas de vb avec access je cherche le code pour acceder a  cette base de donn&#233;es via un control data ou bien un autre control vb et d'afficher les donn&#233;es dans un dbgrid ou flexgrid

Liaison access mapinfo

1 réponse

Discussions similaires