home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 May / PCWorld_2002-05_cd.bin / Software / TemaCD / activepython / ActivePython-2.1.1.msi / Python21_win32com_test_daodump.py < prev    next >
Encoding:
Python Source  |  2001-07-26  |  2.1 KB  |  66 lines
  1. # import dao3032
  2. # No longer imported here - callers responsibility to load
  3. # 
  4. import win32com.client
  5.  
  6. def DumpDB(db, bDeep = 1):
  7.     # MUST be a DB object.
  8.     DumpTables(db,bDeep)
  9.     DumpRelations(db,bDeep)
  10.     DumpAllContainers(db,bDeep)
  11.  
  12. def DumpTables(db, bDeep = 1):
  13.     for tab in db.TableDefs:
  14.         tab = db.TableDefs(tab.Name) # Redundant lookup for testing purposes.
  15.         print "Table %s - Fields: %d, Attributes:%d" % (tab.Name, len(tab.Fields), tab.Attributes)
  16.         if bDeep: DumpFields(tab.Fields)
  17.  
  18. def DumpFields(fields):
  19.     for field in fields:
  20.         print "  %s, size=%d, reqd=%d, type=%d, defVal=%s" % (field.Name, field.Size, field.Required, field.Type, str(field.DefaultValue))
  21.  
  22. def DumpRelations(db, bDeep = 1):
  23.     for relation in db.Relations:
  24.         print "Relation %s - %s->%s" % (relation.Name, relation.Table, relation.ForeignTable)
  25.  
  26. #### This dont work.  TLB says it is a Fields collection, but apparently not!
  27. ####        if bDeep: DumpFields(relation.Fields)
  28.  
  29. def DumpAllContainers(db, bDeep = 1):
  30.     for cont in db.Containers:
  31.         print "Container %s - %d documents" % (cont.Name, len(cont.Documents))
  32.         if bDeep: DumpContainerDocuments(cont)
  33.  
  34. def DumpContainerDocuments(container):
  35.     for doc in container.Documents:
  36.         import time
  37.         timeStr = time.ctime(int(doc.LastUpdated))
  38.         print "  %s - updated %s (" % (doc.Name, timeStr),
  39.         print doc.LastUpdated,")" # test the _print_ method?
  40.  
  41. def TestEngine(engine):
  42.     import sys
  43.     if len(sys.argv)>1:
  44.         dbName = sys.argv[1]
  45.     else:
  46.         dbName = "e:\\temp\\TestPython.mdb"
  47.     db = engine.OpenDatabase(dbName)
  48.     DumpDB(db)
  49.     
  50. def test():
  51.     import win32com.client.gencache
  52.     if win32com.client.gencache.GetModuleForProgID("DAO.DBEngine.35") is None:
  53.         print "DAO 3.5 does not seem to be installed or have makepy support"
  54.     else:
  55.         TestEngine(win32com.client.Dispatch("DAO.DBEngine.35"))
  56.     
  57.     if win32com.client.gencache.GetModuleForProgID("DAO.DBEngine.30") is None:
  58.         print "DAO 3.0 does not seem to be installed or have makepy support"
  59.     else:
  60.         TestEngine(win32com.client.Dispatch("DAO.DBEngine.30"))
  61.     
  62.  
  63. if __name__=='__main__':
  64.     test()
  65.  
  66.