Autor Thema: MS Access DB mit Script öffnen  (Gelesen 1647 mal)

Offline Freezer

  • Aktives Mitglied
  • ***
  • Beiträge: 161
  • Geschlecht: Männlich
  • Oinr isch emmr dr Arsch!
MS Access DB mit Script öffnen
« 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
Client: R8.5.1 (deutsch)
Server: DOMINO 8.5.1
BS: Win2003

Offline eknori

  • @Notes Preisträger
  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 11.730
  • Geschlecht: Männlich
Egal wie tief man die Messlatte für den menschlichen Verstand auch ansetzt: jeden Tag kommt jemand und marschiert erhobenen Hauptes drunter her!

Offline Freezer

  • Aktives Mitglied
  • ***
  • Beiträge: 161
  • Geschlecht: Männlich
  • Oinr isch emmr dr Arsch!
Re:MS Access DB mit Script öffnen
« Antwort #2 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
...
Client: R8.5.1 (deutsch)
Server: DOMINO 8.5.1
BS: Win2003

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz