Perdona por la tardanza.
Sustituye esa funcion ya que con las ultimas versiones del compilador da
errores, sustituye por esto:
LPTOP_LEVEL_EXCEPTION_FILTER MyGPFError( void )
{
     return (LPTOP_LEVEL_EXCEPTION_FILTER) 1;
}


Winston Garcia escribió:
> He Tenido un problema compilando la version 3.03 de Eagle1, algiuen me
> podria ayudar. Manu Como va la version 5.0 ya esta disponible para la
> venta ? Como Va Condor ?
>
> MAKE Version 5.2  Copyright (c) 1987, 2000 Borland
>  c:\Harbour\bin\harbour source\Eagle1.prg /p /m /q /w /es2 /n
> /i.\include;c:\Harbour\include;source; -oobj\Eagle1
> Harbour Compiler Alpha (CVS 2006-06-16 01:30)
> Copyright 1999-2006, http://www.harbour-project.org/
> Harbour MiniGUI Extend Distribution v.1.2
>  c:\winston\bcc55\BIN\bcc32 -X -g50 -j1 -tWM -d -OS -O2 -5 -c -w-8075
> -DHB_API_MACROS -DHB_STACK_MACROS -DHB_GUI -DHB_FM_STATISTICS_OFF
> -DHB_OS_WIN_32_USED -DHB_OS_WIN_32 -DHB_FM_STATISTICS_OFF
> -Iinclude;.\msinc;c:\Harbour\include /nobj obj\Eagle1.c
> Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
> obj\Eagle1.c:
>  c:\winston\bcc55\BIN\bcc32 -X -g50 -j1 -tWM -d -OS -O2 -5 -c -w-8075
> -DHB_API_MACROS -DHB_STACK_MACROS -DHB_GUI -DHB_FM_STATISTICS_OFF
> -DHB_OS_WIN_32_USED -DHB_OS_WIN_32 -DHB_FM_STATISTICS_OFF
> -Iinclude;.\msinc;c:\Harbour\include /nobj source\MSCMyStruct.c
> Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
> source\MSCMyStruct.c:
>  c:\winston\bcc55\BIN\bcc32 -X -g50 -j1 -tWM -d -OS -O2 -5 -c -w-8075
> -DHB_API_MACROS -DHB_STACK_MACROS -DHB_GUI -DHB_FM_STATISTICS_OFF
> -DHB_OS_WIN_32_USED -DHB_OS_WIN_32 -DHB_FM_STATISTICS_OFF
> -Iinclude;.\msinc;c:\Harbour\include /nobj source\MSCTypes.c
> Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
> source\MSCTypes.c:
>  c:\winston\bcc55\BIN\bcc32 -X -g50 -j1 -tWM -d -OS -O2 -5 -c -w-8075
> -DHB_API_MACROS -DHB_STACK_MACROS -DHB_GUI -DHB_FM_STATISTICS_OFF
> -DHB_OS_WIN_32_USED -DHB_OS_WIN_32 -DHB_FM_STATISTICS_OFF
> -Iinclude;.\msinc;c:\Harbour\include /nobj source\MSCConnect.c
> Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
> source\MSCConnect.c:
>  c:\winston\bcc55\BIN\bcc32 -X -g50 -j1 -tWM -d -OS -O2 -5 -c -w-8075
> -DHB_API_MACROS -DHB_STACK_MACROS -DHB_GUI -DHB_FM_STATISTICS_OFF
> -DHB_OS_WIN_32_USED -DHB_OS_WIN_32 -DHB_FM_STATISTICS_OFF
> -Iinclude;.\msinc;c:\Harbour\include /nobj source\MSCError.c
> Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
> source\MSCError.c:
>  c:\winston\bcc55\BIN\bcc32 -X -g50 -j1 -tWM -d -OS -O2 -5 -c -w-8075
> -DHB_API_MACROS -DHB_STACK_MACROS -DHB_GUI -DHB_FM_STATISTICS_OFF
> -DHB_OS_WIN_32_USED -DHB_OS_WIN_32 -DHB_FM_STATISTICS_OFF
> -Iinclude;.\msinc;c:\Harbour\include /nobj source\MSCCommand.c
> Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
> source\MSCCommand.c:
>  c:\winston\bcc55\BIN\bcc32 -X -g50 -j1 -tWM -d -OS -O2 -5 -c -w-8075
> -DHB_API_MACROS -DHB_STACK_MACROS -DHB_GUI -DHB_FM_STATISTICS_OFF
> -DHB_OS_WIN_32_USED -DHB_OS_WIN_32 -DHB_FM_STATISTICS_OFF
> -Iinclude;.\msinc;c:\Harbour\include /nobj source\MSCDataBase.c
> Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
> source\MSCDataBase.c:
>  c:\winston\bcc55\BIN\bcc32 -X -g50 -j1 -tWM -d -OS -O2 -5 -c -w-8075
> -DHB_API_MACROS -DHB_STACK_MACROS -DHB_GUI -DHB_FM_STATISTICS_OFF
> -DHB_OS_WIN_32_USED -DHB_OS_WIN_32 -DHB_FM_STATISTICS_OFF
> -Iinclude;.\msinc;c:\Harbour\include /nobj source\MSCQuery.c
> Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
> source\MSCQuery.c:
> Warning W8012 source\MSCQuery.c 190: Comparing signed and unsigned
> values in function HB_FUN_MMSKIPPER
> Warning W8012 source\MSCQuery.c 252: Comparing signed and unsigned
> values in function HB_FUN_MMSKIP
> Warning W8012 source\MSCQuery.c 297: Comparing signed and unsigned
> values in function HB_FUN_MMREADROWNUM
>  c:\winston\bcc55\BIN\bcc32 -X -g50 -j1 -tWM -d -OS -O2 -5 -c -w-8075
> -DHB_API_MACROS -DHB_STACK_MACROS -DHB_GUI -DHB_FM_STATISTICS_OFF
> -DHB_OS_WIN_32_USED -DHB_OS_WIN_32 -DHB_FM_STATISTICS_OFF
> -Iinclude;.\msinc;c:\Harbour\include /nobj source\MSCTable.c
> Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
> source\MSCTable.c:
>  c:\winston\bcc55\BIN\bcc32 -X -g50 -j1 -tWM -d -OS -O2 -5 -c -w-8075
> -DHB_API_MACROS -DHB_STACK_MACROS -DHB_GUI -DHB_FM_STATISTICS_OFF
> -DHB_OS_WIN_32_USED -DHB_OS_WIN_32 -DHB_FM_STATISTICS_OFF
> -Iinclude;.\msinc;c:\Harbour\include /nobj source\MSCCursor.c
> Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
> source\MSCCursor.c:
> Warning W8060 source\MSCCursor.c 29: Possibly incorrect assignment in
> function HB_FUN_MMAFILLRESULT
>  c:\winston\bcc55\BIN\bcc32 -X -g50 -j1 -tWM -d -OS -O2 -5 -c -w-8075
> -DHB_API_MACROS -DHB_STACK_MACROS -DHB_GUI -DHB_FM_STATISTICS_OFF
> -DHB_OS_WIN_32_USED -DHB_OS_WIN_32 -DHB_FM_STATISTICS_OFF
> -Iinclude;.\msinc;c:\Harbour\include /nobj source\MSCUtil.c
> Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
> source\MSCUtil.c:
>  c:\Harbour\bin\harbour source\MSError.prg /p /m /q /w /es2 /n
> /i.\include;c:\Harbour\include;source; -oobj\MSError
> Harbour Compiler Alpha (CVS 2006-06-16 01:30)
> Copyright 1999-2006, http://www.harbour-project.org/
> Harbour MiniGUI Extend Distribution v.1.2
>  c:\winston\bcc55\BIN\bcc32 -X -g50 -j1 -tWM -d -OS -O2 -5 -c -w-8075
> -DHB_API_MACROS -DHB_STACK_MACROS -DHB_GUI -DHB_FM_STATISTICS_OFF
> -DHB_OS_WIN_32_USED -DHB_OS_WIN_32 -DHB_FM_STATISTICS_OFF
> -Iinclude;.\msinc;c:\Harbour\include /nobj obj\MSError.c
> Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
> obj\MSError.c:
>  c:\Harbour\bin\harbour source\MSUtil.prg /p /m /q /w /es2 /n
> /i.\include;c:\Harbour\include;source; -oobj\MSUtil
> Harbour Compiler Alpha (CVS 2006-06-16 01:30)
> Copyright 1999-2006, http://www.harbour-project.org/
> Harbour MiniGUI Extend Distribution v.1.2
>  c:\winston\bcc55\BIN\bcc32 -X -g50 -j1 -tWM -d -OS -O2 -5 -c -w-8075
> -DHB_API_MACROS -DHB_STACK_MACROS -DHB_GUI -DHB_FM_STATISTICS_OFF
> -DHB_OS_WIN_32_USED -DHB_OS_WIN_32 -DHB_FM_STATISTICS_OFF
> -Iinclude;.\msinc;c:\Harbour\include /nobj obj\MSUtil.c
> Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
> obj\MSUtil.c:
>  c:\Harbour\bin\harbour source\MSStatement.prg /p /m /q /w /es2 /n
> /i.\include;c:\Harbour\include;source; -oobj\MSStatement
> Harbour Compiler Alpha (CVS 2006-06-16 01:30)
> Copyright 1999-2006, http://www.harbour-project.org/
> Harbour MiniGUI Extend Distribution v.1.2
>  c:\winston\bcc55\BIN\bcc32 -X -g50 -j1 -tWM -d -OS -O2 -5 -c -w-8075
> -DHB_API_MACROS -DHB_STACK_MACROS -DHB_GUI -DHB_FM_STATISTICS_OFF
> -DHB_OS_WIN_32_USED -DHB_OS_WIN_32 -DHB_FM_STATISTICS_OFF
> -Iinclude;.\msinc;c:\Harbour\include /nobj obj\MSStatement.c
> Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
> obj\MSStatement.c:
>  c:\Harbour\bin\harbour source\MSConnect.prg /p /m /q /w /es2 /n
> /i.\include;c:\Harbour\include;source; -oobj\MSConnect
> Harbour Compiler Alpha (CVS 2006-06-16 01:30)
> Copyright 1999-2006, http://www.harbour-project.org/
> Harbour MiniGUI Extend Distribution v.1.2
>  c:\winston\bcc55\BIN\bcc32 -X -g50 -j1 -tWM -d -OS -O2 -5 -c -w-8075
> -DHB_API_MACROS -DHB_STACK_MACROS -DHB_GUI -DHB_FM_STATISTICS_OFF
> -DHB_OS_WIN_32_USED -DHB_OS_WIN_32 -DHB_FM_STATISTICS_OFF
> -Iinclude;.\msinc;c:\Harbour\include /nobj obj\MSConnect.c
> Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
> obj\MSConnect.c:
>  c:\Harbour\bin\harbour source\MSDataBase.prg /p /m /q /w /es2 /n
> /i.\include;c:\Harbour\include;source; -oobj\MSDataBase
> Harbour Compiler Alpha (CVS 2006-06-16 01:30)
> Copyright 1999-2006, http://www.harbour-project.org/
> Harbour MiniGUI Extend Distribution v.1.2
>  c:\winston\bcc55\BIN\bcc32 -X -g50 -j1 -tWM -d -OS -O2 -5 -c -w-8075
> -DHB_API_MACROS -DHB_STACK_MACROS -DHB_GUI -DHB_FM_STATISTICS_OFF
> -DHB_OS_WIN_32_USED -DHB_OS_WIN_32 -DHB_FM_STATISTICS_OFF
> -Iinclude;.\msinc;c:\Harbour\include /nobj obj\MSDataBase.c
> Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
> obj\MSDataBase.c:
>  c:\Harbour\bin\harbour source\MSCommand.prg /p /m /q /w /es2 /n
> /i.\include;c:\Harbour\include;source; -oobj\MSCommand
> Harbour Compiler Alpha (CVS 2006-06-16 01:30)
> Copyright 1999-2006, http://www.harbour-project.org/
> Harbour MiniGUI Extend Distribution v.1.2
>  c:\winston\bcc55\BIN\bcc32 -X -g50 -j1 -tWM -d -OS -O2 -5 -c -w-8075
> -DHB_API_MACROS -DHB_STACK_MACROS -DHB_GUI -DHB_FM_STATISTICS_OFF
> -DHB_OS_WIN_32_USED -DHB_OS_WIN_32 -DHB_FM_STATISTICS_OFF
> -Iinclude;.\msinc;c:\Harbour\include /nobj obj\MSCommand.c
> Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
> obj\MSCommand.c:
>  c:\Harbour\bin\harbour source\MSQuery.prg /p /m /q /w /es2 /n
> /i.\include;c:\Harbour\include;source; -oobj\MSQuery
> Harbour Compiler Alpha (CVS 2006-06-16 01:30)
> Copyright 1999-2006, http://www.harbour-project.org/
> Harbour MiniGUI Extend Distribution v.1.2
>  c:\winston\bcc55\BIN\bcc32 -X -g50 -j1 -tWM -d -OS -O2 -5 -c -w-8075
> -DHB_API_MACROS -DHB_STACK_MACROS -DHB_GUI -DHB_FM_STATISTICS_OFF
> -DHB_OS_WIN_32_USED -DHB_OS_WIN_32 -DHB_FM_STATISTICS_OFF
> -Iinclude;.\msinc;c:\Harbour\include /nobj obj\MSQuery.c
> Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
> obj\MSQuery.c:
>  c:\Harbour\bin\harbour source\MSTable.prg /p /m /q /w /es2 /n
> /i.\include;c:\Harbour\include;source; -oobj\MSTable
> Harbour Compiler Alpha (CVS 2006-06-16 01:30)
> Copyright 1999-2006, http://www.harbour-project.org/
> Harbour MiniGUI Extend Distribution v.1.2
>  c:\winston\bcc55\BIN\bcc32 -X -g50 -j1 -tWM -d -OS -O2 -5 -c -w-8075
> -DHB_API_MACROS -DHB_STACK_MACROS -DHB_GUI -DHB_FM_STATISTICS_OFF
> -DHB_OS_WIN_32_USED -DHB_OS_WIN_32 -DHB_FM_STATISTICS_OFF
> -Iinclude;.\msinc;c:\Harbour\include /nobj obj\MSTable.c
> Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
> obj\MSTable.c:
>  c:\Harbour\bin\harbour source\MSField.prg /p /m /q /w /es2 /n
> /i.\include;c:\Harbour\include;source; -oobj\MSField
> Harbour Compiler Alpha (CVS 2006-06-16 01:30)
> Copyright 1999-2006, http://www.harbour-project.org/
> Harbour MiniGUI Extend Distribution v.1.2
>  c:\winston\bcc55\BIN\bcc32 -X -g50 -j1 -tWM -d -OS -O2 -5 -c -w-8075
> -DHB_API_MACROS -DHB_STACK_MACROS -DHB_GUI -DHB_FM_STATISTICS_OFF
> -DHB_OS_WIN_32_USED -DHB_OS_WIN_32 -DHB_FM_STATISTICS_OFF
> -Iinclude;.\msinc;c:\Harbour\include /nobj obj\MSField.c
> Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
> obj\MSField.c:
>  c:\Harbour\bin\harbour source\MSCursor.prg /p /m /q /w /es2 /n
> /i.\include;c:\Harbour\include;source; -oobj\MSCursor
> Harbour Compiler Alpha (CVS 2006-06-16 01:30)
> Copyright 1999-2006, http://www.harbour-project.org/
> Harbour MiniGUI Extend Distribution v.1.2
>  c:\winston\bcc55\BIN\bcc32 -X -g50 -j1 -tWM -d -OS -O2 -5 -c -w-8075
> -DHB_API_MACROS -DHB_STACK_MACROS -DHB_GUI -DHB_FM_STATISTICS_OFF
> -DHB_OS_WIN_32_USED -DHB_OS_WIN_32 -DHB_FM_STATISTICS_OFF
> -Iinclude;.\msinc;c:\Harbour\include /nobj obj\MSCursor.c
> Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
> obj\MSCursor.c:
>  c:\Harbour\bin\harbour source\MSACursor.prg /p /m /q /w /es2 /n
> /i.\include;c:\Harbour\include;source; -oobj\MSACursor
> Harbour Compiler Alpha (CVS 2006-06-16 01:30)
> Copyright 1999-2006, http://www.harbour-project.org/
> Harbour MiniGUI Extend Distribution v.1.2
>  c:\winston\bcc55\BIN\bcc32 -X -g50 -j1 -tWM -d -OS -O2 -5 -c -w-8075
> -DHB_API_MACROS -DHB_STACK_MACROS -DHB_GUI -DHB_FM_STATISTICS_OFF
> -DHB_OS_WIN_32_USED -DHB_OS_WIN_32 -DHB_FM_STATISTICS_OFF
> -Iinclude;.\msinc;c:\Harbour\include /nobj obj\MSACursor.c
> Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
> obj\MSACursor.c:
>  c:\Harbour\bin\harbour source\MSDBFCursor.prg /p /m /q /w /es2 /n
> /i.\include;c:\Harbour\include;source; -oobj\MSDBFCursor
> Harbour Compiler Alpha (CVS 2006-06-16 01:30)
> Copyright 1999-2006, http://www.harbour-project.org/
> Harbour MiniGUI Extend Distribution v.1.2
>  c:\winston\bcc55\BIN\bcc32 -X -g50 -j1 -tWM -d -OS -O2 -5 -c -w-8075
> -DHB_API_MACROS -DHB_STACK_MACROS -DHB_GUI -DHB_FM_STATISTICS_OFF
> -DHB_OS_WIN_32_USED -DHB_OS_WIN_32 -DHB_FM_STATISTICS_OFF
> -Iinclude;.\msinc;c:\Harbour\include /nobj obj\MSDBFCursor.c
> Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
> obj\MSDBFCursor.c:
>  c:\Harbour\bin\harbour source\MSGrid.prg /p /m /q /w /es2 /n
> /i.\include;c:\Harbour\include;source; -oobj\MSGrid
> Harbour Compiler Alpha (CVS 2006-06-16 01:30)
> Copyright 1999-2006, http://www.harbour-project.org/
> Harbour MiniGUI Extend Distribution v.1.2
>  c:\winston\bcc55\BIN\bcc32 -X -g50 -j1 -tWM -d -OS -O2 -5 -c -w-8075
> -DHB_API_MACROS -DHB_STACK_MACROS -DHB_GUI -DHB_FM_STATISTICS_OFF
> -DHB_OS_WIN_32_USED -DHB_OS_WIN_32 -DHB_FM_STATISTICS_OFF
> -Iinclude;.\msinc;c:\Harbour\include /nobj obj\MSGrid.c
> Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
> obj\MSGrid.c:
>  c:\winston\bcc55\BIN\TLib lib\Eagle1.lib @MAKE0000.@@@
> TLIB 4.5 Copyright (c) 1987, 1999 Inprise Corporation
> -+obj\Eagle1.obj &
> -+obj\MSCMyStruct.obj &
> -+obj\MSCTypes.obj &
> -+obj\MSCConnect.obj &
> -+obj\MSCError.obj &
> -+obj\MSCCommand.obj &
> -+obj\MSCDataBase.obj &
> -+obj\MSCQuery.obj &
> -+obj\MSCTable.obj &
> -+obj\MSCCursor.obj &
> -+obj\MSCUtil.obj &
> -+obj\MSError.obj &
> -+obj\MSUtil.obj &
> -+obj\MSStatement.obj &
> -+obj\MSConnect.obj &
> -+obj\MSDataBase.obj &
> -+obj\MSCommand.obj &
> -+obj\MSQuery.obj &
> -+obj\MSTable.obj &
> -+obj\MSField.obj &
> -+obj\MSCursor.obj &
> -+obj\MSACursor.obj &
> -+obj\MSDBFCursor.obj &
> -+obj\MSGrid.obj &
> -+
> Warning: 'Eagle1' not found in library
> Warning: 'MSCMyStruct' not found in library
> Warning: 'MSCTypes' not found in library
> Warning: 'MSCConnect' not found in library
> Warning: 'MSCError' not found in library
> Warning: 'MSCCommand' not found in library
> Warning: 'MSCDataBase' not found in library
> Warning: 'MSCQuery' not found in library
> Warning: 'MSCTable' not found in library
> Warning: 'MSCCursor' not found in library
> Warning: 'MSCUtil' not found in library
> Warning: 'MSError' not found in library
> Warning: 'MSUtil' not found in library
> Warning: 'MSStatement' not found in library
> Warning: 'MSConnect' not found in library
> Warning: 'MSDataBase' not found in library
> Warning: 'MSCommand' not found in library
> Warning: 'MSQuery' not found in library
> Warning: 'MSTable' not found in library
> Warning: 'MSField' not found in library
> Warning: 'MSCursor' not found in library
> Warning: 'MSACursor' not found in library
> Warning: 'MSDBFCursor' not found in library
> Warning: 'MSGrid' not found in library
>  c:\winston\bcc55\BIN\bcc32 -X -g50 -j1 -tWM -d -OS -O2 -5 -c -w-8075
> -DHB_API_MACROS -DHB_STACK_MACROS -DHB_GUI -DHB_FM_STATISTICS_OFF
> -DHB_OS_WIN_32_USED -DHB_OS_WIN_32 -DHB_FM_STATISTICS_OFF
> -Iinclude;.\msinc;c:\Harbour\include /nobj source\Debug.c
> Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
> source\Debug.c:
> Error E2288 source\Debug.c 124: Pointer to structure required on left
> side of -> or ->* in function MyGPFError
> Error E2228 source\Debug.c 124: Too many error or warning messages in
> function MyGPFError
> *** 2 errors in Compile ***
> ** error 1 ** deleting obj\Debug.obj
>
> ------------------------------------------------------------------------
>
> LLama Gratis a cualquier PC del Mundo.
> Llamadas a fijos y móviles desde 1 céntimo por minuto.
> http://es.voice.yahoo.com
> <http://us.rd.yahoo.com/mail/es/tagline/messenger/*http://es.voice.yahoo.com/>
>
>
> __________ Información de NOD32, revisión 1.1612 (20060621) __________
>
> Este mensaje ha sido analizado con NOD32 antivirus system
> http://www.nod32.com

