improvements or gains in productivity in rddsql
Closed this issue · 2 comments
Adjust in sqlconnection.prg
METHOD Execute(cCommand, lErrMsg, nLogMode, cType, lNeverLog) CLASS SR_CONNECTION
...
Line 727
IF ::nAutoCommit > 0 .AND. Upper(SubStr(ltrim(cCommand), 1, 6)) $ "UPDATE,INSERT,DELETE"
IF (++::nIteractions) >= ::nAutoCommit .AND. ::nTransacCount == 0
::Commit()
ENDIF
*Begin Add
ELSE
::IniFields(.F.,,,,, /cRecnoName/,/cDeletedName/)
*End Add
ENDIF
...
Add Method in sqlconnection.prg
*Begin
METHOD GetHash(hLine, lTranslate, aFields) CLASS SR_CONNECTION
LOCAL lResults := HB_ISHASH(hLine)
LOCAL i
LOCAL nRet := ::FetchRaw(lTranslate, aFields)
IF nRet == SQL_SUCCESS .AND. lResults
FOR i := 1 TO ::nFields
hline[lower(::afields[i,1])] := ::FieldGet(i, ::aFields, lTranslate)
NEXT i
ENDIF
RETURN nRet
*End
Ideally, you should explain the reason for the change and make a pull request with the fix to be analyzed
Please post a pull request.