Table structure?

[Joakim Schramm]

> -----Original Message-----
> From: valentina-bounces at lists.macserve.net 
> [mailto:valentina-bounces at lists.macserve.net] On Behalf Of 
> Ruslan Zasukhin
> Sent: 30 April 2006 13:46
> To: valentina at lists.macserve.net
> Subject: Re: Table structure?
> 
> On 4/30/06 12:05 PM, "Joakim Schramm" <joakim at astrocalc.com> wrote:
> 
> >>     http://www.paradigmasoft.com/en/products/download/VSTUDIO
> >> 
> > Ahh uploaded just some days ago, I have missed it. It's field for 
> > Place name taking big space, 50mb. I set it to max length 
> 100, but maybe 60 is enough.
> 
> But what its type is? IF it is String, you need replace on VarChar!
> 
> In below code I see only VarChars with 1022 length
> 
This code is now somewhat old as I have done changes so no more VarChar 1022

Size of db is now fine, even with the indexed key fields which I will remove
when Binary links is in.

Joakim
> > Private Sub CreateStructure()
> > Dim mTblCountry As VTable
> > Dim mTblPlaces As VTable
> > Dim mTblZones As VTable
> > Dim blink As VLink
> > 
> > Set mTblCountry = mDatabase.CreateTable(tblCountry + sLang) 
> > mTblCountry.CreateVarCharField "CName", 1022, fIndexed 
> > mTblCountry.CreateVarCharField "CID", 1022, fIndexed '
> > Set mTblCountry = mDatabase.CreateTable(tblCountryAlias)
> > mTblCountry.CreateVarCharField "CName", 1022, fIndexed 
> > mTblCountry.CreateVarCharField "CID", 1022, fIndexed '
> > Set mTblPlaces = mDatabase.CreateTable(tblPlaces) 
> > mTblPlaces.CreateVarCharField "PName", 1022, fIndexed 
> > mTblPlaces.CreateByteField "LongDeg"
> > mTblPlaces.CreateByteField "LongMin"
> > mTblPlaces.CreateByteField "LongSec"
> > mTblPlaces.CreateShortField "LongSign"
> > mTblPlaces.CreateByteField "LatDeg"
> > mTblPlaces.CreateByteField "LatMin"
> > mTblPlaces.CreateByteField "LatSec"
> > mTblPlaces.CreateShortField "LatSign"
> > mTblPlaces.CreateVarCharField "FK_CID", 1022, fIndexed 
> > mTblPlaces.CreateShortField "ZID"
> > '
> > Set mTblZones = mDatabase.CreateTable(tblZoneData)
> > mTblZones.CreateDateTimeField "DateChange", fIndexed 
> > mTblZones.CreateVarCharField "ZoneDiff", 1022, fNone 
> > mTblZones.CreateVarCharField "FK_CID", 1022, fIndexed 
> > mTblZones.CreateShortField "FK_ZID", fIndexed End Sub
> 
> 
> -----------------
>  
> > Btw, if you install without removing old VS exe is not 
> overwritten and 
> > start give exception error.
> 
> Thank you for point, we will check flags of installer.
> 
> --
> 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]
> 
> 
> _______________________________________________
> Valentina mailing list
> Valentina at lists.macserve.net
> http://lists.macserve.net/mailman/listinfo/valentina
>