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 os registros para deleção
  DBGoTo( 100 )
  DBDelete()
  
  DBGoTo( 105 )
  DBDelete()
  
  DBGoTo( 110 )
  DBDelete()
  
  // Remove efetivamente os regisrosregistros
  __DBPack()
  
  // Fecha a tabela
  DBCloseArea()
  
  // Desconecta do SGBD
  TCUnlink( nHandle )
return