Table structure?

[Ruslan Zasukhin]

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

> 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]