Já sabe trabalhar com MySQL?
Então é só fazer.
É só pensar em funcionar primeiro, e depois pensar em como agilizar.
Como inclui no mysql? INSERT INTO TABELA ( campos ) VALUES ( valores )
Então é fazer igual.
Apenas como idéia básica, não testado, digitei no post:
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
Tudo depende do que vai usar pra trabalhar com MySQL.
É usar a mesma coisa pra incluir.