Qué bueno!!!

William Morales - INCOS escribió:
> Saludos.
>
> Pasando este link http://oskar.sytes.net para que lo visiten y se
> registren.
>
> Contiene en este momento dos nuevas clases para su uso.
>
> TTBar
> TOpenOffice
>
> Espero lo disfruten
>
> William Morales
>
>
> __________ Información de NOD32, revisión 1.1626 (20060626) __________
>
> Este mensaje ha sido analizado con NOD32 antivirus system
> http://www.nod32.com

Espero que te valga lo que te contesté en el foro ;-)


Ing. Mario R. González escribió:
> http://eagle1.forumup.es/viewtopic.php?t=25&mforum=eagle1
>
> Saludos
> --
> ------------------------------------------------------------------------
>
> Ing. Mario R. González
> Movil. 54 3722 648570
> Part..  (03722) 43 7558
> Lab.   (03722) 42 0076 Int 137
> correo-e 1: *mrgonzalez_arroba_gigared.com*
>               2: mgonzalez_arroba_ing.unne.edu.ar
>
>               3: mario.r.gonzalez_arroba_gmail.com
>
>
>
> Resistencia "Ciudad de las Esculturas"
>
> Chaco - Argentina
>
>
>
> __________ Información de NOD32, revisión 1.1654 (20060711) __________
>
> Este mensaje ha sido analizado con NOD32 antivirus system
> http://www.nod32.com

