Skip to end of metadata
Go to start of metadata

You are viewing an old version of this page. View the current version.

Compare with Current View Page History

« Previous Version 3 Next »

A variável dmConexao3c representa o objeto que faz a comunicação do scripter com o servidor de aplicação ele é disponibilizado de forma muito comum entre os eventos de script.

O objeto pode ser utilizado para buscar dados do banco de dados, assim, como gravar informações, criar estrutura de manutenções entre outros.

Todas as chamadas utilizadas por esse objeto são auditados conforme as configurações definidas de auditoria para as demais telas da aplicação. Vale lembrar aqui a importância de ter configurado corretamente a auditoria e a configuração de cada usuário, a fim de ter controle sobre qualquer transação realizada via VsScripter.

Alguns dos métodos do “dmConexao3c” que podem ser utilizados: (concluir)

  • QueryPegaCampo
    Busca determinando valor de um campo no banco de dados. Seu retorno é variant, sendo assim esse valor pode ser uma data, valor numérico ou texto que deve ser tratado em seu retorno.

  • QueryPegaData
    Busca no banco de dados um conjunto de dados conforme consulta SQL e parâmetros passados e retorna

Segue uma lista de exemplos de utilização de chamadas que podem ser realizadas com o dmConexao3c.

Buscar um valor:

Buscar um conjunto de valores e associar a um “Data” de TClientDataSet:

Iniciar manutenção de registros no banco de dados e salvar as informações:

uses
  DB, DbClient;

var
  cds  : TClientDataSet;    
begin
  cds := TClientDataSet.Create(nil);
  try                                                                        
    dmConexao3c.GetDspEdicao(cds, 'U_REGPESSOAS', true);
    cds.Open; 
    cds.Append;  
    cds.FieldByName('U_REGPESSOAS_ID').value := dmConexao3c.QueryPegaCampo('SEL_PADRAO_COM_WHERE',
                                                                           'MAX(U_REGPESSOAS_ID)',
                                                                         ['?', '1:s', 'U_REGPESSOAS',              
                                                                          '?', '2:s', '0=0'],   
                                                                         [ftString, ftString],
                                                                         [20, 100])+1;

    cds.FieldByName('NOME').value := FRhPessoa.ValorNaTela('NOME');
    cds.FieldByName('IDADE').value := 10;
    cds.post;
    dmConexao3c.CDSApplyUpdates([cds]);
  finally
    cds.Free;
  end;
end;  
  • No labels