V4RB Addrecords

[Charles Cohen]

 > 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.
Not using a date field in my database..only stringfields and varchars  
fields.....
so....the datestring 20091021.100000 should just be stored as a  
string....

 >>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,
Placed an Exception in the method adding records...it does not get  
used...
 >>Check V4RB log file also
No log files created by this action...
Other happenings..
If I delete the database and run the application....it errs by not  
recognizing the preference table that I use when app.open code is  
executed...
rsOpen = Nil
rsOpen = mDb.SQLSelect("select * from  
Choices","EVCursorLocation.kClentside)
vException is...on the SQLSelect
it should have created an empty database...but throws the log error
Table ( or view) is not found:  sys_Diagrams
Get View: No view with the name Equity.
The tables should have been made...the .vdb file exists but nothing in  
it.
Thanks
Harry & Chuck



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