27 Mar 2020 21:05
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
28 Mar 2020 10:44
28 Mar 2020 14:11
JoséQuintas escreveu:Não entendi nada. Tem certeza que não está complicando cada vez mais?