Histórico da Página

user function test()
  Local nHandle := TCLink( "MSSQL/DSN1", "127.0.0.1", 7890 )
  Local cTable := "MYTABLE"
  Local cRDD := "TOPCONN"
  
  // Abre a tabela
  DBUseArea( .T., cRDD, cTable, (cTable), .F., .F. )
  
  // Maraca um registro para exclusão e depois desmarca
  DBGoTo( 100 )
  DBDelete()
  conout( Deleted() ) // Exibe: .T.
  DBRecall()
  conout( Deleted() ) // Exibe: .F.
  
  // Desmarca todos os registros da tabela que estão para exclusão
  DBGoTop()
  while !EOF()
    DBRecall()
    DBSkip()
  enddo
  
  // Fecha a tabela
  DBCloseArea()
  
  // Desconecta do SGBD
  TCUnlink( nHandle )
return