Search found 1421 matches

by carlos vargas
Tue Mar 02, 2021 9:26 pm
Forum: FiveWin para Harbour/xHarbour
Topic: Mysql (Result a Array en C) solicitud de ayuda.
Replies: 7
Views: 22348

Re: Mysql (Result a Array en C) solicitud de ayuda.

bueno encontre una funcion de conversion de string a numero en el api de harbour. creo es mejor usarla. :-)                         case MY_FT_INTEGER:                         case MY_FT_LONG:                         {                            HB_SIZE nValue = 0;                            if( mro...
by carlos vargas
Tue Mar 02, 2021 8:40 pm
Forum: FiveWin para Harbour/xHarbour
Topic: Mysql (Result a Array en C) solicitud de ayuda.
Replies: 7
Views: 22348

Re: Mysql (Result a Array en C) solicitud de ayuda.

Antonio, que direfencia hay entre estas dos funciones? extern HB_EXPORT HB_BOOL hb_arraySetC( PHB_ITEM pArray, HB_SIZE nIndex, const char * szText ); extern HB_EXPORT HB_BOOL hb_arraySetCL( PHB_ITEM pArray, HB_SIZE nIndex, const char * szText, HB_SIZE nLen ); asi esta quedando la funcion, ya en el e...
by carlos vargas
Tue Mar 02, 2021 4:24 pm
Forum: FiveWin para Harbour/xHarbour
Topic: Mysql (Result a Array en C) solicitud de ayuda.
Replies: 7
Views: 22348

Re: Mysql (Result a Array en C) solicitud de ayuda.

Thank you, antonio.

Yes, Rao, the point is that I want to learn how to use the harbor api, it has always seemed a challenge to me.
by carlos vargas
Mon Mar 01, 2021 9:37 pm
Forum: FiveWin para Harbour/xHarbour
Topic: Mysql (Result a Array en C) solicitud de ayuda.
Replies: 7
Views: 22348

Re: Mysql (Result a Array en C) solicitud de ayuda.

Ya he caminado unos cuantos pasos mas, ya funcionan las columnas tipo caracter (me falta hacer pad a su tamaño maximo), fecha y logico, me faltan los memos, numericos (entero y decimal) HB_FUNC( MYSQL_QUERY2ARRAY ) {    MYSQL *mysql = (MYSQL *) hb_MYSQL_par( 1 );    if( mysql )    {       PHB_ITEM i...
by carlos vargas
Mon Mar 01, 2021 5:08 pm
Forum: FiveWin para Harbour/xHarbour
Topic: Mysql (Result a Array en C) solicitud de ayuda.
Replies: 7
Views: 22348

Re: Mysql (Result a Array en C) solicitud de ayuda.

casi en forma similar, tengo la funcion que pasa a tabla, usando el api de harbour, ya me crea la tabla con las respectivas columnas, y agrego los registos, pero igual que el caso anterior deseo saber como pasar los datos segun su tipo a un PHB_ITEM para poder usar la funcion SELF_PUTVALUE( pArea, u...
by carlos vargas
Mon Mar 01, 2021 5:04 pm
Forum: FiveWin para Harbour/xHarbour
Topic: Mysql (Result a Array en C) solicitud de ayuda.
Replies: 7
Views: 22348

Mysql (Result a Array en C) solicitud de ayuda.

Estimados necesito de su gran ayuda. :-) Siguiendo con mi intento de mejorar TmySQL, he notado que al pasar a array una consulta, todos los datos vienen como cadena de caracteres, por lo que he intentado modificar este comportamiento. mi idea es que previo a pasar los datos del result, obtener el ti...
by carlos vargas
Wed Feb 24, 2021 4:58 pm
Forum: FiveWin para Harbour/xHarbour
Topic: crear tabla con el api de harbour
Replies: 7
Views: 31995

Re: crear tabla con el api de harbour

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 ...
by carlos vargas
Tue Feb 23, 2021 7:32 pm
Forum: FiveWin para Harbour/xHarbour
Topic: crear tabla con el api de harbour
Replies: 7
Views: 31995

Re: crear tabla con el api de harbour

Este codigo deseo pasarlo a C para optimizar velocidad! 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( cTableNa...
by carlos vargas
Tue Feb 23, 2021 6:25 pm
Forum: FiveWin para Harbour/xHarbour
Topic: crear tabla con el api de harbour
Replies: 7
Views: 31995

crear tabla con el api de harbour

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 con...
by carlos vargas
Mon Feb 08, 2021 9:06 pm
Forum: FiveWin para Harbour/xHarbour
Topic: Funciones C en Harbour
Replies: 19
Views: 16464

Re: Funciones C en Harbour

Syntax void Animate_Open( hwnd, szName); Parameters hwnd Type: HWND A handle to the animation control. szName Type: LPTSTR A pointer to a buffer that contains the path of the AVI file or the name of an AVI resource. Alternatively, this parameter can consist of the AVI resource identifier in the LOW...
by carlos vargas
Fri Jan 29, 2021 8:43 pm
Forum: FiveWin para Harbour/xHarbour
Topic: Continuidad con desarrollos
Replies: 11
Views: 6216

Re: Continuidad con desarrollos

Mi sentido pésame por la pérdida de tu Padre, estamos a la orden.
by carlos vargas
Mon Jan 18, 2021 4:41 pm
Forum: FiveWin for Harbour/xHarbour
Topic: From Adt to Dbf
Replies: 5
Views: 1470

Re: From Adt to Dbf

   USE NOMTABLA0 NEW  ALIAS CTRL    ...    USE NOMTABLA10 NEW  ALIAS CXDT    ...    Adt2Dbf()    ...   PROC Adt2Dbf()    //RddSetDefault( "DBFCDX" )    SELECT CTRL    Mig("control")    SELECT USUA    Mig("usuarios")    SELECT FERI    Mig("feriados")    SELECT...
by carlos vargas
Tue Jan 05, 2021 8:28 pm
Forum: WhatsNew / Novedades
Topic: New FTDN December/Diciembre 2020 (FWH 20.12)
Replies: 8
Views: 4110

Re: New FTDN December/Diciembre 2020 (FWH 20.12)

Vere lo que me indicas... te comento en breve..

Efectivamente antonio, comentado el metodo virtual funciono como antes.
gracias!
by carlos vargas
Tue Jan 05, 2021 8:27 pm
Forum: WhatsNew / Novedades
Topic: New FTDN December/Diciembre 2020 (FWH 20.12)
Replies: 8
Views: 4110

Re: New FTDN December/Diciembre 2020 (FWH 20.12)

ademas de sto he visto cambios en la definicion de constantes ANTES #define MCN_FIRST           (-750) #define MCN_SELCHANGE       (MCN_FIRST + 1) #define MCN_GETDAYSTATE     (MCN_FIRST + 3) AHORA #define MCN_FIRST           (-746) #define MCN_SELCHANGE       (MCN_FIRST - 3) // -749 #define MCN_GETD...
by carlos vargas
Mon Jan 04, 2021 9:53 pm
Forum: WhatsNew / Novedades
Topic: New FTDN December/Diciembre 2020 (FWH 20.12)
Replies: 8
Views: 4110

Re: New FTDN December/Diciembre 2020 (FWH 20.12)

USO STATIC PROCEDURE Pago_SelFecha()    LOCAL lCambio := FALSE    LOCAL dFechaAnt := dFecha    LOCAL cWhere    dFecha := Seleccionar_Fecha( dFecha )    IF Empty( dFecha )       dFecha := dFechaAnt    ELSE       IF dFecha > Date()          dFecha := dFechaAnt          MsgAlert( "No se permite se...