Gabriel están a la venta
Condor1 v1.00 y Eagle v3.03
Pronto estará la versión 5.00 de Eagle1
Saludos

Gabriel Ornelas escribió:
> Pues eso.. ya estan liberadas las ultimas versiones de eagle y condor ?
> Gabo
>
>
>
>
>
>
> __________ Información de NOD32, revisión 1.1617 (20060623) __________
>
> Este mensaje ha sido analizado con NOD32 antivirus system
> http://www.nod32.com

Has mirado los ejemplos 16 y 17?

Mario González escribió:
> El siguiente código uso para crear un Browse desde el que pretendo
> realizar Agregar/Editar mediante el ::DlgABM( lAgrega ).
> Nada de ello puede hacer, que es lo que está mal?; o no es este una
> procedimiento, de mi parte, correcto?
>
> gracias, Saludos
>
> [code]
>
//----------------------------------------------------------------------------//
> static procedure BrwArray()
> local oRut:= TMyRutinas():New()
>
>    // oCur := TMyACursor( oTb:cName ):New( oTb )   // Sin datafields
>    oCur := TMSACursor():New( oTb ) // Con datafields
>    if !oCur:Open()
>       ? "sin éxito"
>    end
>    oCur:GoTop()
>
>    DEFINE WINDOW oWnd TITLE "Un ABM..."
>
>    // Browse (Utilizo el de Checcarelli)
>    @2,0  LISTBOX  oBrw ;
>          FIELDS   ""    ;
>          HEADER   "Nombre", "Correo", "Localidad", "Provincia",
> "Banco", "Fe_Pago", "Importe", "Pagado" ;
>          COLSIZES     110 ,     150 ,        150 ,         55 ,     90
> ,       55 ,       60 ,      35  ;
>          SIZE     100,100 ;
>          OF oWnd
>
>          oBrw:bLine:= {|nAt| oCur:xLoad()    , ;
>                              { oCur:Nombre   , ;
>                                oCur:Correo_e , ;
>                                oCur:Localidad, ;
>                                oCur:Provincia, ;
>                                oCur:Banco    , ;
>                                oCur:Fecha    , ;
>                                oCur:Importe  , ;
>                                oCur:Paga2 } }
>
>    oBrw:aJustify := { 0,0,0,0,0,2,1,2 }
>    MySetBrowse( oBrw, oCur )
>
>    // Evaluaciones
>    oBrw:bKeydown:= {|nK| if( nK==VK_INSERT, oRut:DlgABM( TRUE  ), ;
>                          if( nK==VK_RETURN, oRut:DlgABM( FALSE ), )) }
>
>    ACTIVATE WINDOW oWnd ON INIT ( oWnd:oClient:= oBrw, oWnd:Center() )
> // Fin
>
>
//----------------------------------------------------------------------------//
> // Funcion para liberar y destruir objetos Eagle1
> static function FreeFromArray( a )
>
>       local n := len( a )
>       local i := 0
>
>       FOR i := n TO 1 STEP -1  // Liberamos en orden inverso a la creacion
>             a[ i ]:Free()
>       NEXT
>
> return( 1 )
>
>
//============================================================================//
> //                              C L A S E
>         //
>
//============================================================================//
> CLASS TMyRutinas
>    DATA   oaDatos       AS ARRAY
>    METHOD New()         INLINE   Self
>    METHOD DlgABM()
>
> ENDCLASS
>
>
//----------------------------------------------------------------------------//
> // Dialogo ABM
> METHOD DlgABM( lAgrega ) CLASS TMyRutinas
> local oDlg, ;
>       oSay
>
>
>    if( lAgrega, oCur:xBlank(), oCur:xLoad() )
>
>    DEFINE DIALOG oDlg RESOURCE "get_ABM"
>
>    REDEFINE SAY oSay VAR oCur:Id_T1 ID 10  OF oDlg
>    REDEFINE GET      oCur:Nombre    ID 100 OF oDlg
>    REDEFINE GET      oCur:Correo_e  ID 102 OF oDlg
>    REDEFINE GET      oCur:Localidad ID 104 OF oDlg
>    REDEFINE GET      oCur:Provincia ID 106 OF oDlg
>    REDEFINE GET      oCur:Banco     ID 108 OF oDlg
>    REDEFINE GET      oCur:Fecha     ID 110 OF oDlg
>    REDEFINE GET      oCur:Importe   ID 112 OF oDlg
>    REDEFINE COMBOBOX oCur:Paga2     ID 114 OF oDlg
>
>    REDEFINE BUTTON ID 500 OF oDlg ;
>       ACTION  if( lAgrega, oCur:Insert(), oCur:Update() ) ), ;
>               oDlg:End(), oBrw:Refresh()
>    REDEFINE BUTTON ID 510 OF oDlg ;
>       ACTION oDlg:End()
>
>    ACTIVATE DIALOG oDlg CENTER
>
> return( nil )
> [/code]
>
>
>
>
>
>
> __________ Información de NOD32, revisión 1.1612 (20060621) __________
>
> Este mensaje ha sido analizado con NOD32 antivirus system
> http://www.nod32.com

Pues eso.. ya estan liberadas las ultimas versiones de eagle y condor ?
Gabo

El siguiente código uso para crear un Browse desde el que pretendo
realizar Agregar/Editar mediante el ::DlgABM( lAgrega ).
Nada de ello puede hacer, que es lo que está mal?; o no es este una
procedimiento, de mi parte, correcto?

gracias, Saludos

[code]
//----------------------------------------------------------------------------//
static procedure BrwArray()
local oRut:= TMyRutinas():New()

    // oCur := TMyACursor( oTb:cName ):New( oTb )   // Sin datafields
    oCur := TMSACursor():New( oTb ) // Con datafields
    if !oCur:Open()
       ? "sin éxito"
    end
    oCur:GoTop()

    DEFINE WINDOW oWnd TITLE "Un ABM..."

    // Browse (Utilizo el de Checcarelli)
    @2,0  LISTBOX  oBrw ;
          FIELDS   ""    ;
          HEADER   "Nombre", "Correo", "Localidad", "Provincia",
"Banco", "Fe_Pago", "Importe", "Pagado" ;
          COLSIZES     110 ,     150 ,        150 ,         55 ,     90
,       55 ,       60 ,      35  ;
          SIZE     100,100 ;
          OF oWnd

          oBrw:bLine:= {|nAt| oCur:xLoad()    , ;
                              { oCur:Nombre   , ;
                                oCur:Correo_e , ;
                                oCur:Localidad, ;
                                oCur:Provincia, ;
                                oCur:Banco    , ;
                                oCur:Fecha    , ;
                                oCur:Importe  , ;
                                oCur:Paga2 } }

    oBrw:aJustify := { 0,0,0,0,0,2,1,2 }
    MySetBrowse( oBrw, oCur )

    // Evaluaciones
    oBrw:bKeydown:= {|nK| if( nK==VK_INSERT, oRut:DlgABM( TRUE  ), ;
                          if( nK==VK_RETURN, oRut:DlgABM( FALSE ), )) }

    ACTIVATE WINDOW oWnd ON INIT ( oWnd:oClient:= oBrw, oWnd:Center() )
// Fin

//----------------------------------------------------------------------------//
// Funcion para liberar y destruir objetos Eagle1
static function FreeFromArray( a )

	 local n := len( a )
	 local i := 0

	 FOR i := n TO 1 STEP -1  // Liberamos en orden inverso a la creacion
		 a[ i ]:Free()
	 NEXT

return( 1 )

//============================================================================//
//                              C L A S E
         //
//============================================================================//
CLASS TMyRutinas
    DATA   oaDatos       AS ARRAY
    METHOD New()         INLINE   Self
    METHOD DlgABM()

ENDCLASS

//----------------------------------------------------------------------------//
// Dialogo ABM
METHOD DlgABM( lAgrega ) CLASS TMyRutinas
local oDlg, ;
       oSay


    if( lAgrega, oCur:xBlank(), oCur:xLoad() )

    DEFINE DIALOG oDlg RESOURCE "get_ABM"

    REDEFINE SAY oSay VAR oCur:Id_T1 ID 10  OF oDlg
    REDEFINE GET      oCur:Nombre    ID 100 OF oDlg
    REDEFINE GET      oCur:Correo_e  ID 102 OF oDlg
    REDEFINE GET      oCur:Localidad ID 104 OF oDlg
    REDEFINE GET      oCur:Provincia ID 106 OF oDlg
    REDEFINE GET      oCur:Banco     ID 108 OF oDlg
    REDEFINE GET      oCur:Fecha     ID 110 OF oDlg
    REDEFINE GET      oCur:Importe   ID 112 OF oDlg
    REDEFINE COMBOBOX oCur:Paga2     ID 114 OF oDlg

    REDEFINE BUTTON ID 500 OF oDlg ;
       ACTION  if( lAgrega, oCur:Insert(), oCur:Update() ) ), ;
               oDlg:End(), oBrw:Refresh()
    REDEFINE BUTTON ID 510 OF oDlg ;
       ACTION oDlg:End()

    ACTIVATE DIALOG oDlg CENTER

return( nil )
[/code]

Hola  amigos

     Alguien me puede orientar como puedo mostrar imagen en una
etiqueta html que he guardado en un campo blob con eagle ? estoy
utilizando asp y no hay forma de que funcione.


Un saludo y gracias desde ya

  Gabri

Por fin lo que todos echabamos de menos ya esposible gracias a MySQL
AB y www.vespito.com podeis acceder a este manual OFICIAL en este link:

http://dev.mysql.com/doc/#spanish-5.0

Saludos y a aprender ;-)

Mario:

 

         Eso es exactamente lo que hago yo, poner un bitmap que va cambiando los colores del semaforo, al final del intento de conexion queda en verde si se conecta y en rojo si no hay conexion, aparte de que hay un say que dice conectado o no conectado. En el preciso momento en que se realiza la conexion la "animacion" del semaforo deja de funcionar, pero es apenas un segundo, dos a lo sumo, la verdad que nunca le di mucha importancia a ese segundo, por ahi se podria poner el semaforo en amarillo justo antes de llamar a la funcion de conexion o poner un sysrefresh. Este es el codigo que utilizo:

 

Function LOGIN()

 

   Local RET := .F.,R,;
         FIN := .F., REP , CONT, i, nTries:=1, cPaso:=.T.
   Local oDlg,wTipo,oCodigo,oPass,oBtnAce,oBtnCan, OK:=.F., cRetor:=.F.,wPass:=spac(10),oBmp,oIco
  Local oCombo1,aHost:={cHost},oFont1,cEstado:="",oEstado,oTimer,oConectar,oCerrar

 

  static nFrame := 1

 

   PUBLIC WUOFF,XNRO, WUSER:=0
   NETUSE("PARAM", .F. )

      SELECT 2
   NetUseB( WPATH + "\LOGS", "XLOGS",.F.,.T. )
      set order to tag "XLOGS"
      XLogs->( dbgotop() )

 

      SELECT 1
   NetUseB( WPATH + "\USERS", "XUSERS",.F.,.T. )
   DBSETORDER(1)
      XUsers->( dbgotop() )

 

         DEFINE DIALOG oDlg RESOURCE "Acceso3"

 

     DEFINE FONT oFont1 NAME "Arial" SIZE 0, 20 BOLD

 

         REDEFINE GET oCodigo VAR wUser ID 101 OF oDlg PICTURE "99" VALID Valuser(wUser) UPDATE
*                              COLOR nRGB(15,15,15),nRGB(217,217,253) UPDATE

 

         REDEFINE GET oPass VAR wPass ID 12 OF oDlg PICTURE "@x" UPDATE
         REDEFINE BITMAP oBmp ID 21 RESOURCE "BITMAP_2" OF oDlg
         REDEFINE BUTTON oConectar ID 20 OF oDlg ACTION ( nTries++,oConectar:oJump:=oCerrar,oCerrar:SetFocus(),;
                                           Ret := IF(CRIPT(ALLTRIM(WPASS)) == ALLTRIM(XUSERS->UCLA),.T.,.F.),;
                                           If( nTries > 3 .or. Ret,IF(RET,DisplayIcons(oIco,.T.,oEstado,@cEstado,oTimer),oDlg:End()) ,;
                                           ( MsgAlert( "Clave Incorrecta !!!","Error" ),wPass:='          ',;
                                           oPass:SetFocus(),oPass:Refresh() ) ) )

 

     REDEFINE ICON oIco ID 22 RESOURCE "ISTOP1" OF oDlg TRANSPARENT
      REDEFINE COMBOBOX oCombo1 VAr cHost ITEMS aHost ID 301 OF oDlg
*             ON CHANGE (FunComboTipoIn(wAlias,wCombo,aOrden,oBrw),oSay:Refresh())
     REDEFINE SAY oEstado PROMPT cEstado ID 102 FONT oFont1 OF oDlg UPDATE
     REDEFINE BUTTON oCerrar ID 23 OF oDlg ACTION oDlg:End()

 

       DEFINE TIMER oTimer OF oWnd ;
          INTERVAL 80 ;
          ACTION IF(!cConectado,( nFrame := If( ++nFrame > 3, 1, nFrame ) , ;
                   IF(!cConectado,oIco:SetName( "ISTOP" + AllTrim( Str( int(nFrame) ) )),;
              oIco:SetName( "ISTOP3" ))),(oIco:SetName( "ISTOP3" ),cEstado:="Conectado !!!"))

 

         ACTIVATE DIALOG oDlg CENTERED ON INIT oTimer:Activate()

 

function DisplayIcons(oIco,conectar,oEstado,cEstado,oTimer)

 

   static nFrame := 1

 

  if conectar
   if ! cConectado
     cEstado:="Conectando..."
     oEstado:Refresh()
   else
     cEstado:="Conectado !!!"
    oEstado:Settext("Conectado !!!")
     oEstado:Refresh()
   endif
   CONECTA(@cEstado,oEstado,oTimer,oIco)
   SYSREFRESH()
  endif

 

return nil

Saludos,
Daniel Puente
Mar del Plata, Argentina
danielpuente@...
puenteda@...

----- Original Message -----

From: "Ing. Mario R. González"

To: eagle1@yahoogroups.com

Sent: Wednesday, June 14, 2006 9:16 AM

Subject: Re: [eagle1] Coneccion sin ODBC

Daniel:
veo que tenés un timer. Funciona mientras se realiza el porceso de conexión?. Yo lo probé y no. La idea era mostrar bipmaps, rojo-amarillo-verde, que prenden/apagan a intervalos mientras se intenta la conexión.

saludos

Fernando:

 

               Claro que se puede:

 

FUNCTION CONECTA(cEstado,oEstado,oTimer,oIco)

 

*Local cPassword:="p46ue8ten2" // para localhost
Local cPassword:="ugl6908viii"  // PARA sistemas-sic.com.ar

 

IF !cConectado
   // Creamos el objeto "connexion"
   oMySql := TMSConnect():New()

 

    // Desactiva el sistema automatico de gestion de errores
    // Si quita esta linea o pone el valor a .t. lo podra activar
*    oMySql:SetAutoError( .f. )

 

   // Nos conectamos al servidor
   if !oMySql:Connect( cHost, cUser, cPassword )
       MsgInfo( "No hay conexion con el servidor", "Operación Cancelada" )
     cEstado:=oemtoansi("Sin Conexi¢n")
     oEstado:Refresh()
    oTimer:Deactivate()
    oIco:SetName( "ISTOP1" )
    RELEASE TIMER oTimer
    SYSREFRESH()
       return( nil )
  else
    cConectado:=.T.
     cEstado:="Conectado !!!"
    oEstado:Settext("Conectado !!!")
    oIco:SetName( "ISTOP3" )
     oEstado:Refresh()
    oTimer:DeacTivate()
    RELEASE TIMER oTimer
    SYSREFRESH()
   endif
   if oMysql:ExistDB(cDbName)
    oDatabase:=TMsDataBase():New( oMySql, cDbName ) // Crea el objeto
      oDatabase:Use()    // Lo ponemos por defecto.
    SYSREFRESH()
   else
    MSGSTOP('No existe la base de datos '+cDbName+' ó el usuario '+cUser+CRLF+;
        'no posee privilegios de acceso a la base de datos'+CRLF+CRLF+;
        'Comuníquese con el Administrador de la base de datos','Error de acceso a la Base de Datos')
    cConectado:=.F.
    return nil
   endif
ELSE
  SYSREFRESH()
ENDIF

 

RETURN NIL

 

            Eso es usando eagle 3.0.

Saludos,

Daniel Puente

Mar del Plata, Argentina

----- Original Message -----

From: fernando_iviii

To: eagle1@yahoogroups.com

Sent: Tuesday, June 13, 2006 1:03 PM

Subject: [eagle1] Coneccion sin ODBC

Que tal, quisiera saber si eagle permite conectarse a MySQL sin ODBC, y
si fuera posible me facilitaran un ejemplo, de antemano , Gracias






__________ Información de NOD32 1.1543 (20060517) __________

Este mensaje ha sido analizado con NOD32 antivirus system
http://www.nod32.com

--

---

Ing. Mario R. González
Movil. 54 3722 648570
Part..  (03722) 43 7558
Lab.   (03722) 42 0076 Int 137
correo-e 1: mrgonzalez_arroba_gigared.com
              2: mgonzalez_arroba_ing.unne.edu.ar

              3: mario.r.gonzalez_arroba_gmail.com

             

Resistencia "Ciudad de las Esculturas"

Chaco - Argentina

__________ NOD32 1.1532 (20060511) Information __________

This message was checked by NOD32 antivirus system.
http://www.eset.com

----- Original Message -----

From: "Ing. Mario R. González"

To: eagle1@yahoogroups.com

Sent: Wednesday, June 14, 2006 9:16 AM

Subject: Re: [eagle1] Coneccion sin ODBC

Daniel:
veo que tenés un timer. Funciona mientras se realiza el porceso de conexión?. Yo lo probé y no. La idea era mostrar bipmaps, rojo-amarillo-verde, que prenden/apagan a intervalos mientras se intenta la conexión.

saludos

Fernando:

 

               Claro que se puede:

 

FUNCTION CONECTA(cEstado,oEstado,oTimer,oIco)

 

*Local cPassword:="p46ue8ten2" // para localhost
Local cPassword:="ugl6908viii"  // PARA sistemas-sic.com.ar

 

IF !cConectado
   // Creamos el objeto "connexion"
   oMySql := TMSConnect():New()

 

    // Desactiva el sistema automatico de gestion de errores
    // Si quita esta linea o pone el valor a .t. lo podra activar
