xHarbour 100% Orientado a Objetos - Uma pequena introdução

[alxsts]

Olá!

Obrigado Stanis.

Escrevi em uma máquina onde não há Clipper instalado e não testei.

Faltaram duas chaves. O correto seria:

Código: Selecionar todos

AAdd( aArray, { { "Codigo", "N", 3, 0 }, { "Nome", "C", 50, 0 } } )

Desculpem o inconveniente.

[Stanis Luksys]

AAdd( aArray, { { "Codigo", "N", 3, 0 }, { "Nome", "C", 50, 0 } } )

Não testei, mas isso não funcionará, a função DbCreate() deve receber a matriz de um campo em cada 'linha' do array. Cada array com a declaração de um campo deve ser um elemento da matriz principal.

Não daria certo colocar em um único elemento, vários campos. Desta forma que você colocou, o tamanho de aArray será 1, quando o correto seria 2.

Teste com Len(aArray).

Abraços.

[bencz]

Bom dia....
testei o código... e nao funcionou... quando tento adicionar um "cliente"... recebo o seguinte erro...

[alxsts]

Olá!

Realmente ainda estava com o bug mencionado. Segue o código correto para futuros utilizadores:

Código: Selecionar todos

Function Main()

LOCAL aArray, nInd, nLen

   CLS

   aArray := { { "Codigo", "C", 5, 0 }, { "Nome", "C", 50, 0 } }
 
   DbCreate( "Clientes", aArray )   // ou simplesmente   DbCreate( "Clientes", { { "Codigo", "N", 3, 0 }, { "Nome", "C", 50, 0 } } ) 

   ? "Tabela 'Clientes' criada"

   aArray := {}

   AAdd( aArray, { "1", "VARIG" } )
   AAdd( aArray, { "2", "VASP" } )
   AAdd( aArray, { "3", "TRANSBRASIL" } )
   AAdd( aArray, { "4", "CRUZEIRO DO SUL" } )
   AAdd( aArray, { "5", "PANAM" } )
   AAdd( aArray, { "6", "BRANIFF" } )

   USE Clientes EXCLUSIVE NEW

   nLen := Len( aArray )

   FOR nInd := 1 TO nLen
      Clientes->( DbAppend() )
      Clientes->codigo := aArray[ nInd, 1 ]
      Clientes->nome := aArray[ nInd, 2 ]
   NEXT

   Clientes->( DbCloseArea() )

   ? "6 registros incluidos."
   ? "Fim de processamento. Tecle algo:"
   Inkey(10)  
    
   RETURN NIL

Note que no exemplo original, o código é tipo caracter, tamanho 5, e não numérico como foi colocado agora

Bencz:
quanto ao erro que você está recebendo, certamente tem a ver com o comentário do Stanis, reproduzido acima. Delete a tabela Clientes que você tem e recrie usando o código que acabo de postar (compile e linkedite este código).

[bencz]

blz, como q se faz a exclusão do item na tabela DBF ?? ( nao é nem mais duvida sobre a programação OO, e sim, sobre o arquivo DBF mesmo xD )

[alxsts]

Olá!

Não sei se entendi a tua dúvida: DELETE ou DbDelete(). Seria isto?

[bencz]

a minha duvida, seria de como excluir um elemento do arquivo DBF
por exemplo, usando esse código do tutorial aqui postado, e eu quero criar uma opção para deletar um elemento do arquivo DBF, por exemplo, "varig", como posso fazer isso ?