Crashing on close

[Ruslan Zasukhin]

On 26/2/07 7:52 PM, "Bart Pietercil" <bart.pietercil at gmail.com> wrote:

Hi Bart,

> why would this crash?
> 
> Sub Action()
>    Dim myFile As FolderItem
>    Dim myCursor As VCursor
>    Dim i As integer
>    Dim CoReConnectionDB As VDatabase
>    Dim ValidUntil,ValidFrom As Date
> 
>    myFile = GetOpenFolderItem(ft_core.ConnectionFile)
> 
>    if myFile <> Nil then
> 
>      Valentina.Init(3*1024*1024,"yeah","yeah")
> 
>      Try
>        CoReConnectionDB = new VDatabase
>        CoReConnectionDB.UseEncryptionKey
> ("somekey",EVDataKind.kStructureAndRecords)
>        CoReConnectionDB.Open(myFile)
>        myCursor = CoReConnectionDB.SqlSelect("SELECT * FROM
> connectioninfo")

        ------- skiped -------
 
        myCursor = nil      <<< try to add this line.


>      Catch Err As VException
>        MsgBox("Error while reading ConnectionInfo: " + Err.Message)
>      end
>    Else
>      MsgBox "Zonder een connectiebestand kan je niet inloggen op een
> CoRe-Server"
>    end if
> 
>    CoReConnectionDB.Close--------> crash, when put in a try catch I
> get an empty error message followed by a crash
> 
> End Sub
> 
> THe data inside the db is read no problem there, it is just when
> closing that it is happening
> 
>  From the console I get this

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