Would it be possible to display the error text below?
Alert SQLLIB/1000 MySQL RDD: Can't connect to MySQL server on '10.0.0.120' (10065)
I Wanted to Give the User Some Personalized Information
https://i.ibb.co/hyWkkZy/Whats-App-Imag ... -54-22.jpg
- Code: Select all Expand view
Aplicacao
=============================
Empresa...: Nome da Empresa Materiais Eletricos Ltda
Data Erro.: 12/09/2024, 17:50:45
Caminho...: C:\INFORMAIS\MESTOQ.EXE (32 bits)
Versao....: xHarbour 1.2.3 Intl. (SimpLex) (Build 20201212)
FiveWin...: FWH 22.03
Compilador: Borland/Embarcadero C++ 7.4 (32-bit)
Windows...: 6.2, Build 9200
Abaixo a Descriao do Erro
Alerta SQLLIB/1000 MySQL RDD: Can't connect to MySQL server on '10.0.0.120' (10065)
Rotinas / Linhas Chamadas
=============================
Chamada por..: .\sql_error.prg => sql_error( 165 )
Chamada por..: => dbusearea( 0 )
Chamada por..: C:\PROJETOS\MESTOQ\PRG_OBJ\CD_NIVEIS_ACESSO.PRG => ver_controle_de_acesso( 445 )
Chamada por..: C:\PROJETOS\MESTOQ\PRG_OBJ\CD_PRODUTOS.PRG => (b)cad_produtos( 778 )
Chamada por..: .\source\classes\WINDOW.PRG => tdialog:aevalwhen( 3019 )
Chamada por..: .\source\classes\WINDOW.PRG => tdialog:aevalwhen( 3027 )
Chamada por..: .\source\classes\CONTROL.PRG => tget:forwhen( 935 )
Chamada por..: .\source\classes\CONTROL.PRG => tget:fwlostfocus( 1209 )
Chamada por..: .\source\classes\CONTROL.PRG => tcontrol:handleevent( 1802 )
Chamada por..: .\source\classes\TGET.PRG => tget:handleevent( 1279 )
Chamada por..: .\source\classes\WINDOW.PRG => _fwh( 3559 )
Chamada por..: => dialogbox( 0 )
Chamada por..: .\source\classes\DIALOG.PRG => tdialog:activate( 304 )
Chamada por..: C:\PROJETOS\MESTOQ\PRG_OBJ\CD_PRODUTOS.PRG => cad_produtos( 1940 )
Chamada por..: C:\PROJETOS\MESTOQ\PRG_OBJ\SISTEMA.PRG => (b)monta_menu_ribbon( 3022 )
Chamada por..: .\source\classes\TRBTN.PRG => trbtn:click( 717 )
Chamada por..: .\source\classes\TRBTN.PRG => trbtn:lbuttonup( 920 )
Chamada por..: .\source\classes\CONTROL.PRG => tcontrol:handleevent( 1817 )
Chamada por..: .\source\classes\TRBTN.PRG => trbtn:handleevent( 1578 )
Chamada por..: .\source\classes\WINDOW.PRG => _fwh( 3559 )
Chamada por..: => winrun( 0 )
Chamada por..: .\source\classes\WINDOW.PRG => twindow:activate( 1097 )
Chamada por..: C:\PROJETOS\MESTOQ\PRG_OBJ\SISTEMA.PRG => main( 1721 )