gravar pesquisa de uma tabela em outra tabela
Página 1 de 1
gravar pesquisa de uma tabela em outra tabela
Olá pessoal! alguém pode me ajudar? tenho um form de pesquisa..tabela paradox
gostaria de gravar esta pesquisa numa nova tabela, mas não consigo...
gostaria de gravar os seguintes dados na nova tabela.
Numlab\ NomAna\ amostra\ nomfor\resultados\unidade
Obrigado!
procedure TFrmPesquisar.Relacionamento;
begin
with dtmGeral.sqlGrid do
begin
active:=false;
sql.clear;
SQL.Add('select Analises.NumLab,Camostras.amostra,Canalises.NomAna,Analises.Replica,Cniveis.MinPad,Cniveis.MaxPad,Analises.Resultado,Analises.Unidade,Canalises.numana,cfornecedores.nomfor,Ccidade.CidFor,Ccidade.estFor,status');
SQL.add('from Canalises,Analises,Cniveis,CAmostras,cadastros,Cfornecedores,Ccidade');
SQL.add('where (Canalises.CodAna=Analises.codana) and (CNiveis.CodNiv=analises.codNiv)and(Camostras.CodAmo=Analises.codamo)and (Cadastros.numlab=Analises.numlab) and (cfornecedores.codfor=Cadastros.codfor) and (Ccidade.codcid=Cadastros.codcid) and (status="'+status+'")'); // (NumLab="'+edtNumLab.text+'")and (CNiveis.CodNiv=analises.codNiv)
if CMBAmostras.text <> 'Todas' then
sql.add(' and (CAmostras.Amostra="'+CMBAmostras.text+'")');
if CMBAnalises.text <> 'Todas' then
sql.add(' and (CAnalises.NomAna="'+CMBAnalises.text+ '")');
if CMBNumLab.text <> 'Todos' then
sql.add(' and (Analises.NumLab="'+CMBNumLab.text+'")');
if CMBfornecedores.text <> 'Todos' then
sql.add(' and (Cfornecedores.NomFor="'+CMBFornecedores.text+'")');
if CMBcidade.text <> 'Todas' then
sql.add(' and (Ccidade.cidfor="'+CMBcidade.text+'")');
if CMBanalises.text <> 'Todas' then
sql.add(' and (canalises.nomana="'+CMBanalises.text+'")');
sql.add('order by NumLab,numana');
active:=true;
end;
end;
gostaria de gravar esta pesquisa numa nova tabela, mas não consigo...
gostaria de gravar os seguintes dados na nova tabela.
Numlab\ NomAna\ amostra\ nomfor\resultados\unidade
Obrigado!
procedure TFrmPesquisar.Relacionamento;
begin
with dtmGeral.sqlGrid do
begin
active:=false;
sql.clear;
SQL.Add('select Analises.NumLab,Camostras.amostra,Canalises.NomAna,Analises.Replica,Cniveis.MinPad,Cniveis.MaxPad,Analises.Resultado,Analises.Unidade,Canalises.numana,cfornecedores.nomfor,Ccidade.CidFor,Ccidade.estFor,status');
SQL.add('from Canalises,Analises,Cniveis,CAmostras,cadastros,Cfornecedores,Ccidade');
SQL.add('where (Canalises.CodAna=Analises.codana) and (CNiveis.CodNiv=analises.codNiv)and(Camostras.CodAmo=Analises.codamo)and (Cadastros.numlab=Analises.numlab) and (cfornecedores.codfor=Cadastros.codfor) and (Ccidade.codcid=Cadastros.codcid) and (status="'+status+'")'); // (NumLab="'+edtNumLab.text+'")and (CNiveis.CodNiv=analises.codNiv)
if CMBAmostras.text <> 'Todas' then
sql.add(' and (CAmostras.Amostra="'+CMBAmostras.text+'")');
if CMBAnalises.text <> 'Todas' then
sql.add(' and (CAnalises.NomAna="'+CMBAnalises.text+ '")');
if CMBNumLab.text <> 'Todos' then
sql.add(' and (Analises.NumLab="'+CMBNumLab.text+'")');
if CMBfornecedores.text <> 'Todos' then
sql.add(' and (Cfornecedores.NomFor="'+CMBFornecedores.text+'")');
if CMBcidade.text <> 'Todas' then
sql.add(' and (Ccidade.cidfor="'+CMBcidade.text+'")');
if CMBanalises.text <> 'Todas' then
sql.add(' and (canalises.nomana="'+CMBanalises.text+'")');
sql.add('order by NumLab,numana');
active:=true;
end;
end;
Vagner- Membro
- Mensagens : 1
Data de inscrição : 05/04/2012
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
Seg Jul 27, 2015 11:42 am por Fredyffp
» Fontes Sistema Store Protheus 7.0 - Versão completa Delphi XE7
Sáb Jul 18, 2015 10:18 am por storeprotheus
» Fontes Sistema Store Protheus 7.0 - Versão completa Delphi XE7
Sáb Jul 18, 2015 10:17 am por storeprotheus
» Como gravar um campo Blob no FireBird + Delphi de um campo tipo imagem no MS-ACCESS ?
Qui maio 14, 2015 3:41 pm por ant.carlos/sp
» Exception EBDEngineError
Sex Fev 27, 2015 6:52 am por luan_cpd
» Exception EBDEngineError
Sex Fev 27, 2015 6:49 am por luan_cpd
» Componente Delphi Brasil
Sex Jan 23, 2015 11:51 am por pedrosilva
» Erro no Delphi “A linha não pode ser localizada para atualiz
Sex Out 24, 2014 11:47 am por Edson
» Fontes Automação Comercial 8.5 - Retaguarda c/ PDV, PAF 1.10, TEF, ECF, Sintegra, SpedFiscal, Google Maps e muito mas...
Ter Out 14, 2014 9:55 am por john marcos