FiveTech Software tech support forums

Hola foro

Soy nuevo tratando de usar Eagle1 y tengo este codigo el cual no me funciona por alguna razon.

Alguien tiene una idea si estoy tomando el camino equivocado?

//----------------------------------------------------------------------------//
// P00 Ejemplo de connexion a MySQL
//----------------------------------------------------------------------------//
#include "FiveWin.ch"

FUNCTION MAIN()
local cHost :="127.0.0.1"
local cUser :="root"
local cPassword :=" "
local cDbName := "Base"
local cTabla := "Tabla"
local lRet

local oMySql, oDb, oDlg

MsgInfo( "Empiezo..." )

SET DATE FORMAT TO "DD/MM/YYYY"
DEFINE DIALOG oDlg FROM 2, 2 TO 14, 35;
TITLE "Datos de conexión" ;
STYLE nOr( DS_MODALFRAME, WS_POPUP, WS_CAPTION, WS_SYSMENU, 4 )

@ 01, 01 SAY "Host:" OF oDlg
@ 01, 05 GET cHost PICTURE "@K" UPDATE OF oDlg

@ 1.8, 01 SAY "Usuario:" OF oDlg
@ 02, 05 GET cUser PICTURE "@K" UPDATE OF oDlg

@ 2.6, 01 SAY "Password:" OF oDlg
@ 03, 05 GET cPassword PICTURE "@K" UPDATE OF oDlg

@ 3.4, 01 SAY "Base datos:" OF oDlg
@ 04, 05 GET cDbName PICTURE "@K" UPDATE OF oDlg

@ 4, 7 BUTTON "&Aceptar" ACTION oDlg:End() OF oDlg

ACTIVATE DIALOG oDlg CENTERED

cHost := trim( cHost )
cUser := trim( cUser )
cPassword := trim( cPassword )
cDbName := trim( cDbName )

oMySql := TMSConnect():New()

// Nos conectamos al servidor
lRet := oMySql:Connect( cHost, cUser, cPassword, cDbName )

if oMySql:lInit
MsgInfo( "Inicializado...", "Hola" )
endif

if oMySql:Connect()
MsgInfo( "Conectado", "Hola" )
oMySql:CreateDB( "MiPrueba" )

oDb := TMSDataBase():Create( oMySql, "Base2" )
oMySql:Close()
else
MsgInfo( "No hay conexion", "Hola" )
endif

return nil

FUNCTION Browse()
local oDlg, oBrw

DEFINE DIALOG oDlg SIZE 640,440 PIXEL ;
TITLE 'XBrowse Gradient Rows'

oBrw:=TxBrowse():New(oDlg)
oBrw:CreateFromCode()

ACTIVATE DIALOG oDlg CENTERED

RETURN nil

Algun advise?

Usa el metodo

METHOD CreateTable( cTable, aStruct, cType ) CLASS TMSDataBase

Falta decirle al browse que tiene que mostrar

Code: Select all  Expand view

oBrw:=TxBrowse():New(oDlg)
MySetBrowse( oBrw, oTb ) // Se supone que el objeto tablas de Eagle1 está creado. MySetBrowse es una función de utilidades de Eagle1
oBrw:CreateFromCode()