UDL Edit-Fenster erstellen

    Hallo zusammen,

    ich möchte gern einen Con-String erstellen und dabei das "UDL-Edit-fenster" benutzen.
    Von Hand ist das ja recht einfach -> TXT-Datei erstellen, in *.UDL umbenennen und doppelklick auf die Datei - fertig.

    Per Script soll das lt. MS (s.hier ) auch einfach sein.
    Mein Script sieht so aus:

    [autoit]

    $MSD_dl = ObjCreate("MSDASC.DataLinks")
    $ADO_cn = ObjCreate("ADODB.Connection")
    if IsObj($MSD_dl) Then
    $ADO_cn = $MSD_dl.PromptEdit()
    Else
    MsgBox(0,"Objektfehler","kein Objekt")
    Exit
    EndIf
    MsgBox ( 0,"Connectstring", $ADO_cn.ConnectionString)
    $MSD_dl = 0
    $ADO_cn = 0

    [/autoit]

    ...und was soll ich sagen - es funktioniert nicht. Ich bekomme noch nicht mal das Objekt erstellt.

    Wo liegt der Fehler? Hat jemand eine Idee für mich?

    Besten Dank vorab.
    Gruß Schumi

    Einmal editiert, zuletzt von Schumi (22. April 2012 um 01:27)

    Moin,

    so geht's:

    [autoit]

    $ADO_cn = ObjCreate("ADODB.Connection")
    $MSD_dl = ObjCreate("DataLinks")
    If (IsObj($MSD_dl)) Then
    $ADO_cn = $MSD_dl.PromptNew()
    Else
    MsgBox(0,"Objektfehler","ADO_cn ist kein Objekt")
    EndIf

    [/autoit][autoit][/autoit][autoit]

    if (not IsObj($ADO_cn)) Then
    MsgBox(0,"Objektfehler","MSD_dl ist kein Objekt")
    EndIf
    MsgBox ( 0,"Connectstring", $ADO_cn.ConnectionString)
    $MSD_dl = 0
    $ADO_cn = 0

    [/autoit]

    Gruß
    Greenhorn