What if you use another alias instead of 'a', which is assigned to the first workarea in foxpro?
>>>>>>>>>>>Your message below
** I first set up the recordset like this.
cSQL1 = "SELECT a.* FROM intervie a WHERE a.genid = '"+oaccucare.c_genid+"'"
thisform.oRsIntervie = createobject("ADODB.RecordSet")
thisform.oRsIntervie.ActiveConnection = oConnect
thisform.oRsIntervie.cursorType = 3
thisform.oRsIntervie.LockType = 3
on error =oAccucare.adoerror(oConnect)
thisform.oRsIntervie.open(lcSQL1)
on error &l_cOldErr
if oConnect.ERRORS.count > 0 and oConnect.ERRORS(0).number > 0
wait window 'The Table INTERVIE is not available.' timeout 1.4
return .f.
endif
** Then I add a new record
if oaccucare.l_newrecord && True for a new record
thisform.oRsIntervie.addnew
thisform.SetDefaults(thisform.oRsIntervie)
thisform.oRsIntervie.fields('genid').value = oaccucare.c_genid
thisform.oRsIntervie.fields('intid').value = oaccucare.getpkkey("INTERVIE","INTID")
endif
** Then if I do a...
thisform.orsIntervie.update
** It gives me the above error.
Previous
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only