We all know the methods Update(), AddNew() and GetRows() of ADODB RecordSet. I propse here to consider a simpler alternative usage of these methods.
For example, let us consider oRs:Update() method. We are familiar with this way of usage:
Depending on the number of fields, this code may run into several lines and again in each line the laborious coding of "oRs:Fields( "<name>" ):Value := <newvalue>"
Instead, I suggest considering the following single line approach:
In case we have the names of the fields and values ( read and edited ) in arrays like aCols and aVals, we can write
Similarly the familiar coding for AddNew() is:
Even here we have short-cut:
OR
Important: When we use array of field names and values, we need not call oRs:Update()
Reading the present values of all the fields into an array;
Familiar method:
We an make this process simpler and faster by using GetRows() method.
For sample usage of this approach, please see \fwh\samples\adoxbr01.prg
For example, let us consider oRs:Update() method. We are familiar with this way of usage:
oRs:Fields( "First" ):Value := cFirst
oRs:Fields( "Age" ):Value := nAge
// < for all fields >
// and then
oRs:Update()Depending on the number of fields, this code may run into several lines and again in each line the laborious coding of "oRs:Fields( "<name>" ):Value := <newvalue>"
Instead, I suggest considering the following single line approach:
oRs:Update( { "FIRST", "LAST", "AGE", "SALARY" }, { cFirst, cLast, nAge, nSalary } )In case we have the names of the fields and values ( read and edited ) in arrays like aCols and aVals, we can write
oRs:Update( aCols, aVals )Similarly the familiar coding for AddNew() is:
oRs:AddNew()
oRs:Fields( "First" ):Value := cFirst
oRs:Fields( "Age" ):Value := nAge
// < for all fields >
// and then
oRs:Update()Even here we have short-cut:
oRs:AddNew( { "FIRST", "LAST", "AGE", "SALARY" }, { cFirst, cLast, nAge, nSalary } )OR
oRs:AddNew( aCols, aVals )Important: When we use array of field names and values, we need not call oRs:Update()
Reading the present values of all the fields into an array;
Familiar method:
aVals := Array( oRs:Fields:Count() )
for i := 1 to oRs:Fields:Count()
aVals[ i ] := oRs:Fields( i - 1 ):Value
nextWe an make this process simpler and faster by using GetRows() method.
aVals := oRs:GetRows( 0, 1 )[ 1 ] // from current position (0) read one row (1)
aOriginals := AClone( aVals ) // later compare to check modified or not
oRs:MovePrevious() // GetRows() advances the record pointer. Put it backFor sample usage of this approach, please see \fwh\samples\adoxbr01.prg
Regards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India