ws.prompt

[SOPBNHH]

Hallo zusammen,

ich habe eine Script, welches mir eine Liste aller Datenbanken auf einem Server ausgeben soll.
Die Liste wird auch korrekt angezeigt solange der Server von welchem die Liste erstellt werden soll ein 6.5.5er ist.
Wenn es allerdings ein 8.5.1er ist, wird die Liste nicht angezeigt.

Das hier scheint das Problem zu sein:

   sourcedb = ws.Prompt(4,"Quelldatenbank auswählen","Bitte wählen Sie die Quelldatenbank aus:","",dblist)
   If Isempty(sourcedb) Then
      Msgbox "Sie müssen die Quelldatenbank auswählen!",0,"Keine Datenbank ausgewählt"
      continue = False
      Exit Sub
   End If

Weis jemand ob sich hier im 8er was geändert hat, und wenn dann wie?

Danke für eure Tipps.

Grüße

Olaf

[ascabg]

Hallo,

In dem Code sehe ich nichts, wo eine Liste ausgegeben werden soll.
Nur die Abfrage, dass eine Datenbank ausgewaehlt werden soll.


Andreas

[DerAndre]

Wo wird denn dblist gefüllt?
Da schonmal nchgeschaut?

[Axel]

Warum nicht so?

sourcedb = ws.Prompt(13)
...


Axel