Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Composition Setup
import.css=/download/attachments/6062824/tecnologia.css

Pagetitle
TCGetDB
TCGetDB

Recupera o tipo do banco de dados relacional, em uso, pela conexão atual com o DBAccess.

...

Bloco de código
languagecpp
themeEclipse
linenumberstrue
collapsefalse
user function teste()
  Local nHandle := TCLink( "MSSQL/DSNP11-MSSQL", "127.0.0.1", 7890 )
  Local cDB := TcGetDB()
  
  If Empty( cBDcDB )
     MsgStop( "Não há conexão ativa." )
  Else
     MsgInfo( "Conectado com " + cBDcDB )
  Endif
  
  TCUnlink( nHandle )
return

...