Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Freezer am 18.07.03 - 09:25:51

Titel: MS Access DB mit Script öffnen
Beitrag von: Freezer am 18.07.03 - 09:25:51

Hallo zusammen!

Kann mir jemand die Syntax zum Öffnen einer bestehenden MS- Access Datenbank mit Lotus Script zeigen?
Mit Excel funktioniert´s schon:
...
Set Excel = CreateObject( "Excel.Application")
               
Excel.Visible = True
         
Excel.Workbooks.Open path & fileName
...

Danke schon mal,

Freezer

Titel: Re:MS Access DB mit Script öffnen
Beitrag von: eknori am 18.07.03 - 09:30:35

guckst du:

http://www-10.lotus.com/ldd/sandbox.nsf/ecc552f1ab6e46e4852568a90055c4cd/8b194f7939abc34f85256b6e004ec0be?OpenDocument&Highlight=0,Access

eknori

Titel: Re:MS Access DB mit Script öffnen
Beitrag von: Freezer am 18.07.03 - 10:43:03

Danke eknori!

Jetzt wird die Access - Datenbank in Access geöffnet.
Aber leider nur ganz kurz, genauer gesagt nur solange, bis die Funktion verlassen wird.
Hier ist ein Auszug aus meinem bisherigen Code, wobei alle Anwendungen (bis auf Access) nach Verlassen der Funktion auch geöffnet bleiben. Woran könnte denn das noch liegen?
...
Select Case fileExt
               Case Is = "doc"
                  Set Word = CreateObject( "Word.Application")
                  Word.Visible = True
                  Word.documents.Open path & fileName
               Case Is = "dot"
                  Set Word = CreateObject( "Word.Application")
                  Word.Visible = True
                  Word.documents.Open path & fileName
               Case Is = "xls"
                  Set Excel = CreateObject( "Excel.Application")
                  Excel.Visible = True
                  Excel.Workbooks.Open path & fileName
               Case Is = "ppt"
                  Set Pwrpoint = CreateObject( "Powerpoint.Application")
                  Pwrpoint.Visible = True
                  Pwrpoint.Presentations.Open path & fileName
               Case Is = "mdb"
                  Set Acess = CreateObject( "Access.Application")
                  Acess.Visible = True
                  Acess.OpenCurrentDatabase (path & fileName)
               Case Else
                  Messagebox "Unerlaubter Dateityp"
               End Select
...