Clipper On Line • Ver Tópico - Classe ADOHarbour

Classe ADOHarbour

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

Moderador: Moderadores

 

Classe ADOHarbour

Mensagempor asimoes » 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 165 vezes

     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
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

Exemplo anterior,entrada,saida,saldo

Mensagempor JoséQuintas » 28 Mar 2020 10:44

Não entendi nada. Tem certeza que não está complicando cada vez mais?
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18013
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Exemplo anterior,entrada,saida,saldo

Mensagempor asimoes » 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.
â–ºHarbour 3.x | Minigui xx-x | HwGuiâ—„
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes




Retornar para Contribuições, Dicas e Tutoriais

Quem está online

Usuários vendo este fórum: Google Adsense [Bot] e 15 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