*    oMySql:SetAutoError( .f. )

 

   // Nos conectamos al servidor
   if !oMySql:Connect( cHost, cUser, cPassword )
       MsgInfo( "No hay conexion con el servidor", "Operación Cancelada" )
     cEstado:=oemtoansi("Sin Conexi¢n")
     oEstado:Refresh()
    oTimer:Deactivate()
    oIco:SetName( "ISTOP1" )
    RELEASE TIMER oTimer
    SYSREFRESH()
       return( nil )
  else
    cConectado:=.T.
     cEstado:="Conectado !!!"
    oEstado:Settext("Conectado !!!")
    oIco:SetName( "ISTOP3" )
     oEstado:Refresh()
    oTimer:DeacTivate()
    RELEASE TIMER oTimer
    SYSREFRESH()
   endif
   if oMysql:ExistDB(cDbName)
    oDatabase:=TMsDataBase():New( oMySql, cDbName ) // Crea el objeto
      oDatabase:Use()    // Lo ponemos por defecto.
    SYSREFRESH()
   else
    MSGSTOP('No existe la base de datos '+cDbName+' ó el usuario '+cUser+CRLF+;
        'no posee privilegios de acceso a la base de datos'+CRLF+CRLF+;
        'Comuníquese con el Administrador de la base de datos','Error de acceso a la Base de Datos')
    cConectado:=.F.
    return nil
   endif
ELSE
  SYSREFRESH()
ENDIF

 

RETURN NIL

 

            Eso es usando eagle 3.0.

Saludos,

Daniel Puente

Mar del Plata, Argentina

----- Original Message -----

From: fernando_iviii

To: eagle1@yahoogroups.com

Sent: Tuesday, June 13, 2006 1:03 PM

Subject: [eagle1] Coneccion sin ODBC

Que tal, quisiera saber si eagle permite conectarse a MySQL sin ODBC, y
si fuera posible me facilitaran un ejemplo, de antemano , Gracias






__________ Información de NOD32 1.1543 (20060517) __________

Este mensaje ha sido analizado con NOD32 antivirus system
http://www.nod32.com

--

---

Ing. Mario R. González
Movil. 54 3722 648570
Part..  (03722) 43 7558
Lab.   (03722) 42 0076 Int 137
correo-e 1: mrgonzalez_arroba_gigared.com
              2: mgonzalez_arroba_ing.unne.edu.ar

              3: mario.r.gonzalez_arroba_gmail.com

             

Resistencia "Ciudad de las Esculturas"

Chaco - Argentina

__________ NOD32 1.1532 (20060511) Information __________

This message was checked by NOD32 antivirus system.
http://www.eset.com

   Hola amigos

   Como se podria hacer  un FieldPut con eagle ?   y que se haga un
resfresco de los datos tanto en el cliente como en el server.


  Un saludo y gracias desde ya

Gabri

Hola amigos

    Como se podria hacer  un FieldPut con eagle ?   y que se haga un
resfresco de los datos tanto en el cliente como en el server.


   Un saludo y gracias desde ya

  Gabri

Fernando:

 

               Claro que se puede:

 

FUNCTION CONECTA(cEstado,oEstado,oTimer,oIco)

 

*Local cPassword:="p46ue8ten2" // para localhost
Local cPassword:="ugl6908viii"  // PARA sistemas-sic.com.ar

 

IF !cConectado
   // Creamos el objeto "connexion"
   oMySql := TMSConnect():New()

 

    // Desactiva el sistema automatico de gestion de errores
    // Si quita esta linea o pone el valor a .t. lo podra activar
*    oMySql:SetAutoError( .f. )

 

   // Nos conectamos al servidor
   if !oMySql:Connect( cHost, cUser, cPassword )
       MsgInfo( "No hay conexion con el servidor", "Operación Cancelada" )
     cEstado:=oemtoansi("Sin Conexi¢n")
     oEstado:Refresh()
    oTimer:Deactivate()
    oIco:SetName( "ISTOP1" )
    RELEASE TIMER oTimer
    SYSREFRESH()
       return( nil )
  else
    cConectado:=.T.
     cEstado:="Conectado !!!"
    oEstado:Settext("Conectado !!!")
    oIco:SetName( "ISTOP3" )
     oEstado:Refresh()
    oTimer:DeacTivate()
    RELEASE TIMER oTimer
    SYSREFRESH()
   endif
   if oMysql:ExistDB(cDbName)
    oDatabase:=TMsDataBase():New( oMySql, cDbName ) // Crea el objeto
      oDatabase:Use()    // Lo ponemos por defecto.
    SYSREFRESH()
   else
    MSGSTOP('No existe la base de datos '+cDbName+' ó el usuario '+cUser+CRLF+;
        'no posee privilegios de acceso a la base de datos'+CRLF+CRLF+;
        'Comuníquese con el Administrador de la base de datos','Error de acceso a la Base de Datos')
    cConectado:=.F.
    return nil
   endif
ELSE
  SYSREFRESH()
ENDIF

 

RETURN NIL

 

            Eso es usando eagle 3.0.

Saludos,

Daniel Puente

Mar del Plata, Argentina

----- Original Message -----

From: fernando_iviii

To: eagle1@yahoogroups.com

Sent: Tuesday, June 13, 2006 1:03 PM

Subject: [eagle1] Coneccion sin ODBC

Que tal, quisiera saber si eagle permite conectarse a MySQL sin ODBC, y
si fuera posible me facilitaran un ejemplo, de antemano , Gracias






__________ Información de NOD32 1.1543 (20060517) __________

Este mensaje ha sido analizado con NOD32 antivirus system
http://www.nod32.com

Eagle1 se conecta al servidor Clinete/Servidor o Embebido directamente
sin ODBC ;-)
Para ODBC esta Condor1... y esa es otra historia...

fernando_iviii escribió:
> Que tal, quisiera saber si eagle permite conectarse a MySQL sin ODBC, y
> si fuera posible me facilitaran un ejemplo, de antemano , Gracias
>
>
>
>
>
>
> __________ Información de NOD32, revisión 1.1595 (20060612) __________
>
> Este mensaje ha sido analizado con NOD32 antivirus system
> http://www.nod32.com

Pues no te pierdas Eagle1 v5.00 :-)

jgabri66 escribió:
>
>
>
>
>     Hola Manu
>
>
>   He intentado hacerlo de todas las formas que me has dicho y nada
> no va  :(   solo funciona de esta forma
>
>   cQuery := "INSERT INTO `estado` (`estado`)  VALUES  "
>   cQuery += "('Pendiente'),"
>   cQuery += "('Facturar');"
>
>   Eagle es una maravilla, eres un maquina Manu :)
>
>   Un saludo y gracias desde ya
>
>   Gabri
>
>
>
>
>
>
> __________ Información de NOD32, revisión 1.1595 (20060612) __________
>
> Este mensaje ha sido analizado con NOD32 antivirus system
> http://www.nod32.com

----- Original Message -----

From: fernando_iviii

To: eagle1@yahoogroups.com

Sent: Tuesday, June 13, 2006 1:03 PM

Subject: [eagle1] Coneccion sin ODBC

Que tal, quisiera saber si eagle permite conectarse a MySQL sin ODBC, y
si fuera posible me facilitaran un ejemplo, de antemano , Gracias






__________ Información de NOD32 1.1543 (20060517) __________

Este mensaje ha sido analizado con NOD32 antivirus system
http://www.nod32.com

Que tal, quisiera saber si eagle permite conectarse a MySQL sin ODBC, y
si fuera posible me facilitaran un ejemplo, de antemano , Gracias

Hola,

Este mensaje sirve para notificarle que se ha cargado
un archivo a la sección Archivos del grupo eagle1.

   Archivo     : /Ejemplos "oficiales"/Samples.rar
   Responsable : loloexpo <manuexposito@...>
   Descripción : T utores de Eagle1 v3.03

Puede acceder al archivo en la dirección

http://es.groups.yahoo.com/group/eagle1/files/Ejemplos%20%22oficiales%22/Samples\
.rar

Para más información acerca de cómo compartir archivos con su grupo,
consulte nuestra sección de ayuda en

http://help.yahoo.com/help/es/groups/files

Atentamente,

loloexpo <manuexposito@...>

Hola Manu


   He intentado hacerlo de todas las formas que me has dicho y nada
no va  :(   solo funciona de esta forma

   cQuery := "INSERT INTO `estado` (`estado`)  VALUES  "
   cQuery += "('Pendiente'),"
   cQuery += "('Facturar');"

   Eagle es una maravilla, eres un maquina Manu :)

   Un saludo y gracias desde ya

   Gabri

Ha funcionado con lo último que te dije?

--- En eagle1@yahoogroups.com, "jgabri66" <jgabri@t...> escribió:
>
>
>
>
>
>
>     Hola Manu
>
>      No funciona me da el mismo error.
>
>      Como llevas el eagle 5 ?
>
>
>      Un saludo y gracias desde ya
>
>     Gabri
>

Acabo de poner los ejemplos tutor para que los descargues...

Si aún así no te sale, dímelo e intentamos resolver los problemas ;-)

Saludos

