Clipper On Line • Ver Tópico - Classe ADOHarbour
Mudar para estilo Clássico
Aqui você poderá oferecer suas Contribuições, Dicas e Tutoriais (Texto ou Vídeo) que sejam de interesse de todos.
Postar uma resposta

Classe ADOHarbour

27 Mar 2020 21:05

Quem quiser estudar a classe adoharbour e melhorar fique a vontade
Essa SP retorna uma lista (cursor)
A função retorna uma HashTable
CLASSE_ADO.PRG
(54.14 KiB) Baixado 166 vezes

Código:
     oConexao := ADO():New()
     
      cPLSQL := "asaprev.Busca"
     
      aVarS  := { { "p_sCodigo", '20735',      "V", "I" }, ;
                    { "p_sErro",   Space(100),   "V", "O" } ;
                }
     
      aVarS := {}
     
      aNmCampo := { "CODIGO", "NOME", "ENDERECO"  }
     
      aDados := {}
     
      IF oConexao:AdoPLSQL( @oRecordSet, cPLSQL, @aVarS, "P", @cErro, .T., @aDados, aNmCampo ) != 0
      ENDIF

Exemplo anterior,entrada,saida,saldo

28 Mar 2020 10:44

Não entendi nada. Tem certeza que não está complicando cada vez mais?

Exemplo anterior,entrada,saida,saldo

28 Mar 2020 14:11

JoséQuintas escreveu:Não entendi nada. Tem certeza que não está complicando cada vez mais?

Você não é obrigado a usar o que eu posto, pode ignorar e fique com as suas soluções.
Postar uma resposta