| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
douglas_fc
Profissional
Registrado: Quarta-Feira, 26 de Mai de 2010
Mensagens: 672
|
 Enviada: Qua Ago 08, 2012 8:43 am Assunto: Duvida usar ProgressBar |
 |
|
Bom dia,
Galera gostaria de usar uma ProgressBar ao gravar dados na minha query, queria saber a logica , estou usando um dbgrig quando gravo e faço o loop o tempo que demora a percorrer toda a grid a ProgressBar fosse carregando tb.
espero que entendam qualquer coisa posto mais detalhes
_________________
O conhecimento só tem valor quando compartilhado!
Douglas Sousa |
|
| Voltar ao Topo |
|
 |
maizena
Colaborador
Registrado: Terça-Feira, 20 de Março de 2012
Mensagens: 1497
Localização: Laguna - SC
|
|
| Voltar ao Topo |
|
|
Ghost_Rider
Colaborador
Registrado: Segunda-Feira, 6 de Outubro de 2003
Mensagens: 4437
|
| Enviada: Qua Ago 08, 2012 8:51 am Assunto: |
|
|
É amigo, tambem não entendi muito bem...gravar dados na "query", percorrer dbgrid....
Quais componentes vc esta usando, ta usando CDS....como é ? |
|
| Voltar ao Topo |
|
|
douglas_fc
Profissional
Registrado: Quarta-Feira, 26 de Mai de 2010
Mensagens: 672
|
| Enviada: Qua Ago 08, 2012 9:02 am Assunto: |
|
|
no caso uso uma query para consultar uns registros e me mostra os dados na grid, então apartir desses dados insiro em outra tabela mais ou menos assim:
| Código: | query_consulta.Open;
query_consulta.First;
while not (query_consulta.eof) do // percorre a query
begin
query_insere.ParamByName('Campo1').AsString := query_consulta.FieldByName('Campo1').AsString;
query_consulta.Next; // move para o próximo registro
end; |
uso componentes do interbase : TIBDataBse , TIBQuery ,
banco de dados é o Firebird 2,5 e delphi 2010.
espero que tenha ficado um pouco mais claro.
_________________
O conhecimento só tem valor quando compartilhado!
Douglas Sousa |
|
| Voltar ao Topo |
|
|
maizena
Colaborador
Registrado: Terça-Feira, 20 de Março de 2012
Mensagens: 1497
Localização: Laguna - SC
|
| Enviada: Qua Ago 08, 2012 9:19 am Assunto: |
|
|
bom intaum faça assim
| Código: |
var
pb_cont:integer;
begin
pb_cont:=0;
query_consulta.Open;
query_consulta.First;
pb1.max:=query.RecordCount;
while not (query_consulta.eof) do // percorre a query
begin
query_insere.ParamByName('Campo1').AsString := query_consulta.FieldByName('Campo1').AsString;
pb.position:=pb_cont;
pb_cont:=pb_cont+1;
query_consulta.Next; // move para o próximo registro
end;
|
Espero que ajude
_________________
Canal Delphi+ INSCREVA-SE: http://www.youtube.com/channel/UCnVF5ly5PRwZONE-U7xZM6w?feature=watch |
|
| Voltar ao Topo |
|
|
douglas_fc
Profissional
Registrado: Quarta-Feira, 26 de Mai de 2010
Mensagens: 672
|
| Enviada: Qua Ago 08, 2012 9:26 am Assunto: |
|
|
Blz Maizena obrigado parceiro vou testar aki e posto o resultado.
_________________
O conhecimento só tem valor quando compartilhado!
Douglas Sousa |
|
| Voltar ao Topo |
|
|
Ghost_Rider
Colaborador
Registrado: Segunda-Feira, 6 de Outubro de 2003
Mensagens: 4437
|
| Enviada: Qua Ago 08, 2012 10:21 am Assunto: |
|
|
Depois do cont, coloca assim :
Application.ProcessMessages |
|
| Voltar ao Topo |
|
|
maizena
Colaborador
Registrado: Terça-Feira, 20 de Março de 2012
Mensagens: 1497
Localização: Laguna - SC
|
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
