Executa uma instrução de sintaxe SQL (Structured Query Language) diretamente no banco de dados em que está conectado.
TCSQLExec( < cStatement > ) |
Nome | Tipo | Descrição | Obrigatório | Referência |
|---|---|---|---|---|
cStatement | caractere | Indica a instrução que será executada no banco de dados. | X |
Nome | Tipo | Descrição |
|---|---|---|
nStatus | numérico | Retorna o status da execução. Se menor que 0 indica que a instrução não foi executada com sucesso. |
USER FUNCTION TEST()
TCLink()
TCDelFile("T1")
DBCreate("T1", {{"FIELD_NAME", "C", 10, 0}, ;
{"FIELD_TYPE", "C", 10, 0}}, "TOPCONN")
nStatus := TCSqlExec("insert into t1 (field_name, field_type) values ('name', 'type')")
if (nStatus < 0)
conout("TCSQLError() " + TCSQLError())
endif
TCUnlink()
RETURN
|