Jump to content

Artur Alves Junior

Members
  • Content count

    1
  • Joined

  • Last visited

Community Reputation

0 Comum

About Artur Alves Junior

  1. Artur Alves Junior

    Exibir resultado da pesquisa mysql em label

    galera estou tentando fazer uma pesquisa em mysql e quero que ele exiba isto em um label so que eu preciso de 27 buscas na mesma tabela meu codigo esta assim begin; with DM.SQL_Batidas do begin; Close; //SQL.Clear; SQL.Add('Select * from batidas'); SQL.Add('where btd_a = :1a'); ParamByName('1a').Value := edt25.Text; SQL.Add('and btd_b = :1b'); ParamByName('1b').Value := edt28.Text; SQL.Add('and btd_c = :1c'); ParamByName('1c').Value := edt31.Text; Open; end; end; begin; with DM.SQL_Batidas do begin; Close; //SQL.Clear; SQL.Add('Select * from batidas'); SQL.Add('where btd_a = :1a'); ParamByName('1a').Value := edt25.Text; SQL.Add('and btd_b = :1b'); ParamByName('1b').Value := edt28.Text; SQL.Add('and btd_c = :1c'); ParamByName('1c').Value := edt32.Text; Open; end; end; begin; with DM.SQL_Batidas do begin; Close; //SQL.Clear; SQL.Add('Select * from batidas'); SQL.Add('where btd_a = :1a'); ParamByName('1a').Value := edt25.Text; SQL.Add('and btd_b = :1b'); ParamByName('1b').Value := edt28.Text; SQL.Add('and btd_c = :1c'); ParamByName('1c').Value := edt33.Text; Open; end; end; begin; with DM.SQL_Batidas do begin; Close; //SQL.Clear; SQL.Add('Select * from batidas'); SQL.Add('where btd_a = :1a'); ParamByName('1a').Value := edt25.Text; SQL.Add('and btd_b = :1b'); ParamByName('1b').Value := edt29.Text; SQL.Add('and btd_c = :1c'); ParamByName('1c').Value := edt31.Text; Open; end; end; begin; with DM.SQL_Batidas do begin; Close; //SQL.Clear; SQL.Add('Select * from batidas'); SQL.Add('where btd_a = :1a'); ParamByName('1a').Value := edt25.Text; SQL.Add('and btd_b = :1b'); ParamByName('1b').Value := edt29.Text; SQL.Add('and btd_c = :1c'); ParamByName('1c').Value := edt32.Text; Open; end; end; begin; with DM.SQL_Batidas do begin; Close; //SQL.Clear; SQL.Add('Select * from batidas'); SQL.Add('where btd_a = :1a'); ParamByName('1a').Value := edt25.Text; SQL.Add('and btd_b = :1b'); ParamByName('1b').Value := edt29.Text; SQL.Add('and btd_c = :1c'); ParamByName('1c').Value := edt33.Text; Open; end; end; begin; with DM.SQL_Batidas do begin; Close; //SQL.Clear; SQL.Add('Select * from batidas'); SQL.Add('where btd_a = :1a'); ParamByName('1a').Value := edt25.Text; SQL.Add('and btd_b = :1b'); ParamByName('1b').Value := edt30.Text; SQL.Add('and btd_c = :1c'); ParamByName('1c').Value := edt31.Text; Open; end; end; begin; with DM.SQL_Batidas do begin; Close; //SQL.Clear; SQL.Add('Select * from batidas'); SQL.Add('where btd_a = :1a'); ParamByName('1a').Value := edt25.Text; SQL.Add('and btd_b = :1b'); ParamByName('1b').Value := edt30.Text; SQL.Add('and btd_c = :1c'); ParamByName('1c').Value := edt32.Text; Open; end; end; begin; with DM.SQL_Batidas do begin; Close; //SQL.Clear; SQL.Add('Select * from batidas'); SQL.Add('where btd_a = :1a'); ParamByName('1a').Value := edt25.Text; SQL.Add('and btd_b = :1b'); ParamByName('1b').Value := edt30.Text; SQL.Add('and btd_c = :1c'); ParamByName('1c').Value := edt33.Text; Open; end; end; begin; with DM.SQL_Batidas do begin; Close; //SQL.Clear; SQL.Add('Select * from batidas'); SQL.Add('where btd_a = :1a'); ParamByName('1a').Value := edt26.Text; SQL.Add('and btd_b = :1b'); ParamByName('1b').Value := edt28.Text; SQL.Add('and btd_c = :1c'); ParamByName('1c').Value := edt31.Text; Open; end; end; begin; with DM.SQL_Batidas do begin; Close; //SQL.Clear; SQL.Add('Select * from batidas'); SQL.Add('where btd_a = :1a'); ParamByName('1a').Value := edt26.Text; SQL.Add('and btd_b = :1b'); ParamByName('1b').Value := edt28.Text; SQL.Add('and btd_c = :1c'); ParamByName('1c').Value := edt32.Text; Open; end; end; begin with DM.SQL_Batidas do begin; Close; //SQL.Clear; SQL.Add('Select * from batidas'); SQL.Add('where btd_a = :1a'); ParamByName('1a').Value := edt26.Text; SQL.Add('and btd_b = :1b'); ParamByName('1b').Value := edt28.Text; SQL.Add('and btd_c = :1c'); ParamByName('1c').Value := edt33.Text; Open; end; end; begin; with DM.SQL_Batidas do begin; Close; //SQL.Clear; SQL.Add('Select * from batidas'); SQL.Add('where btd_a = :1a'); ParamByName('1a').Value := edt26.Text; SQL.Add('and btd_b = :1b'); ParamByName('1b').Value := edt29.Text; SQL.Add('and btd_c = :1c'); ParamByName('1c').Value := edt31.Text; Open; end; end; begin; with DM.SQL_Batidas do begin; Close; //SQL.Clear; SQL.Add('Select * from batidas'); SQL.Add('where btd_a = :1a'); ParamByName('1a').Value := edt26.Text; SQL.Add('and btd_b = :1b'); ParamByName('1b').Value := edt29.Text; SQL.Add('and btd_c = :1c'); ParamByName('1c').Value := edt32.Text; Open; end; end; begin; with DM.SQL_Batidas do begin; Close; //SQL.Clear; SQL.Add('Select * from batidas'); SQL.Add('where btd_a = :1a'); ParamByName('1a').Value := edt26.Text; SQL.Add('and btd_b = :1b'); ParamByName('1b').Value := edt29.Text; SQL.Add('and btd_c = :1c'); ParamByName('1c').Value := edt33.Text; Open; end; end; begin; with DM.SQL_Batidas do begin; Close; //SQL.Clear; SQL.Add('Select * from batidas'); SQL.Add('where btd_a = :1a'); ParamByName('1a').Value := edt26.Text; SQL.Add('and btd_b = :1b'); ParamByName('1b').Value := edt30.Text; SQL.Add('and btd_c = :1c'); ParamByName('1c').Value := edt31.Text; Open; end; end; begin; with DM.SQL_Batidas do begin; Close; //SQL.Clear; SQL.Add('Select * from batidas'); SQL.Add('where btd_a = :1a'); ParamByName('1a').Value := edt26.Text; SQL.Add('and btd_b = :1b'); ParamByName('1b').Value := edt30.Text; SQL.Add('and btd_c = :1c'); ParamByName('1c').Value := edt32.Text; Open; end; end; begin; with DM.SQL_Batidas do begin; Close; //SQL.Clear; SQL.Add('Select * from batidas'); SQL.Add('where btd_a = :1a'); ParamByName('1a').Value := edt26.Text; SQL.Add('and btd_b = :1b'); ParamByName('1b').Value := edt30.Text; SQL.Add('and btd_c = :1c'); ParamByName('1c').Value := edt33.Text; Open; end; end; begin; with DM.SQL_Batidas do begin; Close; //SQL.Clear; SQL.Add('Select * from batidas'); SQL.Add('where btd_a = :1a'); ParamByName('1a').Value := edt27.Text; SQL.Add('and btd_b = :1b'); ParamByName('1b').Value := edt28.Text; SQL.Add('and btd_c = :1c'); ParamByName('1c').Value := edt31.Text; Open; end; end; begin; with DM.SQL_Batidas do begin; Close; //SQL.Clear; SQL.Add('Select * from batidas'); SQL.Add('where btd_a = :1a'); ParamByName('1a').Value := edt27.Text; SQL.Add('and btd_b = :1b'); ParamByName('1b').Value := edt28.Text; SQL.Add('and btd_c = :1c'); ParamByName('1c').Value := edt32.Text; Open; end; end; begin; with DM.SQL_Batidas do begin; Close; //SQL.Clear; SQL.Add('Select * from batidas'); SQL.Add('where btd_a = :1a'); ParamByName('1a').Value := edt27.Text; SQL.Add('and btd_b = :1b'); ParamByName('1b').Value := edt28.Text; SQL.Add('and btd_c = :1c'); ParamByName('1c').Value := edt33.Text; Open; end; end; begin with DM.SQL_Batidas do begin; Close; //SQL.Clear; SQL.Add('Select * from batidas'); SQL.Add('where btd_a = :1a'); ParamByName('1a').Value := edt27.Text; SQL.Add('and btd_b = :1b'); ParamByName('1b').Value := edt29.Text; SQL.Add('and btd_c = :1c'); ParamByName('1c').Value := edt31.Text; Open; end; end; begin; with DM.SQL_Batidas do begin; Close; //SQL.Clear; SQL.Add('Select * from batidas'); SQL.Add('where btd_a = :1a'); ParamByName('1a').Value := edt27.Text; SQL.Add('and btd_b = :1b'); ParamByName('1b').Value := edt29.Text; SQL.Add('and btd_c = :1c'); ParamByName('1c').Value := edt32.Text; Open; end; end; begin; with DM.SQL_Batidas do begin; Close; //SQL.Clear; SQL.Add('Select * from batidas'); SQL.Add('where btd_a = :1a'); ParamByName('1a').Value := edt27.Text; SQL.Add('and btd_b = :1b'); ParamByName('1b').Value := edt29.Text; SQL.Add('and btd_c = :1c'); ParamByName('1c').Value := edt33.Text; Open; end; end; begin; with DM.SQL_Batidas do begin; Close; //SQL.Clear; SQL.Add('Select * from batidas'); SQL.Add('where btd_a = :1a'); ParamByName('1a').Value := edt27.Text; SQL.Add('and btd_b = :1b'); ParamByName('1b').Value := edt30.Text; SQL.Add('and btd_c = :1c'); ParamByName('1c').Value := edt31.Text; Open; end; end; begin; with DM.SQL_Batidas do begin; Close; //SQL.Clear; SQL.Add('Select * from batidas'); SQL.Add('where btd_a = :1a'); ParamByName('1a').Value := edt27.Text; SQL.Add('and btd_b = :1b'); ParamByName('1b').Value := edt30.Text; SQL.Add('and btd_c = :1c'); ParamByName('1c').Value := edt32.Text; Open; end; end; begin; with DM.SQL_Batidas do begin; Close; //SQL.Clear; SQL.Add('Select * from batidas'); SQL.Add('where btd_a = :1a'); ParamByName('1a').Value := edt27.Text; SQL.Add('and btd_b = :1b'); ParamByName('1b').Value := edt30.Text; SQL.Add('and btd_c = :1c'); ParamByName('1c').Value := edt33.Text; Open; end; end;
×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.