GARANTIR DESCONTO

Fórum Duvida de iniciante em comandos SQL?? #182775

18/09/2003

0

Ola pessoal, eu ainda não consigo entender direito esse negocio de commandos em SQL, bom eu desenvolvi um sistema de controle de funcionários e agora preciso gerar um relatório com todos os funcionários de uma respectiva partição, detalhe os campos que identificam a partição são campos lógicos (L) em banco de dados paradox da seguinte maneira:

tb_servidores
Funcionarios.db

nome A 40
...
...
est L
est_edu L
Federal L
fed_edu L
...
..

eu coloquei uma query e coloquei a seguinte instrução nela:
select nome, ende, numero, bairro, telefone1, celular from funcionarios
order by 1

agora para buscar os dados é que eu me enrolo todo eu fiz isso, mas não funciona.

procedure TForm_Principal.SpeedButton6Click(Sender: TObject);
var zonal:string;
begin
zonal:=(form_principal.tb_servidoresEst.Text);
with form_principal.tb_servidores do
begin
form_principal.Query1.SQL.Clear;
form_principal.Query1.SQL.Add(´SELECT * FROM funcionarios where zona= :pzonal´);
form_principal.Query1.ParamByName(´pzonal´).AsString := (zonal);
form_principal.Query1.Prepare;
form_principal.Query1.Open;
form_imp_geral.QuickRep1.Preview;
end;
end;

Alguem pode me ajudar fico muito grato, eu sinceramente não sei trabalhar com esse negocio de query e tal, ha mais uma coisa se alguem tiver uma apostila que fale disso e tal, pode me mandar por favor.


Machado

Machado

Responder

Posts

18/09/2003

Machado

Resolvi meu proprio problema

o que estava ocorrendo é que a estrutura na hora de buscar os campos estava trocada está funcionando assim:


var est:string;
// est é o campo onde deve ser verificado.
begin
est:=´true´;
with form_principal.tb_servidores do
begin
form_principal.Query1.SQL.Clear;
form_principal.Query1.SQL.Add(´select * from funcionarios where est= :pzonal´);
form_principal.Query1.ParamByName(´pzonal´).AsString := (est);
form_principal.Query1.Prepare;
form_principal.Query1.Open;
form_imp_geral.QRLabel1.Caption:=´Lista dos Servidores Estaduais´;
form_imp_geral.QuickRep1.Preview;
end;


hahaha :D


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar