Ejemplo de conexion a Eagle1

Ejemplo de conexion a Eagle1

Postby Compuin » Tue Apr 18, 2017 12:49 pm

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
FWH 20.12
Hbmk2 32/64 Bits (Build 19.29.30133)
Microsoft Visual C 32 Bits
MySql 8.0.24 32/64 Bits
VS Code
Compuin
 
Posts: 1213
Joined: Tue Dec 28, 2010 1:29 pm
Location: Quebec, Canada

Re: Ejemplo de conexion a Eagle1

Postby Compuin » Sun Apr 23, 2017 4:31 pm

Algun advise?
FWH 20.12
Hbmk2 32/64 Bits (Build 19.29.30133)
Microsoft Visual C 32 Bits
MySql 8.0.24 32/64 Bits
VS Code
Compuin
 
Posts: 1213
Joined: Tue Dec 28, 2010 1:29 pm
Location: Quebec, Canada

Re: Ejemplo de conexion a Eagle1

Postby cnavarro » Sun Apr 23, 2017 4:56 pm

Usa el metodo

METHOD CreateTable( cTable, aStruct, cType ) CLASS TMSDataBase
Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
cnavarro
 
Posts: 6498
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Ejemplo de conexion a Eagle1

Postby xmanuel » Sun Apr 23, 2017 10:02 pm

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()
 
______________________________________________________________________________
Sevilla - Andalucía
xmanuel
 
Posts: 756
Joined: Sun Jun 15, 2008 7:47 pm
Location: Sevilla


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 6 guests