Page Comparison

O objeto dmConexao3c é encontrado de forma comum entre os projetos de script, é através dele a principal comunicação do script com o servidor de aplicaçãoA 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 tópicos com exemplo 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;