Table structure?

[Ruslan Zasukhin]

On 4/29/06 1:29 AM, "Joakim Schramm" <joakim at astrocalc.com> wrote:

> Something like this?
> 
> Sub CreateLinks()
> Dim mTblCountry As VTable
> Dim mTblPlaces As VTable
> Dim mTblZones As VTable
> Dim blink As VLink
> 
> ' get table references
> Set mTblCountry = mDatabase.Table("Country")
> Set mTblPlaces = mDatabase.Table("Places")
> Set mTblZones = mDatabase.Table("ZoneData")

> ' create BINARY LINK between 2 tables.
> Set blink = mDatabase.CreateBinaryLink("lnkCountryPlace", mTblCountry,
> mTblPlaces, EVLinkType.kOne, EVLinkType.kMany)

> Set blink = mDatabase.CreateBinaryLink("lnkCountryZone", mTblCountry,
> mTblZones, EVLinkType.kOne, EVLinkType.kMany)

> Set blink = mDatabase.CreateBinaryLink("lnkCountryPlace", mTblZones,
> mTblPlaces, EVLinkType.kOne, EVLinkType.kMany)

> End Sub

Yes 

-- 
Best regards,

Ruslan Zasukhin
VP Engineering and New Technology
Paradigma Software, Inc

Valentina - Joining Worlds of Information
http://www.paradigmasoft.com

[I feel the need: the need for speed]