V4RB Addrecords

[Ruslan Zasukhin]

On 10/22/09 9:36 PM, "Charles Cohen" <rwc1717 at shaw.ca> wrote:

> Hi:
> Hidden folders found by inserting SpecialFolder.ApplicationData.visible =
> true...must have been an intermittent bug....the folders remian
> visible...sorry for the inconvenience.
> 
> However I seem to be having problems with adding new records since I upgraded
> from 3.4 to 4.3
> 
> The following code executes with no error....and adds the new record using
> 3.4..
> 
> It executes without error on 4.3 but it does not actually add the record to
> the database...I have checked it with Studio..
> 
>  DateString = 
> Format(pd.year,"00")+Format(pd.month,"00")+Format(pd.day,"00")+"."+FORMAT(pd.h
> our,"00")+FORMAT(pd.minute,"00")+FORMAT(pd.second,"00")
>     mDb.mEq.SetBlank
>     mDb.mEq.dbDescript.SetString(trim(Uppercase(mainwindow.ed(0).text))+" -
> "+trim(mainwindow.ed(1).text))
>     mDb.mEq.dbHigh.SetString(CheckEquity(0))
>     mDb.mEq.dbLow.SetString(CheckEquity(1))
>     mDb.mEq.dbDivd.SetString(trim(mainwindow.ed(2).text))
>     if Mainwindow.targCB.Value and val(trim(mainwindow.ed(4).text)) <> 0 and
> trim(mainwindow.ed(4).text) <> "" then
>       mDb.mEq.dbTarg.SetString(trim(mainwindow.ed(4).text)+"y")
>     else
>       mDb.mEq.dbTarg.SetString(trim(mainwindow.ed(4).text))
>     end if
>     mDb.mEq.dbBuy.SetString(trim(mainwindow.ed(3).text))
>     saveIndustry
>     
> mDb.mEq.dbPerf.SetString(CheckEquity(3)+mainwindow.editCB(1).text+str(mainwind
> ow.editCB(0).ListIndex))
>     mDb.mEq.dbequityID.value = DateString
>     call mDb.mEq.Addrecord()
>     mDb.mEq.Flush()
> 
> I have tried flushing the whole database..ie: mDb.flush(),,,to no avail...
> 
> What am I doing incorrectly?

Quick guess.

You was on 3.4?  Quite old.

May be you have now problem with date/time strings conversion.

At some point in the past we have made VERY strict this.
Even extra space will cause error.

So check what exactly string you get by above code.
Check may be exception is thrown but you do not see this,
Check V4RB log file also


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