Exclui uma tabela ou view de um banco relacional, através do DBAccess.
TCDelFile( < cName > ) |
Nome | Tipo | Descrição | Obrigatório | Referência |
|---|---|---|---|---|
cName | caractere | Nome da Tabela/View a ser excluida. | X |
Nome | Tipo | Descrição |
|---|---|---|
lRet | lógico | Retorna .T. se excluiu com sucesso, caso contrário, retorna .F. |
|
USER FUNCTION TEST()
TCLink()
DBCreate( "T1", { { "FIELD_NAME", "C", 10, 0 }, ;
{ "FIELD_TYPE", "C", 10, 0 } }, "TOPCONN" )
TCViewOne( "VIEW1", "T1" )
IF TCDelFile( "VIEW1" ) == .T.
conout( "View deleted" )
ELSE
conout( "Error on delete: " + TCSQLError() )
ENDIF
IF TCDelFile( "T1" ) == .T.
conout( "Table deleted" )
ELSE
conout( "Error on delete: " + TCSQLError() )
ENDIF
TCUnlink()
RETURN
|