FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Para ANTONIO subo proyecto MARIADB sin funcionar REFRESH
goosfancito
Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM
Para ANTONIO subo proyecto MARIADB sin funcionar REFRESH
Posted: Fri Oct 08, 2021 01:15 PM

Antonio o quien desee probar

Te dejo el enlace del proyecto demo con una sola tabla para que veas que no esta funcionando el refresh del xbrowse con MARIADB si por favor
lo podes ver y decirme que es lo que estoy haciendo mal.

gracias.

https://mega.nz/file/W6ICWTha#2Yq8q2-z6 ... fOlh6FxuaE

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Para ANTONIO subo proyecto MARIADB sin funcionar REFRESH
Posted: Fri Oct 08, 2021 02:31 PM
Que me falta?

https://imgur.com/undefined



Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Para ANTONIO subo proyecto MARIADB sin funcionar REFRESH
Posted: Fri Oct 08, 2021 02:37 PM
Compilado con HARBOUR, Download completo.

https://mega.nz/file/xENB2Qjb#Cq8iGIVn-6mmbthj1tJdZpoXgRrytuZyhPk-q9CcH3U

Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
goosfancito
Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM
Re: Para ANTONIO subo proyecto MARIADB sin funcionar REFRESH
Posted: Fri Oct 08, 2021 03:04 PM

configura el servidor con mariadb.

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
goosfancito
Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM
Re: Para ANTONIO subo proyecto MARIADB sin funcionar REFRESH
Posted: Fri Oct 08, 2021 03:17 PM
karinha wrote:Compilado con HARBOUR, Download completo.

https://mega.nz/file/xENB2Qjb#Cq8iGIVn-6mmbthj1tJdZpoXgRrytuZyhPk-q9CcH3U

Regards, saludos.


me lo rechaza el antivirus

Tú computadora no está bién. Instale el AVG ANTI VÍRUS. Como configura? No uso MySQL aún.

Tiens un email que no sea gmail.com ?

Regards, saludos.
FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
goosfancito
Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM
Re: Para ANTONIO subo proyecto MARIADB sin funcionar REFRESH
Posted: Fri Oct 08, 2021 03:18 PM

aviisa que tiene un troyano.

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Para ANTONIO subo proyecto MARIADB sin funcionar REFRESH
Posted: Fri Oct 08, 2021 03:26 PM
https://imgur.com/w697e12



Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
goosfancito
Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM
Re: Para ANTONIO subo proyecto MARIADB sin funcionar REFRESH
Posted: Fri Oct 08, 2021 03:29 PM
karinha wrote:https://imgur.com/w697e12



Regards, saludos.


no se que decirte aca avisa que tiene troyano y no lo deja descargar.
FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Para ANTONIO subo proyecto MARIADB sin funcionar REFRESH
Posted: Fri Oct 08, 2021 03:32 PM

Que está haciendo el download sin problemas.

Tiens un email que no sea gmail.com ? Que se pueda enviar .RAR?

Skype?

Regards, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
carlos vargas
Posts: 1789
Joined: Tue Oct 11, 2005 05:01 PM
Re: Para ANTONIO subo proyecto MARIADB sin funcionar REFRESH
Posted: Fri Oct 08, 2021 05:32 PM
Gustavo, aca este ejemplo me funciono bien, prueba con tu version de fwh
es un dialog, con database embebido como en el modulo que me mostraste ayer.

goss.prg
Code (fw): Select all Collapse
#include "fivewin.ch"

//poner este prg en fwh\samples

REQUEST DBFCDX

procedure main()
   local oCn, oQry, cDataFolder, cLangFolder
   local oDlg, oBrw

   cDataFolder := "d:\fwh\samples\test\" //hacer esta carpeta
   cLangFolder := "d:\fwh\samples\"

   FWCONNECT oCn HOST cDataFolder LANGFOLDER cLangFolder DATABASE "fwh"
   if oCn == nil
      ? "Connect fail"
      return
   endif

   //luego de la primera ejecucion, puedes comentar estas dos lineas.
   oCn:importfromdbf( "states.dbf" )
   xbrowser oCn:states

   oQry := oCn:RowSet( "select * from states" )

   fwdbg oCn, oQry

   define dialog oDlg name "mydlg"

   redefine xbrowse oBrw id 101 of oDlg datasource oQry columns "code", "name" autosort

   redefine button id 102 of oDlg action AddRow( oCn, oQry, oBrw )
   redefine button id 103 of oDlg action oDlg:end()
   
   activate dialog oDlg
    
   oCn:close()

return

procedure AddRow( oCn, oQry, oBrw )
   oCn:insert( "states", "code,name", { "MG", "MANAGUA-" + time() } ) 
   ?"Error:", oCn:nError
   if oCn:nError <> 0
     oCn:ShowError()
   endif
   oQry:Requery()
   oBrw:refresh(.t.)
return


goos.rc
Code (fw): Select all Collapse
// Generated by ResEdit 1.6.6
// Copyright (C) 2006-2015
// <!-- m --><a class="postlink" href="http://www.resedit.net">http://www.resedit.net</a><!-- m -->

#include <windows.h>

#ifndef WC_TABCONTROL
#define WC_TABCONTROL   "SysTabControl32"
#endif

#ifndef MONTHCAL_CLASS
#define MONTHCAL_CLASS  "SysMonthCal32"
#endif

#ifndef DATETIMEPICK_CLASS
#define DATETIMEPICK_CLASS "SysDateTimePick32"
#endif

#ifndef VOS__WINDOWS32 
#define VOS__WINDOWS32          0x00000004L
#endif

