Angariar fundos para cobrir os custos logísticos do "Festival da Arte Capoeira" e apoiar o projeto Eu Sou Ninja em sua missão de promover a integração social e cultural na comunidade de Jacaraípe. Com a criação da rifa, buscamos envolver a comunidade de forma ativa no financiamento do evento, permitindo que todos contribuam para o sucesso do festival e para a continuidade das atividades do projeto. Prêmio: Copia da minha biblioteca pessoal de AdvPL/TLpp ..etc Participe da Rifa Eu já contribui. Só falta você! ```cmd Pasta de C:\GitHub\naldodj-tlpp 13/04/2024 19:17 . 19/03/2024 13:49 .. 05/01/2024 12:22 2.742 .gitattributes 14/11/2023 16:02 83 .gitignore 02/12/2023 20:08 .vscode 05/01/2024 12:05 bin 13/04/2024 19:18 4.121 ChangeLog.txt 27/12/2023 02:05 include 14/11/2023 16:02 27.030 LICENSE.txt 14/11/2023 16:02 0 makepatch.lst 14/11/2
Seguindo o que ja foi mencionado pelo Mestrao Lee (Dr. Naldo FrankStein), vamos brincar um pouco mais com o TOP (DBAccess) e até mesmo nao consumir licença de uso.. (op´s... sem licenças??? rs)
TOP - ODBC Genérico
TOP - ODBC Genérico
Com uma conexão genérica, é possível acessar qualquer banco de dados
moderno que dê suporte para ODBC. É possível realizar consultas através do
comando TCGENQRY e atualizar dados, através de TCSQLEXEC.
A única restrição é que não é possível “abrir” a tabela dentro do
Protheus utilizando DBUSEAREA porque para isso a tabela teria de estar registrada
dentro da TOP_FIELD. Como consequência, não é possível utilizar uma conexão
genérica como base principal do Protheus.
Para isso:
· Criar todo aquele lance de ODBC.. blablabla...
·
Criar um alias de
conexão usando qualquer tipo de banco
·
No INI do TOP (DBAccess):
o
Mudar a seção do banco
para [ODBC]. EX: [DB2] --> [ODBC]
o
Mudar o nome
da seção do alias criado.
·
[DB2/ALIAS_CRIADO]
--> [ODBC/ALIAS_CRIADO]
·
Mudar as seguintes
opções no INI
[General]
Port=7890
|
Porta ao qual o TOP abrira a escuta das conexões
|
[Service]
|
Seção a ser criada para definir o serviço do TOP
|
Name=TotvsDBAccess
|
Nome único do serviço (sem espaços)
|
Displayname=TotvsDBAccess 4.2 Padrao
|
Nome vísivel no gerenciador de serviços do
Windows
|
No ADVPL:
TCLINK( "ODBC/NOME_DO_ALIAS", cServidor, nPorta[CASO A PORTA SEJA
DIFERENTE DE 7890] )
... SEM GASTAR LICENÇA NO TOP (DBAccess)...
Ao usar o comando TCLINK uma licença de TOP (DBAccess) é consumida.
Para evitar que isso ocorra, basta concatenar a seguinte string no nome do
alias TOP : “@!!@”
No exemplo acima fica assim:
TCLINK( "@!!@ODBC/NOME_DO_ALIAS", cServidor, nPorta[CASO A PORTA SEJA DIFERENTE DE 7890] )
TCLINK( "@!!@ODBC/NOME_DO_ALIAS", cServidor, nPorta[CASO A PORTA SEJA DIFERENTE DE 7890] )
Mais tarde tem mais post!!!
Rodrigo "OVERFAIL"
Naldo,
ResponderExcluirIsso significa que utilizando a função TCLink NÃO podemos de forma alguma realizar um RecLock no banco remoto?
Putz...me ajudou a corrigir um fonte aqui, muito boa a dica.
ResponderExcluir