--- En eagle1@yahoogroups.com, "oliveiros.mendes" <oliveiros.jr@u...>
escribió:
>
> Olá manu,
>
> Segue abaixo um exemplo simples de inclusão e alteração de registro,
> estou usando a tsbrowse:
>
> #Include "FiveWin.Ch"
> #include "vMenu.ch"
> #include "TSBrowse.Ch"
> #Include "BtnGet.Ch"
> #include "DtPicker.Ch"
> #include "TSButton.Ch"
> #include "xMsgBox.Ch"
>
> *--------------------------------------------------------------------
> ---------*
> Function Estrutura()
>   Local oDlg, oMenu, oBrw, oConexao, oBanco_Dados, oTabela
>   Local ahBmp:= { LoadBitmap( GetResources(), "ATIVO" ), ;
>                   LoadBitmap( GetResources(), "INATIVO" ) }
>
>   CursorWait()
>
>   // Iniciando objeto de conexão
>   *------------------------------------------------------------------
> ---------*
>   oConexao := TMSConnect():New()
>
>   oConexao:SetAutoError( .F. )
>
>   If !oConexao:Connect( cServidor_Conexao, cUsuario_Conexao, ;
>                        cSenha_Conexao, , cPorta_Conexao )
>     xMsgBox( "Não foi possível conexão com o servidor.",
> cNome_Reduzido_Sistema, ;
>              MSG_STOP,, lSom_Mensagens )
>     oConexao:Free(); Return NIL
>   EndIf
>
>   // Iniciando objeto banco de dados
>   *------------------------------------------------------------------
> ---------*
>   If oConexao:ExistDB( cBanco_Dados )
>      oBanco_Dados := TMSDataBase():New( oConexao, cBanco_Dados, .T. )
>
>      If !oBanco_Dados:lOpen
>         xMsgBox( "O banco de dados: " + ;
>                  AllTrim( cBanco_Dados ) + " não está disponível.",
> cNome_Reduzido_Sistema, ;
>                  MSG_STOP,, lSom_Mensagens )
>         oConexao:Free(); Return NIL
>      EndIf
>  Else
>      xMsgBox( "O banco de dados: " + ;
>                AllTrim( cBanco_Dados ) + " não está disponível.",
> cNome_Reduzido_Sistema, ;
>                MSG_STOP,, lSom_Mensagens )
>      oConexao:Free(); Return NIL
>  EndIf
>
>   // Iniciando objeto tabela
>   *------------------------------------------------------------------
> ---------*
>   If oBanco_Dados:ExistTable( "Estrutura"  )
>       oTabela := TMyTable():New( oBanco_Dados, "Estrutura" )
>   Else
>      xMsgBox( "A tabela 'Estrutura' não está disponível.",
> cNome_Reduzido_Sistema, ;
>                MSG_STOP,, lSom_Mensagens )
>      oConexao:Free(); Return NIL
>   Endif
>
>   oTabela:Open()
>
>   If oTabela:RecCount() == 0
>      xMsgBox( "A tabela 'estrutura' está vazia.",
> cNome_Reduzido_Sistema, ;
>                MSG_STOP,, lSom_Mensagens )
>      oBnco_Dados:Free(); oConexao:Free(); Return NIL
>   EndIf
>
>   oTabela:GoTop():Read()
>   oTabela:xLoad()
>
>   DEFINE DIALOG oDlg RESOURCE "ESTRUTURA1"
>   oDlg:lHelpIcon := .F.
>   oDlg:cTitle    := cNome_Reduzido_Sistema
>
>   REDEFINE VMENU oMenu ID 101 OF oDlg ;
>            COLOR CLR_BLACK, CLR_WHITE COLORBORDE RGB( 0, 0, 0 ) ;
>            FILLED SOLID ;
>            COLORSELECT 0, CLR_WHITE ;
>            FONT aFonte[2] COLOROVER CLR_WHITE, RGB( 111, 140, 222 ) ;
>            HEIGHT ITEM 20 BORDER
>
>   DEFINE TITLE OF oMenu                ;
>           CAPTION "Estrutura"          ;
>           IMAGE ""                     ;
>           HEIGHT 40                    ;
>           COLOR 0 , CLR_GRAY ,RGB(255,255,255), 20 ;
>           FONT aFonte[2] OPENCLOSE RADIOBTN 15    ;
>           ROUNDSQUARE VERTICALGRADIENT MIRROW
>
>   DEFINE VMENUITEM OF oMenu            ;
>          IMAGE "SETA"                  ;
>          CAPTION "Incluir"             ;
>          ACTION Edit_Estrutura(.T., oTabela )
>
>   DEFINE VMENUITEM OF oMenu            ;
>          IMAGE "SETA"                  ;
>          CAPTION "Alterar"             ;
>          ACTION Edit_Estrutura(.F., oTabela )
>
>   DEFINE VMENUITEM OF oMenu            ;
>          IMAGE "SETA"                  ;
>          CAPTION "Pesquisar..."        ;
>          ACTION ( MsgAlert() )
>
>   DEFINE VMENUITEM OF oMenu            ;
>          INSET 			                   ;
>          HEIGHT 3                      ;
>          COLOR 0
>
>   DEFINE VMENUITEM OF oMenu           ;
>          IMAGE "SETA"                 ;
>          CAPTION "Funções"            ;
>          ACTION MsgAlert()
>
>   DEFINE VMENUITEM OF oMenu            ;
>          INSET 			                   ;
>          HEIGHT 3                      ;
>          COLOR 0
>
>   DEFINE VMENUITEM OF oMenu           ;
>          IMAGE "SETA"                 ;
>          CAPTION "Relatório"          ;
>          ACTION MsgAlert()
>
>   DEFINE VMENUITEM OF oMenu            ;
>          INSET 			                   ;
>          HEIGHT 3                      ;
>          COLOR 0
>
>   DEFINE VMENUITEM OF oMenu            ;
>          IMAGE "SETA"                  ;
>          CAPTION "Sair"                ;
>          ACTION oDlg:End()
>
>   REDEFINE BROWSE oBrw COLORS CLR_BLACK, RGB(255,255,235) ;
>            ID 102 OF oDlg ON DBLCLICK( MsgAlert() ) ;
>            FONT aFonte[2] UPDATE
>
>   ADD COLUMN TO oBrw ;
>       HEADER "Código" ;
>       DATA {|| oTabela:xFieldGet( 1 ) } ;
>       SIZE 80 ;
>       FOOTER LTRIM( StrZero( oTabela:RecCount(), 6 ) ) ;
>       ALIGN DT_RIGHT,DT_CENTER,DT_CENTER ;
>       COLORS CLR_BLACK, CLR_WHITE
>
>   ADD COLUMN TO oBrw ;
>       HEADER "Descrição" ;
>       DATA {|| oTabela:xFieldGet( 3 ) } ;
>       SIZE 520 ;
>       ALIGN DT_LEFT,DT_CENTER,DT_CENTER ;
>       COLORS CLR_BLACK, CLR_WHITE
>
>   ADD COLUMN TO oBrw ;
>       HEADER "" ;
>       DATA { || If( oTabela:xFieldGet(5) = "S",  ahBmp[1], ahBmp
> [2] ) } ;
>       SIZE 25 BITMAP ;
>       ALIGN nMakeLong( DT_CENTER, DT_CENTER ),
> DT_CENTER,DT_CENTER ;
>       COLORS CLR_BLACK, CLR_WHITE ;
>       3DLOOK FALSE, FALSE, FALSE
>
>   oBrw:nHeightHead += 11
>   oBrw:nHeightCell += 8
>   oBrw:lUpperSeek  := .F.
>   oBrw:nLineStyle  := LINES_3D //LINES_ALL //LINES_NONE //
> LINES_VERT //LINES_DOTTED
>
>   // Cabeçalho
>   *------------------------------------------------------------------
> ---------*
>   oBrw:SetColor( { 4 }, { { RGB(255,255,255), CLR_GRAY }, { RGB
> (255,255,255), CLR_GRAY } } )
>
>   // Colunas
>   *------------------------------------------------------------------
> ---------*
>   oBrw:SetColor( { 2, 5, 6 }, { { || If( oBrw:nLen%2=0, CLR_01,
> CLR_02 ) }, ;
>                          CLR_WHITE, { CLR_WHITE, CLR_BLACK },
> CLR_BLACK } )
>
>   // Rodapé
>   *------------------------------------------------------------------
> ---------*
>   oBrw:SetColor( { 9, 10 }, { CLR_BLACK, { RGB(255,255,255),
> CLR_GRAY } } )
>
>   MySetBrowse( oBrw, oTabela )
>
>   ACTIVATE DIALOG oDlg CENTERED ;
>            ON PAINT FillSolidRect( hDC, { 0,1,650, 160 }, RGB( 111,
> 140, 222 ) )
>
>   oTabela:Free()
>   oBanco_Dados:Free()
>   oConexao:Free()
> Return NIL
> *--------------------------------------------------------------------
> ---------*
> Static Function Edit_Estrutura( lAppend, oTabela )
>   Local oDlg, aGet[3], aBtn[3]
>
>   Default lAppend := .F.
>
>   If lAppend
>      oTabela:xBlank()
>   Else
>      oTabela:xLoad()
>   EndIf
>
>   DEFINE DIALOG oDlg RESOURCE "ESTRUTURA2" FONT aFonte[2]
>   oDlg:lHelpIcon := .F.
>   oDlg:cTitle    := If( lAppend, "Inclusão", "Alteração" )
>
>   REDEFINE BTNGET aGet[1] VAR oTabela:Codigo_Literal ID 101 OF oDlg ;
> 	         PICTURE "@R 99.999.999" FONT aFonte[2] WHEN .F.
>
>   REDEFINE BTNGET aGet[2] VAR oTabela:Denominacao ID 102 OF oDlg ;
> 	         FONT aFonte[2]
>
>  REDEFINE BUTTON aBtn[1] ID 104 OF oDlg ;
> 	         PROMPT "&Salvar" ;
> 	         ACTION If( Save_Estrutura( oTabela, lAppend,
> aGet ), oDlg:End(), ) ;
> 		       FONT aFonte[1]
>
>   REDEFINE BUTTON aBtn[2] ID 105 OF oDlg ;
>            PROMPT "&Cancelar" ;
> 	         ACTION oDlg:End();
> 	         FONT aFonte[1] CANCEL
>
>   ACTIVATE DIALOG oDlg CENTERED
>
> Return NIL
> *--------------------------------------------------------------------
> ---------*
> Static Function Save_Estrutura( oTabela, lAppend, aGet )
>   If Empty( oTabela:Denominacao )
>      xMsgBox( "Informe o descrição da estrutura.",
> cNome_Reduzido_Sistema, ;
>               MSG_INFO,, lSom_Mensagens )
>      aGet[2]:SetFocus()
>      Return .F.
>   EndIf
>
>   If lAppend
>      oTabela:Insert()
>   Else
>      oTabela:UpDate()
>   EndIf
> Return .T.
> *--------------------------------------------------------------------
> ---------*
>
> 1) Não consigo inserir nada na tabela onde estou errando?
> 2) Vi em algumas mensagens você citando tutor 15A e 15B só tenho o
> tutor 15 seria possível enviar estes dois exemplos?
> 3) Como pretendo trabalhar em rede, como devo proceder para bloquear
> o registro e/ou arquivo? como libera-lo depois? É necessário com
> MySQL?
> 4) No exemplo acima se coloco oTabela:Refresh() ocorre um erro. O
> que pode ser?
> 5) Como criar um campo lógico com eagle1 via comando?
>
> Abraços,
>
> Junior
>
> Abraços
>

Olá manu,

Segue abaixo um exemplo simples de inclusão e alteração de registro,
estou usando a tsbrowse:

#Include "FiveWin.Ch"
#include "vMenu.ch"
#include "TSBrowse.Ch"
#Include "BtnGet.Ch"
#include "DtPicker.Ch"
#include "TSButton.Ch"
#include "xMsgBox.Ch"

*--------------------------------------------------------------------
---------*
Function Estrutura()
   Local oDlg, oMenu, oBrw, oConexao, oBanco_Dados, oTabela
   Local ahBmp:= { LoadBitmap( GetResources(), "ATIVO" ), ;
                   LoadBitmap( GetResources(), "INATIVO" ) }

   CursorWait()

   // Iniciando objeto de conexão
   *------------------------------------------------------------------
---------*
   oConexao := TMSConnect():New()

   oConexao:SetAutoError( .F. )

   If !oConexao:Connect( cServidor_Conexao, cUsuario_Conexao, ;
                        cSenha_Conexao, , cPorta_Conexao )
     xMsgBox( "Não foi possível conexão com o servidor.",
cNome_Reduzido_Sistema, ;
              MSG_STOP,, lSom_Mensagens )
     oConexao:Free(); Return NIL
   EndIf

   // Iniciando objeto banco de dados
   *------------------------------------------------------------------
