HMGforum.com

Posted: **Sat Feb 22, 2025 12:00 am**

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

Posted: **Sat Feb 22, 2025 8:07 am**

Do While function + ? command

just like DBF !

Serge

Posted: **Mon Feb 24, 2025 11:18 am**

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)

Posted: **Sat Jul 05, 2025 5:39 am**

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)

HMGforum.com

Exportar tabla MariaDB a texto con tabulares

Exportar tabla MariaDB a texto con tabulares

Re: Exportar tabla MariaDB a texto con tabulares

Re: Exportar tabla MariaDB a texto con tabulares

Re: Exportar tabla MariaDB a texto con tabulares