V4RB Addrecords

[Charles Cohen]

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.hour,"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(mainwindow.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?

Thanks
Harry & Chuck



-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macserve.net/pipermail/valentina/attachments/20091022/767e390d/attachment-0001.html