VBA Doorway to Database Properties   

How do I access the data in the Database Properties window from VBA?

I have searched the help files and numerous properties via the Immediate 
Window, but cannot find an opening to the underlying Database Properties in 
the object model. I can access the ShapeSheet, but that has no info on the 
relationship itself. I can get the field list via .Text in the individual 
Entities, but not the table name. Where is all that stuff found? (I suspect 
it might be through the UI, but I've had no luck there, either.)

My diagram is a reverse-engineered Access 2003 database, with over 280 
relationships. The Page is huge and complex. When I refresh the model, I 
lose all the text on the relationship lines. I want to be save all that 
data, and re-create it, as well as new ones, via VBA. Some specific syntax 
examples would be very, very helpful.

I posted this first in the Database.Modeling forum, but I thought I'd give 
this one a try as well.

date: Sun, 6 Jul 2008 10:44:03 -0500   author:   victorcamp

Re: VBA Doorway to Database Properties   

the database (and uml) add-ins are proprietary code with no published api's.
sorry,
al

"victorcamp"  wrote in message 
news:0014E9FC-C9C6-4C56-A740-BA7B9FB2EEC1@microsoft.com...
> How do I access the data in the Database Properties window from VBA?
>
> I have searched the help files and numerous properties via the Immediate 
> Window, but cannot find an opening to the underlying Database Properties 
> in the object model. I can access the ShapeSheet, but that has no info on 
> the relationship itself. I can get the field list via .Text in the 
> individual Entities, but not the table name. Where is all that stuff 
> found? (I suspect it might be through the UI, but I've had no luck there, 
> either.)
>
> My diagram is a reverse-engineered Access 2003 database, with over 280 
> relationships. The Page is huge and complex. When I refresh the model, I 
> lose all the text on the relationship lines. I want to be save all that 
> data, and re-create it, as well as new ones, via VBA. Some specific syntax 
> examples would be very, very helpful.
>
> I posted this first in the Database.Modeling forum, but I thought I'd give 
> this one a try as well.

date: Sun, 6 Jul 2008 11:08:14 -0500   author:   AlEdlund

Re: VBA Doorway to Database Properties   

I've just found a reference to the VisioModelingEngine, which I'm exploring 
right now. I'll see if that's it...

date: Sun, 6 Jul 2008 11:30:07 -0500   author:   victorcamp

Re: VBA Doorway to Database Properties   

I've now got all the VisioModelingEngine (VME) data, I just have to figure a 
way to sync it with the Shape data...

I was looking to see if any of the IDs were the same, but they don't appear 
to be:
  Visio Shapes: 458 Shapes
    IDs numbered: 1 - 1098
  VME Elements: 2770 Elements
    ElementIDs numbered: 16 - 63025

I see the Shape data has unique GUIDs, but I don't find them anywhere in the 
VME.

I suppose I could compare the field and index data I can get from the Entity 
Shape Text property against the field listing in the VME, but that seems 
awfully clumsy. And, since I can't seem to find the Shape title line (the 
table name) listed in any Shape data, I would have to assume no 2 tables 
have the exact same layout (though that should be a reasonable assumption).

Any other ideas?  (Like where can I get the Entity's title line?)

date: Sun, 6 Jul 2008 17:38:27 -0500   author:   victorcamp

Re: VBA Doorway to Database Properties   

OK, I've got the cross-reference table between Entity Shapes and Database 
Tables using VBA, though getting there was a bit clumsy.

I'm burnt out for today. I'll check back tomorrow and add some details, if 
anyone's interested.

date: Sun, 6 Jul 2008 20:52:03 -0500   author:   victorcamp