Histórico da Página

import.css=/download/attachments/327912/newLayout.css

...

Função: DBDelete

Marca

...

o

...

registro

...

atual para

...

exclusão.

Sintaxe

DBDelete()

Observações

• Utilize o comando Set Deleted

...

• para filtrar os arquivos marcados.
• Utilize o comando

...

• PACK para excluir fisicamente os arquivos marcados pela DBDelete.
• Caso a RDD utilizada para a abertura de tabela seja a RDD TOPCONN, a função DBDelete irá gravar na tabela aberta, no campo de controle R_E_C_D_E_L_ do registro que está sendo marcado para exclusão, o número do registro (Recno).

Exemplos

//Este exemplo, apresenta como utilizar a função DBDelete() para marcar alguns registros//como excluídos e o comando Pack para excluí-los fisicamente.USE Clientes NEWDBGoTo(100)DBDelete()DBGoTo(105)DBDelete()DBGoTo(110)DBDelete()PACK 

O exemplo abaixo utiliza a RDD "TOPCONN", mas a função pode ser utilizada com qualquer uma das RDDs válidas.

#include "totvs.ch"
user function test()
  Local nHandle := TCLink()
  Local cTable := "MYTABLE"
  Local cRDD := "TOPCONN"
  
  // Abre a tabela
  DBUseArea( .T., cRDD, cTable, (cTable), .F., .F. )
  
  // Maraca os registros para deleção
  DBGoTo( 100 )
  DBDelete()
  
  DBGoTo( 105 )
  DBDelete()
  
  DBGoTo( 110 )
  DBDelete()
  
  // Remove efetivamente os regisros
  PACK
  
  // Fecha a tabela
  DBCloseArea()
  
  // Desconecta do SGBD
  TCUnlink( nHandle )
return

Veja também

• DBRecall
• Deleted
• DBUseArea
• TCLink
• TCUnlink

...