FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour WinDBU - script interesante !!!
Aurora34
Posts: 6
Joined: Fri Apr 07, 2006 08:28 AM
WinDBU - script interesante !!!
Posted: Mon Sep 15, 2008 04:16 PM

Que hay amigos ? para quienes gusten del WinDBU 3.4 B (shareware):

les indico un script con buena onda. Vayan al "command interpreter" y ejecuten esto: SerialFrom()

esta requetechulo :-D

norberto
Posts: 566
Joined: Thu Aug 30, 2007 03:40 PM
WinDBU - script interesante !!!
Posted: Mon Sep 15, 2008 06:35 PM

HI, works fine this script, can download this here (shareware) :

http://rapidshare.com/files/145544510/wdbu34b.rar.html

thanks Aurora! :lol:

Aurora34
Posts: 6
Joined: Fri Apr 07, 2006 08:28 AM
WinDBU - script interesante !!!
Posted: Tue Sep 16, 2008 07:44 AM

WinDBU (WDBU 3.4 B) shareware:

http://www.mediafire.com/?sharekey=39e4 ... 8066405945

Aurora34
Posts: 6
Joined: Fri Apr 07, 2006 08:28 AM
WinDBU - script interesante !!!
Posted: Tue Sep 16, 2008 08:36 AM

(WDBU) DBU para Windows es un editor profesional de ficheros Dbase que soporta los siguientes drivers:

Clipper Dbfntx
Dbase III
Dbase IV
FoxPro (SIX2 and COMIX)
Six2
Flexfile memo con cualquiera de los drivers anteriores
Acceso Cliente-Servidor a trav茅s de Xbase Advantage Servernuevo

DBU para Windows funciona perfectamente en entornos de red.

Esta herramienta de programaci贸n tiene como base la utilidad DBU que inclu铆a CA-Clipper desde sus origenes, pero con un interface Windows MDI, soporte completo de todos los drivers existentes y un mont贸n de opciones no presentes en el original DBU. Es un producto indispensable para cualquier programador de Dbase, incluso aunque no utilice CA-Clipper.

Estas son algunas de sus caracter铆sticas:

A帽adir, modificar o borrar cualquier registro de un fichero Dbase
Creaci贸n y modificaci贸n de la estructura del fichero
Creaci贸n de 铆ndices
Busqueda y localizaci贸n de registros
Filtros
Estad铆sticas (Suma, M谩ximo, M铆nimo, Media, Desv. Standard)
A帽adir registros desde ... (DBF, SDF o TXT)
Copiar a ... (DBF, SDF o TXT)
Borrar o recuperar registros seg煤n una determinada expresi贸n
Empaquetado y borrado total de bases de datos
Informes
Impresi贸n de calidad de la estructura de la base de datos, incluyendo toda la informaci贸n de sus 铆ndices
Salvado autom谩tico de la configuraci贸n de cualquier fichero
Traslaci贸n ANSI a OEM y viceversa
Relaciones nuevo
Edici贸n de campos Memo del tipo Varifield
Columnas definidas por el usuario
Inerface MDI que permite una apertura ilimitada de ficheros
Creaci贸n de gr谩ficos
Lenguaje de Scripting para hacer modificaciones complejas en bases de datos
Procesamiento en bloque de ficheros

La versi贸n 3.4 de Dbu para Windows, a帽ade al producto dos nuevas importantes propiedades:
Interprete de comandos nuevo
Gesti贸n de tareas nuevo

Vikthor
Posts: 298
Joined: Fri Oct 07, 2005 05:20 AM
WinDBU - script interesante !!!
Posted: Mon Sep 22, 2008 04:06 PM

Antonio :

Este mensaje es publicidad hacia productos de tercero.

Entonces eso me hace entender que puedo poner en mi firma una liga a mi blog.

(editado: Lee la respuesta de Norberto, que aclara el asunto)

Vikthor
norberto
Posts: 566
Joined: Thu Aug 30, 2007 03:40 PM
WinDBU - script interesante !!!
Posted: Mon Sep 22, 2008 06:35 PM

Eu sou um usuario registrado de wdbu, tenho 2 licen莽as pagas, o autor deixou de dar suporte ao produto, enviei varios email pedindo a troca de serial quando mudei um computador...
agrade莽o ao aurora pelo script, e nao acho ser pirataria, mas sim utilizar uma falha de seguran莽a do wdbu.
espero que no xailer nao tenha essas falhas... :P

Vikthor
Posts: 298
Joined: Fri Oct 07, 2005 05:20 AM
WinDBU - script interesante !!!
Posted: Mon Sep 22, 2008 07:18 PM

mmmmm, ya le铆 la respuesta pero desde mi punto de vista ese post sigue siendo una invitaci贸n a publicidad de terceros.

Y en el e-mail que me enviaste claramente mencionas que no se puede hacer eso.

Entonces ?

C贸mo decimos ac谩 en M茅xico, o todos coludos o todas rabones.

Saludos

(editado: Puedes explicar tu punto de vista ? gracias :-)

Vikthor
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
WinDBU - script interesante !!!
Posted: Mon Sep 22, 2008 07:24 PM

Vikthor,

Yo no veo ninguna intenci贸n de publicidad en esos mensajes, sino la puesta en evidencia de un agujero de seguridad, que puede ayudar a usuarios que son discriminados en la base a las herramientas que usan.

Es como cuando Windows se niega a leer un disco en formato HFS+. Es una discriminaci贸n hacia Apple.

Si alguien indica como se puede leer un disco de Apple desde Windows, no le est谩 haciendo publicidad ni a Apple ni a Windows. Solo ayuda a quienes necesitan leer dicho disco desde Windows.

