StorageEncoding and CollationAttribute

[Ruslan Zasukhin]

On 9/13/06 1:14 PM, "Beatrix Willius" <bwillius at gmx.de> wrote:

> 
> Part of the code follows:
> 
>    'update to valentina 2
> 'theFolderitem is a folderitem and is the location of the database
> 
>    if valentina.GetDatabaseVersion(theFolderitem) < &h200 then
> 
>      'rename old file
>      dim OldFolderitem as FolderItem = theFolderitem
>      dim theName as String = OldFolderitem.Name
>      OldFolderitem.Name = OldFolderitem.Name + " Old"
> 
>      'create new file
>      theFolderitem = nil
>      theFolderitem = OldFolderitem.Parent.Child(theName)
>      Valentina.Convert_1_2(OldFolderitem, theFolderitem, true, "", "")
> 
>    end if
> 
>    'make new database
>    ValentinaDB = new VDatabase
>    ValentinaDB.open(theFolderitem)
> 
>    'make attachment table
>    if ValentinaDB.SchemaVersion = 2 then
> 
>      'set database stuff
>      ValentinaDB.StorageEncoding = "UTF8"
        ^^^^^^^^^^ do not use this for now

>      ValentinaDB.CollationAttribute(EVColAttribute.kStrength) =
> EVColAttributeValue.kSecondary

        <<< You need here increment counter btw.
        ValentinaDB.SchemaVersion = 3
        db.Flush 

>    end if




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