WinDBU - script interesante !!!

Post Reply
User avatar
Aurora34
Posts: 6
Joined: Fri Apr 07, 2006 8:28 am
Contact:

WinDBU - script interesante !!!

Post by Aurora34 »

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 3:40 pm
Location: BR

Post by norberto »

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

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

thanks Aurora! :lol:
User avatar
Aurora34
Posts: 6
Joined: Fri Apr 07, 2006 8:28 am
Contact:

Post by Aurora34 »

User avatar
Aurora34
Posts: 6
Joined: Fri Apr 07, 2006 8:28 am
Contact:

Post by Aurora34 »

(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
User avatar
Vikthor
Posts: 271
Joined: Fri Oct 07, 2005 5:20 am
Location: México

Post by Vikthor »

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 3:40 pm
Location: BR

Post by norberto »

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 - nao tenha essas falhas... :P
User avatar
Vikthor
Posts: 271
Joined: Fri Oct 07, 2005 5:20 am
Location: México

Post by Vikthor »

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
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:

Post by Antonio Linares »

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
User avatar
Patricio Avalos Aguirre
Posts: 1028
Joined: Fri Oct 07, 2005 1:56 pm
Location: La Serena, Chile
Contact:

Post by Patricio Avalos Aguirre »

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 ... 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 6:58 pm

Re: Ayuda por favor

Post by Yessica »

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 ... Platform=6
User avatar
Patricio Avalos Aguirre
Posts: 1028
Joined: Fri Oct 07, 2005 1:56 pm
Location: La Serena, Chile
Contact:

Re: WinDBU - script interesante !!!

Post by Patricio Avalos Aguirre »

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 6:58 pm

Re: WinDBU - script interesante !!!

Post by Yessica »

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
User avatar
Patricio Avalos Aguirre
Posts: 1028
Joined: Fri Oct 07, 2005 1:56 pm
Location: La Serena, Chile
Contact:

Re: WinDBU - script interesante !!!

Post by Patricio Avalos Aguirre »

Jessica

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

Code: Select all

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: Select all

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: Select all

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: Select all

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
Post Reply