Tdatabase con varios DBF

[José Luis Sánchez]

Hola,

estoy migrando una vieja aplicación y quiero usar TDatabase de FWH. Revisando los ejemplos y demás, hay una cosa que no tengo clara y es el uso de la clase con varios DBF. ¿ Se puede crear un tdatabase para cada dbf que abro o al crear el objeto dbf y cambiar de alias mediante un select se cambia el objeto database de manera automática ? ¿ Algún ejemplo de uso de TDatabase con varios DBF ?

Saludos,
José Luis

[karinha]

Mira se ayuda, vários ejemplos simples de uso.

https://www.4shared.com/rar/rFE4iUitei/AULAINI.html

Saludos.

[karinha]

Mi primero ejemplo en fivewin the best: a long long time ago. jejejejejejejejejej



Saludos.

[Silvio.Falconi]

Mi primero ejemplo en fivewin the best: a long long time ago. jejejejejejejejejej



Saludos.

this program is made by another man (Aulaware - A. Canudas) , you cannot be this man

[José Luis Sánchez]

Gracias Joao,
no puedo ejecutar la aplicación porque tengo Windows 10 y no hay manera. He estado revisando el código y lo que hace es que cada vez que abre un DBF le asocia un objeto TDatabase. Creo que no es la manera de hacer las cosas, porque se puede quedar a mitad de editar un registro por no poder abrir otro dbf simplemente para seleccionar un registro como clave ajena.
Yo lo que quiero hacer es tener varias DBF abiertas, cada una con su objeto TDatabse asociado. ¿ Como puedo hacer esto ?

Saludos,

[José Luis Sánchez]

Contestado en viewtopic.php?f=3&t=34394

Gracias,

[karinha]

Contestado en viewtopic.php?f=3&t=34394

Gracias,

José, el intento, és que cuando posible, cambie los ejemplos a 32 ó 64 bits. Gracias, saludos.

[karinha]

Como yo uso:

Code: Select all  Expand view  RUN

    IF DeOndeVem != [DELIVERY] .AND. DeOndeVem != [RESERVAS] .AND. ;
       DeOndeVem != [LOCACAO]

       IF NetUse( "CADETIQ", .T. )
          OrdListAdd( "CADETIQ", "RAZ_MATRIC", "DEST_NOME", "END",             ;
                                 "NOME_ARTIS", "CPF",       "CNPJ",            ;
                                 "TELEFONE" )
          //OrdDescend( ,,.T. ) // - Crescente
          OrdDescend( ,,.F. )   // - Decrescente
          DATABASE DbClientes
          DbClientes:Gotop()
          DbClientes:Load()
          DbClientes:SetBuffer( .T. )
       ELSE
          MsgStop( "Banco de Dados dos CLIENTES Bloqueado", "Cuidado!" )
          RETURN NIL
       ENDIF
    ENDIF

    IF NetUse( "CABCLALF", .T. )   // Exclusive:  .F.  Shared: .T.

       DATABASE DbCabec
       DbCabec:Load()
       DbCabec:SetBuffer( .T. )
       DbCabec:GoTop()
       DbSkip(-1)
    ELSE
       MsgStop( "Banco de Dados Bloqueado", "Cuidado!" )
       RETURN NIL
    ENDIF

    IF NetUse( "PAIEMAE", .T. )
       OrdListAdd( "PAIEMAE", "RAZ_MATRIC" )
       OrdDescend( ,,.F. ) // - Decrescente
       DATABASE DbPaieMae
       DbPaieMae:Gotop()
       DbPaieMae:Load()
       DbPaieMae:SetBuffer( .T. )
    ELSE
       MsgStop( "Banco de Dados dos CLIENTES Bloqueado", "Cuidado!" )
       RETURN NIL
    ENDIF

    DbSelectArea( ( DbClientes:cAlias ) )
    DbClientes:SetOrder( 2 )
    DbGoTop()
 

Saludos.