FiveTech Software tech support forums

... of access database, creation of table, copy from dbf and xbrowse with Add, Edit and Delete. In particular demonstrates the simplest way of using AddNew(), Update() and GetRows() methods of ADO * XBrowse: In the method SetRDD(), bSeek codeblock is created only if the programmer did not already ...

... and DO NOT redefine oRs as local in that add routine. oRs Represents the data that can be passed as a parameter .. in your add routine just oRs:AddNew() ( modify your fields ) .. and oRs:Update() then oBrowse:ReFresh() .. oRs:ReQuery() is only helpful when you have a COMPLEX join in your recordset ...

Antonio,

Antonio Linares wrote:oRS:MoveLast()
oRs:AddNew()
fill the right values
oRS:Update()

You can safely remove oRS:MoveLast().

EMG

Lucas,

I am using ADO + Access on a development and I don't call oRs:Requery() when adding a record and here it works fine

I use:

oRS:MoveLast()
oRs:AddNew()
fill the right values
oRS:Update()

les comento que lo tenia con un insert, pero algunas tablas tienen documentos en campos blob
y la diferencia en tiempo de la implmentacion entre insert y oRS:AddNew es muchismo,

muchas gracias por sus comentarios, continuare con esto.

... A ver si Antonio por favor lo mira y publica una nueva build (también por favor con la clase Datarow corregida, que hay dos errores, el de oRs:AddNew() y el de ayer de if IfNil(aPair[ 3 ], .t. ) .and. ! ( oField:Value == uVal ) por favor.

... functions at olefuncs.prg and xbrowse.prg are needed. Also, I published it because I need to fix the class according to your instructions at oRs:AddNew(). I very much like the concept and design of that class.

About the runtime error: This is a bug in datarow.prg. Thanks for testing and finding it out. In line 355, please change ::AddNew() as oRs:AddNew() Next question about multiiuser issues: 1. If recordset is opened with adLockOptimistic: If other user modified the same record we get a ...

... Pack 1 Time from start: 0 hours 0 mins 5 secs Error occurred at: 09-06-13, 12:05:44 Error description: Error BASE/1004 Message not found: TDATAROW:ADDNEW Stack Calls =========== Called from: .\source\function\HARBOUR.PRG => _CLSSETERROR( 234 ) Called from: .\source\classes\DATAROW.PRG => ...

... oRec:Edit() When saved the TDataRow method appends the data to a new record. We are not conerned how TDataRow appends ( for dbf dbappend() for oRs AddNew() ) For us, the process is transparent. Customising edit dialogs: 1. Create our own procedure defining edit dialog and when oRec:Modified() is ...

... It is easier to open full child table and keep changing oRsChild:Filter. Instead of using SQL INSERT statements, it is better to use RecordSet's AddNew() method. AddNew() method automatically updates the recordset. If we use SQL INSERT statement, we need to use ReQuery() method to read the data ...

... [in] IDispatch ) STDCALL dispatch PROPERTYPUT void Source( [in] BSTR ) STDCALL dispatch PROPERTYGET VARIANT Source() STDCALL dispatch FUNC void AddNew( [optional] VARIANT, [optional] VARIANT ) STDCALL dispatch FUNC void CancelUpdate() STDCALL dispatch FUNC void Close() STDCALL dispatch FUNC ...

If you like to capture the new record values in a dialog, that is much easier and safer. You can use oBrw:oRs:AddNew() to create a blank record, offer edit in a dialog and then either save ( calling oBrw:oRs:Update()/UpdateBatch() ) or cancel append ( calling oBrw:oRs:CancelUpdate()/CancelBatch() ...

Hi, I'm testing the delete-methode of a recordset and always get an error. If testing it with oRs:delete(1) The oRs:addnew methode is working fine. Is there a permition for deleting in a recordset that I must set. Normally I delete records with the 'DELETE FROM' command in SQL, but ...

... without an explicit oRs:Update() Here are some typical ADO methods for adding, deleting and moving through recordsets : Append --> oRecordSet:AddNew() Close --> oRecordSet:Close() Commit --> oRecordSet:Update() Delete --> oRecordSet:Delete() Deleted() --> oRecordSet:Status == adRecDeleted ...