Open Database on Server

[Beatrix Willius]

Figured it out for myself (the following is test code):

'loop through databases
   dim theInfo as VDataBaseInfo
   dim temp as string
   for i as Integer = 1 to theServer.DatabaseCount
     theInfo = theServer.DatabaseInfo(i)
     temp = theInfo.Path
   next
'fish out the database you need

'get folderitem and open db
   dim thePath as String = "/Library/VServer_Embedded/Databases/Mail  
Archive"
   dim theF as FolderItem = GetFolderItem(thePath,  
FolderItem.PathTypeShell)
   dim theDB  as new VDatabase(theConnection)
   theDB.open(theF)

So far only tested locally. Would this work over the network?

And I made the mantis issue http://valentina-db.com/bt/view.php? 
id=2825, because VDataBaseInfo isn't in the wiki.




Mit freundlichen Grüßen/Regards

Trixi Willius

http://www.mothsoftware.com
Mail Archiver X: archive, clean and search email
http://www.beatrixwillius.de
Fractals, 3d landscapes etc.