Page 1 of 1
crear tabla con el api de harbour
Posted: Tue Feb 23, 2021 6:25 pm
by carlos vargas
Amigos, uso desde hace mucho tiempo la clase tmysql, ahora tengo la necesidad de tomar el resultado y pasarlo a una tabla, con codigo prg no es muy complicado, pero me propuesto hacerlo usando el api de ahrbour, osea usar el rdd api.
alguien me podria dar una idea de como hacerlo, he revisado el contrib especificamente el sqlmix, pero no logro entenderlo,
un ejemplo bastaria.
mi idea es hace: crear el area de trabajo, y definir _ en base a las columnas del cursor de mysql, y luego insertar las filas.
salu2
Re: crear tabla con el api de harbour
Posted: Tue Feb 23, 2021 7:32 pm
by carlos vargas
Este codigo deseo pasarlo a C para optimizar velocidad!
Code: Select all
METHOD ToDbf( cTableName, cAlias, cRdd, lShared, lReadOnly ) CLASS TMySQLQuery
LOCAL lCreated := FALSE, nRecNo, nField
DEFAULT cRdd TO "DBFNTX", cAlias TO cTableName, lShared TO FALSE, lReadOnly TO FALSE
IF !File( cTableName )
TRY
dbCreate( cTableName, ::Struct(), cRdd )
lCreated := TRUE
CATCH
RETURN lCreated
END
ENDIF
IF lCreated .and. !Select( cAlias ) > 0
dbUseArea( TRUE, cRdd, cTableName, cAlias, lShared, lReadOnly )
IF NetErr()
RETURN lCreated
ENDIF
ENDIF
IF (cAlias)->( RecCount() ) > 0
(cAlias)->( __Zap() )
ENDIF
nRecNo := ::RecNo()
::GoTop()
WHILE !::Eof()
(cAlias)->( dbAppend() )
FOR nField := 1 TO ::FCount()
(cAlias)->( FieldPut( nField, ::FieldGet( nField ) ) )
NEXT
::Skip()
ENDDO
IF nRecNo > 0
::GoTo( nRecNo )
ENDIF
(cAlias)->( dbCommit(), dbGoTop() )
RETURN lCreated
Re: crear tabla con el api de harbour
Posted: Wed Feb 24, 2021 8:03 am
by Antonio Linares
Carlos,
Creo que la principal optimización sería el bucle while ... end
en lo demás no creo que vaya a haber diferencia de velocidad
Re: crear tabla con el api de harbour
Posted: Wed Feb 24, 2021 11:08 am
by hmpaquito
Hola,
Lo que consume el tiempo es el bucle FOR, el copiado campo a campo. Recorrer UNO a UNO _ a grabar.
Habria que inventar algo para que se hiciera un traspaso en bloque... algo parecido a usar __dbTrans
Mientras, usar Local nFCount:= ::FCount() en FOR nField:= 1 TO nFCount, y similares variables, puede ayudar un poco... muy poco... La clave es el bucle FOR y el copiado campo a campo...
Saludos
Re: crear tabla con el api de harbour
Posted: Wed Feb 24, 2021 12:41 pm
by nageswaragunupudi
FWH's built-in MariaDB library has this method:
Code: Select all
oCn:SaveToDBF( cSql, cDbfName, [lForUpdate = .f.] )
This method uses RDD API at the level of "C" language.
Without waiting to read the result of cSql, this method keeps writing to DBF as and when each line is read from the server and is very fast.
FWH's built-in library comes for free and we do not have to link any 3rd party libraries.
We may be using TMySql or Dolphin or ADO for our main program. We can still use the bulit-in library along side without disturbing the main application.
For example, we are using TMySql for our main application and oServer is the connection object in TMySql.
We can do:
Code: Select all
oCn := maria_Connect( oServer ) // oServer is TMySql connection
oCn:SaveToDBF( cSql, cDbfName )
oCn:Close()
Re: crear tabla con el api de harbour
Posted: Wed Feb 24, 2021 4:04 pm
by cnavarro
Mira esta comparativa
Re: crear tabla con el api de harbour
Posted: Wed Feb 24, 2021 4:58 pm
by carlos vargas
Sip, se que la clase de fwh es muy potente, al igual que dolphin, y ado, pero es que le tengo mucho cariño a tmysql (con ella aprendi mucho de harbour, c, apis, etc. es invaluable lo que he aprendido con ella.) la tengo bastante optimizada y modificada, aparte que tengo los fuentes.
casualmente lo que indica Rao es lo que yo deseo, hacer, una metodo directo que realize la consulta y lo pase a dbf. para ellos debere pasar el metodo a tmysqlsrv en lugar de tmysqlqry .En sqlrdd existe una funcion igualmente y es muy rapido.
Usualmente inicio con algo simple que funciona y luego ya lo voy optimizando. como en este caso.
deseo aprender un poco del api de rdd. (seria como dos pajaron con un solo tiro)
Cristobal, ese programa de prueba de velocidad esta en fwh? si no es asi puedes compratirlo.
salu2
Gracias
Re: crear tabla con el api de harbour
Posted: Wed Feb 24, 2021 7:08 pm
by cnavarro
Ok Carlos, pero como bien sabes, en el uso de Mysql y estos temas no sólo hay que tener en cuenta la velocidad de la "herramienta" que usemos.