'Select' e 'Update' com Query em Mem�ria (BDE)

Bem vindos!

Cada vez mais nos deparamos com situaç�es em que precisamos ter uma soluç�o para deixar nossa aplicaç�o din�mica para facilitar o uso. Hoje vou mostrar uma maneira simples de manipular os dados do database.

"Select" no Banco de dados com Query em Mem�ria
(O exemplo est� sendo baseado em conex�o via BDE):

procedure TForm1.dadosMemoria1;
var
qryTemp: TQuery; //declara a classe TQuery para o objeto qryTemp.
vSNomeCliente: String;
begin
//cria o objeto TQuery.
qryTemp := TQuery.Create(nil);
with qryTemp do
begin
    //Nome da conex�o.
    DatabaseName := ''''nomeConexao'''';
    Close;
    Sql.Clear;
    //Consulta simples no banco de dados que retorna o cliente de c�digo 1.
    Sql.Add(''''Select *'''');
    Sql.Add(''''From clientes'''');
    Sql.Add(''''Where cliCodigo = :codigo'''');
    ParamByName(''''codigo'''').AsInteger := 1;
    if not Prepared then
      Prepare;
    Open;
end;
//A vari�vel do tipo string recebe o campo nome do banco de dados.
vSNomeCliente := qryTemp.FieldByName(''''cliNome'''').AsString;
//Limpa a query que estava em mem�ria.
qryTemp.Free;
end;

Update no Banco de Dados com Query em Mem�ria
(O exemplo est� sendo baseado em conex�o via BDE):

procedure TForm1.dadosMemoria2;
var
qryTemp: TQuery; //declara a classe TQuery para o objeto qryTemp.
begin
//cria o objeto TQuery.
qryTemp := TQuery.Create(nil);
with qryTemp do
begin
    //Nome da conex�o.
    DatabaseName := ''''nomeConexao'''';
    Close;
    Sql.Clear;
    //Update simples no banco de dados que define o nome Teste para o cliente de c�digo 1.
    Sql.Add(''''Update clientes'''');
    Sql.Add(''''Set cliNome = :nome'''');
    Sql.Add(''''Where cliCodigo = :codigo'''');
    ParamByName(''''nome'''').AsString := ''''Teste'''';
    ParamByName(''''codigo'''').AsInteger := 1;
    ExecSql;
end;
//Limpa a query que estava em mem�ria.
qryTemp.Free;
end;

Qualquer d�vida estou a disposiç�o.

"Select" e "Update" com Query em Mem�ria (BDE)

Cada vez mais nos deparamos com situações em que precisamos ter uma solução para deixar nossa aplicação dinâmica para facilitar o uso. Hoje vou mostrar uma maneira simples de manipular os dados do database.

Artigos relacionados