Duvidas facil SQL

Question

ola estou passando o seguinte para um queryquery1.add.close;query1.add.clear;query1.add.sql(�select codigo, aluno, ativo�);query1.add.sql(�from tbalunos�);query1.add.sql(�where ativo=�Sim��);query1.op...

Datorre · Answer

Ol�...Use outra query, nela, vc faz um update, se for um registro s� � f�cil pegar o registro q vc quer alterar, tipo Query1.Fields[0].asstring pegar� o promeiro campo da tabela seleciona.Caso seja mais de um registro, fa�a um loop at� terminar as altera��es......

Jairroberto · Answer

Ol�, Zacca!Veja um exemplo:Defina a propriedade SQL de um componente TQuery da seguinte forma:[code:1:a8ba962207]Query2.SQL.Text := �UPDATE tbalunos SET ativo = "N�o" WHERE codigo = :codigo�;[/code:1:a8ba962207]No evento OnClick do bot�o desativar escreva o seguinte c�digo:[code:1:a8ba962207]Query2.ParamByName(�codigo�).AsInteger := Query1.FieldByName(�codigo�).AsInteger;Query2.ExecSQL;Query1.Close;Query1.Open;[/code:1:a8ba962207]Um abra�o,Jair...

Zacca · Answer

irei testar este procedimento que me passaram mas aindao tenho outra dubvvida... gostaria de localizar um registro pelo campo nome neste query que esta filtrado por ativos=sim digitando em um campo e depois clicando em um botao...

tipo se fosse uma tabeela normau eu faria um findnerest mas no query nao aceita...

obrigado...

Jairroberto · Answer

Ol�, Zacca!Use o m�todo Locate:function Locate(const KeyFields: string; const KeyValues: Variant; Options: TLocateOptions): Boolean; virtual;type  TLocateOption = (loCaseInsensitive, loPartialKey);  TLocateOptions = setof TLocateOption;Veja um exelplo:Query1.Locate(�nome�, Edit1.Text, [loCaseInsensitive, loPartialKey]);Veja o help do Delphi para entender melhor o funcionamento do m�todo Locate.Um abra�o,Jair...

F�rum Duvidas facil SQL #170088