> -----Original Message-----
> From: valentina-bounces .AT. lists .DOT macserve.net
> [mailto:valentina-bounces@lists.macserve.net] On Behalf Of
> Ruslan Zasukhin
> Sent: 30 April 2006 13:46
> To: valentina .AT. lists .DOT macserve.net
> Subject: Re: Table structure?
>
> On 4/30/06 12:05 PM, "Joakim Schramm" <joakim@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 .DOT macserve.net
> http://lists.macserve.net/mailman/listinfo/valentina
>
_______________________________________________
Valentina mailing list
Valentina@lists.macserve.net
http://lists.macserve.net/mailman/listinfo/valentina
©2006 Joakim Schramm |
