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"
[color=#0000FF:1o4ps6o4]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[/color:1o4ps6o4]
↧