Clipper On Line • Ver Tópico - Importante sobre ADO

Importante sobre ADO

Aqui você poderá oferecer suas Contribuições, Dicas e Tutoriais (Texto ou Vídeo) que sejam de interesse de todos.

Moderador: Moderadores

 

Importante sobre ADO

Mensagempor JoséQuintas » 29 Jan 2020 19:16

Não lembro se usar ADO sem nada adicional, se aparecem direito as mensagens de erro.
Isso é muito importante.

Erro executando comando:-2147217900 [ma-3.1.6][10.4.11-MariaDB]You have an error in your SQL syntax; check the manual that corresponds to your MariaDB server version for the right syntax to use near '.CDNOME AS CADNOME, JPCADASTRO.CDENDERECO AS CADENDERECO, JPTRANSP.CDNOME AS TRA' at line 1

SELECT NFFILIAL, NFNOTFIS, NFPEDIDO, NFCOP, NFVALNOT, NFVALFRE, NFVALSEG, NFVALOUT, NFCADTRA, NFSTATUS, NFOBS1, NFINFINC, NFINFALT JPCADASTRO.CDNOME AS CADNOME, JPCADASTRO.CDENDERECO AS CADENDERECO, JPTRANSP.CDNOME AS TRANOME FROM JPNOTFIS LEFT JOIN JPCADASTRO ON JPCADASTRO.IDCADASTRO = JPNOTFIS.NFCADDES LEFT JOIN JPTRANSP ON JPTRANSP.IDTRANSP = JPNOTFIS.NFCADTRA WHERE IDNOTFIS='184725';

Called from ADOCLASS:EXECUTECMD(263)
Called from ADOCLASS:EXECUTE(227)
Called from JPNOTFISCLASS:TELADADOS(141)
Called from JPNOTFISCLASS:EXECUTE(328)
Called from PJPNOTFIS(32)
Called from DO(0)
Called from DOPRG(119)
Called from (b)RUNMODULE(88)

O erro é simples, faltou uma vírgula separando campos.
Mas sem a mensagem de erro.... talvez fosse mais complicado encontrar o erro.
Não lembro se usar ADO diretamente mostra isso.

É que de repente muitos ficam animados, e sem a mensagem podem desanimar.

Sem problemas, qualquer coisa é só avisar.
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 13531
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 839 vezes

Importante sobre ADO

Mensagempor JoséQuintas » 29 Jan 2020 19:21

Em todo caso:

BEGIN SEQUENCE WITH __BreakBlock()
   Rs := ::Cn:Execute( cSql )
   lOk := .T.
ENDSEQUENCE
IF ! lOk
   cMensagem += "Erro executando comando:" + LTrim( Str( ::Cn:Errors( 0 ):Number( ) ) ) + " " + ::Cn:Errors( 0 ):Description()   
ENDIF


O erro fica na conexão, só pegar o número e a descrição do erro.
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 13531
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 13 vezes
Mens.Curtidas: 839 vezes




Retornar para Contribuições, Dicas e Tutoriais

Quem está online

Usuários vendo este fórum: Google Adsense [Bot] e 3 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro