Exportar tabla MariaDB a texto con tabulares

[jorge.posadas]

Grupo

Tengo una tabla en MariaBD con 90mil registros, y me han pedido que yo exporte esos 90mil registros a un archivo TXT delimitado por tabulares
¿cómo puedo hacer eso?

De antemano agradezco la ayuda

[serge_girard]

Do While function + ? command

just like DBF !

Serge

[vagblad]

Hello Jorge

Here is a very draft example, assuming connection with the database is already established

Code: Select all

Local cTempString := ''
Local oRow, oQuery

cQueryString := 'SELECT * FROM yourTable "

oQuery := oServer:Query(cQueryString)
If oQuery:NetErr()
  memowrit(cError, oQuery:Error() + ' --- ' + cQueryString)
EndIf

If oQuery:LastRec() > 0
 For i := 1 to oQuery:LastRec()
  oRow := oQuery:GetRow(i)
  cTempString += oRow:FieldGet("Field 1") + ',' + oRow:FieldGet("Field 2") + ',' + oRow:FieldGet("Field X") + CRLF
 Next i
EndIf

memowrit("mariadb.txt",cTempString)

[Ismach]

En lulgar de poner un caracter de separador de columnas pone solamente Ascii 9 ylisto, asi:

Code: Select all

Local cTempString := ''
Local oRow, oQuery

cQueryString := 'SELECT * FROM TuPedorraTabla"

oQuery := oServer:Query(cQueryString)
If oQuery:NetErr()
    memowrit(cError, oQuery:Error() + ' --- ' + cQueryString)
EndIf
If oQuery:RecCount() > 0
     For i := 1 to oQuery:RecCount() Step 1
         oRow := oQuery:GetRow(i)
        cTempString += oRow:FieldGet("Col1") + Chr(9) + oRow:FieldGet("Col2") + Chr(9) + oRow:FieldGet("ColZ") + hb_OsNewLine()
     Next i
EndIf
memowrit("TuPedorraTabla.plana.txt",cTempString)