19 Jul 2016 18:34
29 Jul 2016 11:44
cStringCampos := ""
cStringValores := ""
DO WHILE .NOT. Eof()
oStru := dbStruct()
FOR nCont = 1 TO Len( oStru )
cStringCampos += oStru[ nCont, F_NAME ] + ", "
DO CASE
CASE oStru[ F_TYPE ] == "N" ; cStringCampos += Str( FieldGet( nCont ) )
CASE oStru[ F_TYPE ] == "C" ; cStringCampos += ['] + FieldGet( nCont ) ) + [']
CASE oStru[ F_TYPE ] == "D" ; cStringCampos += ['] + Transform( FieldGet[ nCont ], "@R 9999-99-99" ) + [']
ENDCASE
cStringValues += cStringCampos + ", "
NEXT
// remover ", " final
cStringCampos := Substr( cStringCampos, Len( cStringCampos ) - 2 )
cStringValores := Substr( cStringCampos, Len( cStringCampos ) - 2 )
cSql := "INSERT INTO tabela ( " + cStringCampos + " ) VALUES ( " + cStringValores + ")"
cnMySql:Execute( cSql )
SKIP
ENDDO
29 Jul 2016 14:40