---------*
   If oConexao:ExistDB( cBanco_Dados )
      oBanco_Dados := TMSDataBase():New( oConexao, cBanco_Dados, .T. )

      If !oBanco_Dados:lOpen
         xMsgBox( "O banco de dados: " + ;
                  AllTrim( cBanco_Dados ) + " não está disponível.",
cNome_Reduzido_Sistema, ;
                  MSG_STOP,, lSom_Mensagens )
         oConexao:Free(); Return NIL
      EndIf
	 Else
      xMsgBox( "O banco de dados: " + ;
                AllTrim( cBanco_Dados ) + " não está disponível.",
cNome_Reduzido_Sistema, ;
                MSG_STOP,, lSom_Mensagens )
      oConexao:Free(); Return NIL
	 EndIf

   // Iniciando objeto tabela
   *------------------------------------------------------------------
---------*
   If oBanco_Dados:ExistTable( "Estrutura"  )
       oTabela := TMyTable():New( oBanco_Dados, "Estrutura" )
   Else
      xMsgBox( "A tabela 'Estrutura' não está disponível.",
cNome_Reduzido_Sistema, ;
                MSG_STOP,, lSom_Mensagens )
      oConexao:Free(); Return NIL
   Endif

   oTabela:Open()

   If oTabela:RecCount() == 0
      xMsgBox( "A tabela 'estrutura' está vazia.",
cNome_Reduzido_Sistema, ;
                MSG_STOP,, lSom_Mensagens )
      oBnco_Dados:Free(); oConexao:Free(); Return NIL
   EndIf

   oTabela:GoTop():Read()
   oTabela:xLoad()

   DEFINE DIALOG oDlg RESOURCE "ESTRUTURA1"
   oDlg:lHelpIcon := .F.
   oDlg:cTitle    := cNome_Reduzido_Sistema

   REDEFINE VMENU oMenu ID 101 OF oDlg ;
            COLOR CLR_BLACK, CLR_WHITE COLORBORDE RGB( 0, 0, 0 ) ;
            FILLED SOLID ;
            COLORSELECT 0, CLR_WHITE ;
            FONT aFonte[2] COLOROVER CLR_WHITE, RGB( 111, 140, 222 ) ;
            HEIGHT ITEM 20 BORDER

   DEFINE TITLE OF oMenu                ;
           CAPTION "Estrutura"          ;
           IMAGE ""                     ;
           HEIGHT 40                    ;
           COLOR 0 , CLR_GRAY ,RGB(255,255,255), 20 ;
           FONT aFonte[2] OPENCLOSE RADIOBTN 15    ;
           ROUNDSQUARE VERTICALGRADIENT MIRROW

   DEFINE VMENUITEM OF oMenu            ;
          IMAGE "SETA"                  ;
          CAPTION "Incluir"             ;
          ACTION Edit_Estrutura(.T., oTabela )

   DEFINE VMENUITEM OF oMenu            ;
          IMAGE "SETA"                  ;
          CAPTION "Alterar"             ;
          ACTION Edit_Estrutura(.F., oTabela )

   DEFINE VMENUITEM OF oMenu            ;
          IMAGE "SETA"                  ;
          CAPTION "Pesquisar..."        ;
          ACTION ( MsgAlert() )

   DEFINE VMENUITEM OF oMenu            ;
          INSET 			                   ;
          HEIGHT 3                      ;
          COLOR 0

   DEFINE VMENUITEM OF oMenu           ;
          IMAGE "SETA"                 ;
          CAPTION "Funções"            ;
          ACTION MsgAlert()

   DEFINE VMENUITEM OF oMenu            ;
          INSET 			                   ;
          HEIGHT 3                      ;
          COLOR 0

   DEFINE VMENUITEM OF oMenu           ;
          IMAGE "SETA"                 ;
          CAPTION "Relatório"          ;
          ACTION MsgAlert()

   DEFINE VMENUITEM OF oMenu            ;
          INSET 			                   ;
          HEIGHT 3                      ;
          COLOR 0

   DEFINE VMENUITEM OF oMenu            ;
          IMAGE "SETA"                  ;
          CAPTION "Sair"                ;
          ACTION oDlg:End()

   REDEFINE BROWSE oBrw COLORS CLR_BLACK, RGB(255,255,235) ;
            ID 102 OF oDlg ON DBLCLICK( MsgAlert() ) ;
            FONT aFonte[2] UPDATE

   ADD COLUMN TO oBrw ;
       HEADER "Código" ;
       DATA {|| oTabela:xFieldGet( 1 ) } ;
       SIZE 80 ;
       FOOTER LTRIM( StrZero( oTabela:RecCount(), 6 ) ) ;
       ALIGN DT_RIGHT,DT_CENTER,DT_CENTER ;
       COLORS CLR_BLACK, CLR_WHITE

   ADD COLUMN TO oBrw ;
       HEADER "Descrição" ;
       DATA {|| oTabela:xFieldGet( 3 ) } ;
       SIZE 520 ;
       ALIGN DT_LEFT,DT_CENTER,DT_CENTER ;
       COLORS CLR_BLACK, CLR_WHITE

   ADD COLUMN TO oBrw ;
       HEADER "" ;
       DATA { || If( oTabela:xFieldGet(5) = "S",  ahBmp[1], ahBmp
[2] ) } ;
       SIZE 25 BITMAP ;
       ALIGN nMakeLong( DT_CENTER, DT_CENTER ),
DT_CENTER,DT_CENTER ;
       COLORS CLR_BLACK, CLR_WHITE ;
       3DLOOK FALSE, FALSE, FALSE

   oBrw:nHeightHead += 11
   oBrw:nHeightCell += 8
   oBrw:lUpperSeek  := .F.
   oBrw:nLineStyle  := LINES_3D //LINES_ALL //LINES_NONE //
LINES_VERT //LINES_DOTTED

   // Cabeçalho
   *------------------------------------------------------------------
---------*
   oBrw:SetColor( { 4 }, { { RGB(255,255,255), CLR_GRAY }, { RGB
(255,255,255), CLR_GRAY } } )

   // Colunas
   *------------------------------------------------------------------
---------*
   oBrw:SetColor( { 2, 5, 6 }, { { || If( oBrw:nLen%2=0, CLR_01,
CLR_02 ) }, ;
                          CLR_WHITE, { CLR_WHITE, CLR_BLACK },
CLR_BLACK } )

   // Rodapé
   *------------------------------------------------------------------
---------*
   oBrw:SetColor( { 9, 10 }, { CLR_BLACK, { RGB(255,255,255),
CLR_GRAY } } )

   MySetBrowse( oBrw, oTabela )

   ACTIVATE DIALOG oDlg CENTERED ;
            ON PAINT FillSolidRect( hDC, { 0,1,650, 160 }, RGB( 111,
140, 222 ) )

   oTabela:Free()
   oBanco_Dados:Free()
   oConexao:Free()
Return NIL
*--------------------------------------------------------------------
---------*
Static Function Edit_Estrutura( lAppend, oTabela )
   Local oDlg, aGet[3], aBtn[3]

   Default lAppend := .F.

   If lAppend
      oTabela:xBlank()
   Else
      oTabela:xLoad()
   EndIf

   DEFINE DIALOG oDlg RESOURCE "ESTRUTURA2" FONT aFonte[2]
   oDlg:lHelpIcon := .F.
   oDlg:cTitle    := If( lAppend, "Inclusão", "Alteração" )

   REDEFINE BTNGET aGet[1] VAR oTabela:Codigo_Literal ID 101 OF oDlg ;
	          PICTURE "@R 99.999.999" FONT aFonte[2] WHEN .F.

   REDEFINE BTNGET aGet[2] VAR oTabela:Denominacao ID 102 OF oDlg ;
	          FONT aFonte[2]

	 REDEFINE BUTTON aBtn[1] ID 104 OF oDlg ;
	          PROMPT "&Salvar" ;
	          ACTION If( Save_Estrutura( oTabela, lAppend,
aGet ), oDlg:End(), ) ;
		        FONT aFonte[1]

   REDEFINE BUTTON aBtn[2] ID 105 OF oDlg ;
            PROMPT "&Cancelar" ;
	          ACTION oDlg:End();
	          FONT aFonte[1] CANCEL

   ACTIVATE DIALOG oDlg CENTERED

Return NIL
*--------------------------------------------------------------------
---------*
Static Function Save_Estrutura( oTabela, lAppend, aGet )
   If Empty( oTabela:Denominacao )
      xMsgBox( "Informe o descrição da estrutura.",
cNome_Reduzido_Sistema, ;
               MSG_INFO,, lSom_Mensagens )
      aGet[2]:SetFocus()
      Return .F.
   EndIf

   If lAppend
      oTabela:Insert()
   Else
      oTabela:UpDate()
   EndIf
Return .T.
*--------------------------------------------------------------------
---------*

1) Não consigo inserir nada na tabela onde estou errando?
2) Vi em algumas mensagens você citando tutor 15A e 15B só tenho o
tutor 15 seria possível enviar estes dois exemplos?
3) Como pretendo trabalhar em rede, como devo proceder para bloquear
o registro e/ou arquivo? como libera-lo depois? É necessário com
MySQL?
4) No exemplo acima se coloco oTabela:Refresh() ocorre um erro. O
que pode ser?
5) Como criar um campo lógico com eagle1 via comando?

Abraços,

Junior

Abraços

Hola Junior

Esta usando un metodo erroneo, en vez de oDb:ExecSQL( cStmt ) tienes
que usar oDb:Execute( cStmt )

Por otro lado, queria decirte que si sabes la estructura de la tabla
mejor create una variable con el valor de la sentecia directamente:
cStmt := "CREATE TABLE miTabla ...."

if oDb:Execute( cStmt )
     MyMsg( "Se ejecuto sin problemas..." )
else
     MyMsg( "Error en la ejecucion" )
endif

Para relacionar tablas no hace falta tener un indice creado solo
tienes que hacer un SELECT con los datos que quieras de una y otra con
un WHERE que iguale la columna que este presente en las dos tablas:

SELECT t1.campo1, t1.campo2, t2.campo1, t2.campo9
    FROM tabla1 t1, tabla2 t2
WHERE t1.campo_c = t2.campo_c



Saludos


--- En eagle1@yahoogroups.com, "oliveiros.mendes" <oliveiros.jr@u...>
escribió:
>
> Olá Manú,
>
> Peguei seu exemplo colei no meu programa de testei. Não funcionou.
> Aproveito para te perguntar como seria para relacionar tabelas?
>
> vi um exemplo do carlos sincuir onde aparece a opção FOREIGN KEY(..)
> REFERENCES..
>
> abraços
>
> Junior
>

Olá Manú,