#ifndef VFT_APP
#define VFT_APP                 0x00000001L
#endif

#ifndef VFT2_UNKNOWN
#define VFT2_UNKNOWN            0x00000000L
#endif

#ifndef WC_STATIC
#define WC_STATIC  "Static"
#endif

#include "resource.h"

//
// Dialog resources
//
MYDLG DIALOG 0, 0, 304, 177
STYLE DS_3DLOOK | DS_CENTER | DS_MODALFRAME | DS_SHELLFONT | WS_CAPTION | WS_VISIBLE | WS_POPUP | WS_SYSMENU
CAPTION "Dialog"
FONT 8, "Ms Shell Dlg"
{
    CONTROL         "", 101, "TXBrowse", 0x50020000, 7, 12, 290, 138, 0x00000000
    PUSHBUTTON      "Button", 102, 7, 155, 56, 15, 0, WS_EX_LEFT
    PUSHBUTTON      "Button", 103, 241, 155, 56, 15, 0, WS_EX_LEFT
}

resource.h
Code (fw): Select all Collapse
#ifndef IDC_STATIC
#define IDC_STATIC (-1)
#endif
Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)
carlos vargas
Posts: 1789
Joined: Tue Oct 11, 2005 05:01 PM
Re: Para ANTONIO subo proyecto MARIADB sin funcionar REFRESH
Posted: Fri Oct 08, 2021 05:32 PM
Gustavo, aca este ejemplo me funciono bien, prueba con tu version de fwh
es un dialog, con database embebido como en el modulo que me mostraste ayer.

goos.prg
Code (fw): Select all Collapse
#include "fivewin.ch"

//poner este prg en fwh\samples

REQUEST DBFCDX

procedure main()
   local oCn, oQry, cDataFolder, cLangFolder
   local oDlg, oBrw

   cDataFolder := "d:\fwh\samples\test\" //hacer esta carpeta
   cLangFolder := "d:\fwh\samples\"

   FWCONNECT oCn HOST cDataFolder LANGFOLDER cLangFolder DATABASE "fwh"
   if oCn == nil
      ? "Connect fail"
      return
   endif

   //luego de la primera ejecucion, puedes comentar estas dos lineas.
   oCn:importfromdbf( "states.dbf" )
   xbrowser oCn:states

   oQry := oCn:RowSet( "select * from states" )

   fwdbg oCn, oQry

   define dialog oDlg name "mydlg"

   redefine xbrowse oBrw id 101 of oDlg datasource oQry columns "code", "name" autosort

   redefine button id 102 of oDlg action AddRow( oCn, oQry, oBrw )
   redefine button id 103 of oDlg action oDlg:end()
   
   activate dialog oDlg
    
   oCn:close()

return

procedure AddRow( oCn, oQry, oBrw )
   oCn:insert( "states", "code,name", { "MG", "MANAGUA-" + time() } ) 
   ?"Error:", oCn:nError
   if oCn:nError <> 0
     oCn:ShowError()
   endif
   oQry:Requery()
   oBrw:refresh(.t.)
return


goos.rc
Code (fw): Select all Collapse
// Generated by ResEdit 1.6.6
// Copyright (C) 2006-2015
// <!-- m --><a class="postlink" href="http://www.resedit.net">http://www.resedit.net</a><!-- m -->

#include <windows.h>

#ifndef WC_TABCONTROL
#define WC_TABCONTROL   "SysTabControl32"
#endif

#ifndef MONTHCAL_CLASS
#define MONTHCAL_CLASS  "SysMonthCal32"
#endif

#ifndef DATETIMEPICK_CLASS
#define DATETIMEPICK_CLASS "SysDateTimePick32"
#endif

#ifndef VOS__WINDOWS32 
#define VOS__WINDOWS32          0x00000004L
#endif

#ifndef VFT_APP
#define VFT_APP                 0x00000001L
#endif

#ifndef VFT2_UNKNOWN
#define VFT2_UNKNOWN            0x00000000L
#endif

#ifndef WC_STATIC
#define WC_STATIC  "Static"
#endif

#include "resource.h"

//
// Dialog resources
//
MYDLG DIALOG 0, 0, 304, 177
STYLE DS_3DLOOK | DS_CENTER | DS_MODALFRAME | DS_SHELLFONT | WS_CAPTION | WS_VISIBLE | WS_POPUP | WS_SYSMENU
CAPTION "Dialog"
FONT 8, "Ms Shell Dlg"
{
    CONTROL         "", 101, "TXBrowse", 0x50020000, 7, 12, 290, 138, 0x00000000
    PUSHBUTTON      "Agregar", 102, 7, 155, 56, 15, 0, WS_EX_LEFT
    PUSHBUTTON      "Cerrar", 103, 241, 155, 56, 15, 0, WS_EX_LEFT
}

resource.h
Code (fw): Select all Collapse
#ifndef IDC_STATIC
#define IDC_STATIC (-1)
#endif
Salu2

Carlos Vargas

Desde Managua, Nicaragua (CA)
goosfancito
Posts: 1956
Joined: Fri Oct 07, 2005 07:08 PM
Re: Para ANTONIO subo proyecto MARIADB sin funcionA (RESUELTO)
Posted: Sat Oct 09, 2021 11:03 AM

BUEN DIA.

gracias a todos.

Carlos pudo ver el error que estaba teninedo. mi version de fwh no estaba actualizada y justamete en la que yo estaba usando tenia un bug.

gracias

FWH 21.02
Harbour 3.2.0dev (r2104281802)
Copyright (c) 1999-2021, https://harbour.github.io/

Continue the discussion

Static archive · New replies & topics via GitHub Discussions