FiveTech Software tech support forums

... THANKS RAO now I make a new Method on mt Tlotto Class called Method NagesProcedure(aCell,aVals) CLASS TLotto where I put your source and now seems run ok and call this method every time I go to change the structure of the array :: aArray ...

Silvio,

if you want to have the last of same values you must change only one line of my function.

if aVals[nR, nC] >= nMax // instead of only "="

... 255, 0,0 ),RGB( 252, 235, 220 )) oBrw:KeyNo:= nRowSelect static Function Colorize_Max(oBrw,nColor1,nColor2) local avals:= oBrw:aArraydata local atest:= aFindMax( aVals ) local nRow:= atest[1] local nCol:= atest[2] oBrw:aCols[nCol]:bClrStd := {|| { CLR_BLACK,IIf(oBrw:nArrayAt=nRow, ...

... it in the client's memory. We normally open recordsets using adLockOptimistic . All calls to the methods Update(), Delete() and AddNew( aCols, aVals ) make the changes to the underlying database immediately and are visible to other users on the network. We can also open the recordset using ...

... This is unnecessary and superfluous. Your code: oCust:Lock()IF lFields = .T. // using selected fields    oCust:Paste(aVals)ELSE    oCust:Paste()  // Paste( aVals )ENDIFoCust:SAVE()oCust:Commit()oCust:UnLock()  ...

Hello, I noticed a problem using tDatabase Copy() / Paste( aVals ) Wihout selected fields, record 9 is copied to 10 http://www.pflegeplus.com/IMAGES/Network13.jpg METHOD Copy() METHOD Paste( aVals ) using Paste() without aVals works adding ...

... cFile, cTag ) Adds new index file. Use with NTX files 7. AnsiToOem() Internal Internally used when ::lOemToAnsi is .T. 8. Append( [aFlds], [aVals] ) --> lSuccess Usage 1: Append() without parameters: Appends a blank record and returns success This usage is consistent with all previous ...

... for edit/save Note: RecordObject is TDataRow object - Edit( [cFieldList], [lNew] ) --> Edit Dialog for editing/saving a record - Update( aFlds, aVals ) --> lSuccess Modifies an existing record, writing aVals to corresponding aFlds Alternative Syntaxes: Update( cFieldList, aVals ) --> lSuccess ...

... for edit/save Note: RecordObject is TDataRow object - Edit( [cFieldList], [lNew] ) --> Edit Dialog for editing/saving a record - Update( aFlds, aVals ) --> lSuccess Modifies an existing record, writing aVals to corresponding aFlds Alternative Syntaxes: Update( cFieldList, aVals ) --> lSuccess ...

... have any suggestions? What about lEq := ( cValToChar( x ) == cValToChar( y ) ) ? with ADO this generates an error in ::SaveADO oRs:Update( aCols, aVals ) I do not understand why this should give an error? In the worst case a field us updated with the same value and this should not raise an error. ...

... y ) sometimes return .f. even if the numbers are equal and Modified() return .t. with ADO this generates an error in ::SaveADO oRs:Update( aCols, aVals ) Regards Maurizio

... ) METHOD UploadFromAlias( cTable, cSrcFieldList, cDstFieldList, [lUpdateIgnore] ) METHOD ValToSQL( uVal ) METHOD FieldsAndValsToSQL( aFields, aVals, lWhere ) METHOD Close() or End() Important Methods Explained: MEHOD CreateTable(cTable, aStruct, [lAddAutoInc], [char-set] ) --> lSuccess ...

lucasdebeltran wrote:Antonio,

It´s with MySQL.

At ADO_APPEND, i checked aVals and date fields very empty.

Are you testing with Access or MySQL?.

With ACCESS Works fine.

This might be due to not nullable fields defined in MySql table structure.

Antonio,

It´s with MySQL.

At ADO_APPEND, i checked aVals and date fields very empty.

Are you testing with Access or MySQL?.

With ACCESS Works fine.

Lucas,

Another bug in ADO_APPEND() and MySQL.

Dates are not saved into aVals, so oRs:AddNew( aCols, aVals ) fails.

Also maybe a problem with empty dates?.

Here working ok.

Code: Select all  Expand view

append blank
replace datefield with date()
 

Can you post a example?