Peguei seu exemplo colei no meu programa de testei. Não funcionou.
Aproveito para te perguntar como seria para relacionar tabelas?

vi um exemplo do carlos sincuir onde aparece a opção FOREIGN KEY(..)
REFERENCES..

abraços

Junior

From: oliveiros.mendes

To: eagle1@yahoogroups.com

Sent: Wednesday, June 07, 2006 4:33 PM

Subject: [eagle1] Eagle 3.03

Olá Manú,

Estou precisando de ajuda com a criação de tabelas via comando.
Seria possível me ajudar?

1) Estou usando a eagle1 3.03, MySql 5.20 e FWH 2.7 ;

2) Crio uma array com a estrutura da tabela;

  // Estrutura das tabelas
  *------------------------------------------------------------------
---------*
  /* o vetor contém os seguintes parâmetros
        1 - Nome da tabela
        2 - Campos ( definições )
        3 - Indices
        4 - Relacionamento
  */
 
  // Tabela de usuarios
  *-----------------------------------------------------------------*
  Aadd( aTabelas, { "Usuarios", ;
                  { { "Matricula VARCHAR(7) NOT NULL PRIMARY
KEY" }, ;
                    { "Nome_Usuario VARCHAR(10)" }, ;
                    { "Senha_Usuario VARCHAR(10)" }, ;
                    { "Unidade VARCHAR(10)" }, ;
                    { "Situacao_Ativo VARCHAR(1) NOT NULL
DEFAULT 'S'" }, ;
                    { "Data_Situacao DATE" } } , ;
                    { "Matricula", "Nome_Usuario" }, {} } )

3) Através da função Verificar_Existencia_Tabelas( oMeter ) verifico
a existência da tabela caso contrário crio:

Static Function Verificar_Existencia_Tabelas( oMeter )
  Local oConexao, oBanco_Dados, cNome_Tabela, lRetorno := .T.
  Local nI, nX, cInstrucao, cIndices, cReferencia
 
  SysRefresh()
 
  // Iniciando objeto de conexão
  *----------------------------------------------------------------*
  oConexao := TMSConnect():New()
 
  oConexao:SetAutoError( .F. )
 
  If oConexao:Connect( cServidor_Conexao, cUsuario_Conexao, ;
                       cSenha_Conexao, , cPorta_Conexao )
   
        oBanco_Dados := TMSDataBase():New( oConexao,
cBanco_Dados, .T. )
           
            If oBanco_Dados:lOpen
       oMeter:SetRange( 0, Len( aTabelas ) )
       oMeter:SetPos( 0 )

       For nI = 1 To Len( aTabelas )
           oMeter:SetPos( nI )
                   
           cNome_Tabela := AllTrim( aTabelas[ nI, 1 ] )
          
           If !oBanco_Dados:ExistTable( cNome_Tabela )

              cInstrucao := "CREATE TABLE " + cNome_Tabela
              cInstrucao += "("
        
              // Campos
              *-----------------------------------------------------*
              For nX = 1 To Len( aTabelas[ nI , 2 ] )
                  cInstrucao += aTabelas[ nI, 2, nX, 1 ] + ","
              Next

              // Indices
              *-----------------------------------------------------*
              cIndices := ""
        
              For nX = 1 To Len( aTabelas[ nI, 3 ] )
                  cIndices += "INDEX ( " + aTabelas[ nI, 3, nX ]
+ "),"
              Next
        
              If !Empty( cIndices )
                 cInstrucao += cIndices
              EndIf
             
              /*
              // Referencias - Relacionamentos
              *-----------------------------------------------------*
              cReferencia := ""
        
              For nX = 1 To Len( aTabelas[ nI, 4 ] )
                  cReferencia += aTabelas[ nI, 4, nX ]
              Next
        
              If !Empty( cReferencia )
                 cInstrucao += cReferencia
              EndIf
              */
              
              If Right( AllTrim( cInstrucao ), 1 ) == ","
                 cInstrucao := Left( cInstrucao, Len( cInstrucao ) -
1 )
              EndIf
             
              cInstrucao += ")"
              cInstrucao += ";"

              //? cInstrucao
             
              If !oBanco_Dados:ExecSQL( cInstrucao )
                 ? cInstrucao
                 lRetorno := .F.
              EndIf
           EndIf
           SysRefresh()
       Next
            Else
       xMsgBox( "Não foi possível abrir o banco de dados: " + ;
                AllTrim( cBanco_Dados ), cNome_Reduzido_Sistema, ;
                MSG_STOP,, lSom_Mensagens )
       lRetorno := .F.        
    EndIf
   
    oBanco_Dados:Free()
  Else
    xMsgBox( "Não foi possível conexão com o servidor.",
cNome_Reduzido_Sistema, ;
             MSG_STOP,, lSom_Mensagens )
    lRetorno := .F.        
  EndIf
 
  oConexao:Free()                    
Return lRetorno
*-------------------------------------------------------------------*

3) Se utilizo o comando oBanco_Dados:ExecSQL( cInstrucao ) ocorre o
seguinte erro:

Unrecoverable error 9014: Unsupported VM opcode
Called from __EVAL(20)
Called from __ERRRT_SBASE(0)
Called from TMSDATABASE:ERROR(179)
Called from __EVAL(105)
Called from TMSDATABASE:MSGNOTFOUND(0)
Called from TMSDATABASE:EXECSQL(169)
Called from VERIFICAR_EXISTENCIA_TABELAS(539)

4) Se utilizo o comando oBanco_Dados:Execute( cInstrucao ) com a
opção TYPE=INNODB ocorre o erro sem mensagem ele simplesmente aborta
o programa.

Abraços

Junior






__________ Información de NOD32, revisión 1.1584 (20060607) __________

Este mensaje ha sido analizado con NOD32 antivirus system
http://www.nod32.com

Olá Manú,

Estou precisando de ajuda com a criação de tabelas via comando.
Seria possível me ajudar?

1) Estou usando a eagle1 3.03, MySql 5.20 e FWH 2.7 ;

2) Crio uma array com a estrutura da tabela;

   // Estrutura das tabelas
   *------------------------------------------------------------------
---------*
   /* o vetor contém os seguintes parâmetros
  	 1 - Nome da tabela
  	 2 - Campos ( definições )
  	 3 - Indices
  	 4 - Relacionamento
   */

   // Tabela de usuarios
   *-----------------------------------------------------------------*
   Aadd( aTabelas, { "Usuarios", ;
                   { { "Matricula VARCHAR(7) NOT NULL PRIMARY
KEY" }, ;
                     { "Nome_Usuario VARCHAR(10)" }, ;
                     { "Senha_Usuario VARCHAR(10)" }, ;
                     { "Unidade VARCHAR(10)" }, ;
                     { "Situacao_Ativo VARCHAR(1) NOT NULL
DEFAULT 'S'" }, ;
                     { "Data_Situacao DATE" } } , ;
                     { "Matricula", "Nome_Usuario" }, {} } )

3) Através da função Verificar_Existencia_Tabelas( oMeter ) verifico
a existência da tabela caso contrário crio:

Static Function Verificar_Existencia_Tabelas( oMeter )
   Local oConexao, oBanco_Dados, cNome_Tabela, lRetorno := .T.
   Local nI, nX, cInstrucao, cIndices, cReferencia

   SysRefresh()

   // Iniciando objeto de conexão
   *----------------------------------------------------------------*
   oConexao := TMSConnect():New()

   oConexao:SetAutoError( .F. )

   If oConexao:Connect( cServidor_Conexao, cUsuario_Conexao, ;
                        cSenha_Conexao, , cPorta_Conexao )

	   oBanco_Dados := TMSDataBase():New( oConexao,
cBanco_Dados, .T. )

		 If oBanco_Dados:lOpen
        oMeter:SetRange( 0, Len( aTabelas ) )
        oMeter:SetPos( 0 )

        For nI = 1 To Len( aTabelas )
            oMeter:SetPos( nI )

            cNome_Tabela := AllTrim( aTabelas[ nI, 1 ] )

            If !oBanco_Dados:ExistTable( cNome_Tabela )

               cInstrucao := "CREATE TABLE " + cNome_Tabela
               cInstrucao += "("

               // Campos
               *-----------------------------------------------------*
               For nX = 1 To Len( aTabelas[ nI , 2 ] )
                   cInstrucao += aTabelas[ nI, 2, nX, 1 ] + ","
               Next

               // Indices
               *-----------------------------------------------------*
               cIndices := ""

               For nX = 1 To Len( aTabelas[ nI, 3 ] )
                   cIndices += "INDEX ( " + aTabelas[ nI, 3, nX ]
+ "),"
               Next

               If !Empty( cIndices )
                  cInstrucao += cIndices
               EndIf

               /*
               // Referencias - Relacionamentos
               *-----------------------------------------------------*
               cReferencia := ""

               For nX = 1 To Len( aTabelas[ nI, 4 ] )
                   cReferencia += aTabelas[ nI, 4, nX ]
               Next

               If !Empty( cReferencia )
                  cInstrucao += cReferencia
               EndIf
               */

               If Right( AllTrim( cInstrucao ), 1 ) == ","
                  cInstrucao := Left( cInstrucao, Len( cInstrucao ) -
1 )
               EndIf

               cInstrucao += ")"
               cInstrucao += ";"

               //? cInstrucao

               If !oBanco_Dados:ExecSQL( cInstrucao )
                  ? cInstrucao
                  lRetorno := .F.
               EndIf
            EndIf
            SysRefresh()
        Next
		 Else
        xMsgBox( "Não foi possível abrir o banco de dados: " + ;
                 AllTrim( cBanco_Dados ), cNome_Reduzido_Sistema, ;
                 MSG_STOP,, lSom_Mensagens )
        lRetorno := .F.
     EndIf

     oBanco_Dados:Free()
   Else
     xMsgBox( "Não foi possível conexão com o servidor.",
cNome_Reduzido_Sistema, ;
              MSG_STOP,, lSom_Mensagens )
     lRetorno := .F.
   EndIf

   oConexao:Free()
Return lRetorno
*-------------------------------------------------------------------*

3) Se utilizo o comando oBanco_Dados:ExecSQL( cInstrucao ) ocorre o
seguinte erro:

Unrecoverable error 9014: Unsupported VM opcode
Called from __EVAL(20)
Called from __ERRRT_SBASE(0)
Called from TMSDATABASE:ERROR(179)
Called from __EVAL(105)
Called from TMSDATABASE:MSGNOTFOUND(0)
Called from TMSDATABASE:EXECSQL(169)
Called from VERIFICAR_EXISTENCIA_TABELAS(539)

4) Se utilizo o comando oBanco_Dados:Execute( cInstrucao ) com a
opção TYPE=INNODB ocorre o erro sem mensagem ele simplesmente aborta
o programa.

Abraços

Junior