#include "protheus.ch"
#include "TbiConn.ch"
#include "TbiCode.ch"
#include "TopConn.ch

user function relint()

  Local cDBOra  := "MW_CLASSIC/MSSQL7" // alterar o alias/dsn para o banco/conexão que está utilizando
  Local cSrvOra  := "192.168.0.189" // alterar para o ip do DbAccess

  nHwnd := TCLink(cDBOra, cSrvOra, 7890)

  if nHwnd >= 0
    Alert("Conectado")
  endif

  TCUnlink()

return