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.
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
Curtir tópico
+ 0
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
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
Clique aqui para fazer login e interagir na Comunidade :)