Verificar se a função FWdbCreate deu erro

Estava migrando meus programas que usavam a função MsCreate para a nova FWDbCreate, porém me deparei com um pequeno problema com a nova função. A função MSCreate retorna .T. se a tabela pode ser criada, e a nova função não retorna nada. Como faço para identificar se a operação de criar a tabela temporária ocorreu sem erros? Tentei usando fError() mas não deu muito certo porque ela pode trazer códigos de erro de funções anteriores ao que estou trabalhando que também não deu certo.

https://tdn.totvs.com/display/public/framework/FWDBCreate https://tdn.totvs.com/pages/releaseview.action?pageId=6814994

criado 05 de Sep de 2022
Cirilo Rocha
1680 pontos
editado 05 de Sep de 2022

Você vai ver essas setas em qualquer página de pergunta. Com elas, você pode dizer se uma pergunta ou uma resposta foram relevantes ou não.
Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
Caso haja alguma dúvida sobre a pergunta, adicione um comentário. O espaço de respostas deve ser utilizado apenas para responder a pergunta.
Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
Clique aqui para mais detalhes sobre o funcionamento do TOTVS DevForum!

1 resposta

up 0 down
Cirilo,

Para verificar se a tabela realmente foi criada, você pode usar uma função que verifique a existência da tabela.
```
#include "protheus.ch"

//-------------------------------------------------------------------
/*/{Protheus.doc} createTableTest
Exemplo de uso da FWDBCreate

@author Daniel Mendes
@since 05/09/2022
@version 1.0

/*/
//-------------------------------------------------------------------
user function createTableTest()
local cTable as character
local aStruct as array
local cDriver as character
local lOk as logical

cTable := "TESTE"
aStruct := {{"CODIGO", "N", 10, 0}, {"DESCRICAO", "C", 255, 0}}
cDriver := "TOPCONN"

FWDBCreate(cTable, aStruct, cDriver, .T.)

lOk := TCCanOpen(cTable)

return
```
Como a tabela foi criada no banco de dados, posso usar a função TCCanOpen para verificar se a mesma existe.

Documentação: https://tdn.totvs.com/display/tec/TCCanOpen
- editar
- x
  
  grosseiro ou ofensivo pouco construtivo obsoleto outro...
  Motivo
- criado 05 de Sep de 2022
  Daniel Mendes
  15854 pontos
- editado 05 de Sep de 2022
- 0
  
  Entendi, só mais uma dúvida e se a tabela for CTree ? vou ter que ver se o arquivo existe ?
  — Cirilo Rocha 05 de Sep de 2022
- 0
  
  Para CTREE você poderia usar a função FILE e verificar a existência do arquivo. Mas recomendo fortemente deixar de usar arquivos CTREE.
  — Daniel Mendes 05 de Sep de 2022
- 0
  
  Mais uma vez muito obrigado, entendo a recomendação sobre ctree, mas eu continuo usando porque a diferença de desempenho (em todos os testes que já fiz aqui) é absurda. O Ctree chega a ser 10x mais rápido que o SQL ou SQL_Lite, por isso ainda uso como tabelas temporárias.
  — Cirilo Rocha 05 de Sep de 2022
Adicionar comentário

Caracteres restantes: 600
Quero acompanhar este tópico via email.

Comentário
Utilize formatação mini-Markdown: [link](http://exemplo.com) _italico_ **negrito** `codigo`.
Comentarios devem ter, no maximo, 600 caracteres. Se achar necessario, utilize links em vez de copiar código ou ainda edite sua pergunta/resposta para colocar mais informações

Verificar se a função FWdbCreate deu erro

Comentário

1 resposta

Comentário

Não é a resposta que estava procurando? Procure outras perguntas com as tags mscreate advpl fwdbcreate ou faça a sua própria pergunta.