Poner en evidencia un agujero de seguridad de un producto, no es culpa de quien lo evidencia, sino de quien lo fabrica. Por ejemplo, al detectar un agujero de seguridad de Windows, no tiene la culpa quien lo detecta, sino Windows. Y precisamente no creo que le est茅 haciendo publicidad a Windows :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com
Patricio Avalos Aguirre
Posts: 1074
Joined: Fri Oct 07, 2005 01:56 PM
WinDBU - script interesante !!!
Posted: Mon Sep 22, 2008 10:44 PM
Hola a todos

Prefiero el Advantage Data Architect 9.0

puedes hacer consulta SQL, debugger, etc,
archivos DBF y ADT

http://devzone.advantagedatabase.com/dz/content.aspx?key=20&Release=12&Product=8&Platform=6
Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl
Yessica
Posts: 78
Joined: Thu May 28, 2009 06:58 PM
Re: Ayuda por favor
Posted: Mon Jun 01, 2009 03:44 PM
Que tal Patricio oye un favor mira yo estoy empezando en esto, emigre mis programas que estaban en Clipper hacia xHarbour, actualmente tengo las tablas en ADT, necesito trabajar en el Diccionario de Datos que tiene Advantage, pero obio necesito hacer modificaciones a mis programas, la verdad es que soy muy nueva en esto y no se ni como empezar podrias ayudarme..muchas gracias.

Patricio Avalos Aguirre wrote:Hola a todos

Prefiero el Advantage Data Architect 9.0

puedes hacer consulta SQL, debugger, etc,
archivos DBF y ADT

http://devzone.advantagedatabase.com/dz/content.aspx?key=20&Release=12&Product=8&Platform=6
Patricio Avalos Aguirre
Posts: 1074
Joined: Fri Oct 07, 2005 01:56 PM
Re: WinDBU - script interesante !!!
Posted: Mon Jun 01, 2009 04:16 PM

hola Jessica

Ningun problema solo pregunta y aqui vemos como podemos solucionar tus consultas

Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl
Yessica
Posts: 78
Joined: Thu May 28, 2009 06:58 PM
Re: WinDBU - script interesante !!!
Posted: Mon Jun 01, 2009 06:37 PM
Gracias patricio mira no encuentro como debo utilizar esto..AdsCopyTableContents(), necesito copiar registros de una Tabla a otra con una condicion. Podrias ayudarme... utilizo ADTs en un Diccionario de Datos.

Patricio Avalos Aguirre wrote:hola Jessica

Ningun problema solo pregunta y aqui vemos como podemos solucionar tus consultas
Patricio Avalos Aguirre
Posts: 1074
Joined: Fri Oct 07, 2005 01:56 PM
Re: WinDBU - script interesante !!!
Posted: Mon Jun 01, 2009 09:34 PM
Jessica

No he usado esta funcion "AdsCopyContents", pero viendo la funcion este copia toda la informacion de una tabla a otra

Code (fw): Select all Collapse
SELE MOVI_SAL
adsCopyTableContents( "MOVI_SAL2" )

en realidad debiera funciona con los parametros
#define ADS_RESPECTFILTERS 1
#define ADS_IGNOREFILTERS 2
#define ADS_RESPECTSCOPES 3
Code (fw): Select all Collapse
adsCopyTableContents( "MOVI_SAL2", ADS_RESPECTSCOPES )

pero no funcionan,

y el problema esta en la funcion de ADS que esta en C, siempre le envia ADS_IGNOREFILTERS independiente
lo que tu le envies

Code (fw): Select all Collapse
HB_FUNC( ADSCOPYTABLECONTENTS )
{
聽 聽ADSAREAP pArea = hb_adsGetWorkAreaPointer(); /* Source */

聽 聽if( pArea )
聽 聽{
聽 聽 聽 int iOldArea = hb_rddGetCurrentWorkAreaNumber();

聽 聽 聽 if( hb_rddSelectWorkAreaAlias( hb_parcx( 1 ) /* szAliasDest */ ) == SUCCESS )
聽 聽 聽 {
聽 聽 聽 聽 聽ADSAREAP pDest = hb_adsGetWorkAreaPointer();

聽 聽 聽 聽 聽hb_rddSelectWorkAreaNumber( iOldArea );

聽 聽 聽 聽 聽if( pDest )
聽 聽 聽 聽 聽 聽 hb_retl( AdsCopyTableContents( pArea->hTable,
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽pDest->hTable,
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽ADS_IGNOREFILTERS ) == AE_SUCCESS );
聽 聽 聽 聽 聽else
聽 聽 聽 聽 聽 聽 hb_errRT_DBCMD( EG_NOTABLE, 2001, NULL, HB_ERR_FUNCNAME );
聽 聽 聽 }
聽 聽 聽 else
聽 聽 聽 聽 聽hb_errRT_DBCMD( EG_NOTABLE, 2001, NULL, HB_ERR_FUNCNAME );
聽 聽}
聽 聽else
聽 聽 聽 hb_errRT_DBCMD( EG_NOTABLE, 2001, NULL, HB_ERR_FUNCNAME );
}


puedes probar con SLQStament..

Code (fw): Select all Collapse
Select 0

cSql := "SELECT * FROM MOVI_SAL WHERE tip_doc = 'GDE'"

if ADSCreateSQLStatement("SQLarea", ADS_ADT )
聽 聽 if AdsExecuteSqlDirect(cSql)
聽 聽 聽 聽 adsCopyTableContents( "MOVI_SAL2" )
聽 聽 聽 聽 SqlArea->( dbCloseArea() )
聽 聽 else
聽 聽 聽 聽 MsgInfo( "Error en la consulta", "AdsExecute" )
聽 聽 endif
else
聽 聽 MsgInfo( "Error en la consulta", "AdsCreateSQL" )
endif
Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions