Delphi Brasil
Seja bem-vindo (a) ao Delphi Brasil,aqui você encontrará dicas,tutoriais e etc.
Por favor,registre-se para obter o maior proveito possivel do fórum.

Participe do fórum, é rápido e fácil

Delphi Brasil
Seja bem-vindo (a) ao Delphi Brasil,aqui você encontrará dicas,tutoriais e etc.
Por favor,registre-se para obter o maior proveito possivel do fórum.
Delphi Brasil
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
Procurar
 
 

Resultados por:
 


Rechercher Pesquisa avançada

Entrar

Esqueci-me da senha

Últimos assuntos
» Problemas para atualizar carteira bamcaria no delphi 5
gravar pesquisa de uma tabela em outra tabela EmptySeg Jul 27, 2015 11:42 am por Fredyffp

» Fontes Sistema Store Protheus 7.0 - Versão completa Delphi XE7
gravar pesquisa de uma tabela em outra tabela EmptySáb Jul 18, 2015 10:18 am por storeprotheus

» Fontes Sistema Store Protheus 7.0 - Versão completa Delphi XE7
gravar pesquisa de uma tabela em outra tabela EmptySá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 ?
gravar pesquisa de uma tabela em outra tabela EmptyQui maio 14, 2015 3:41 pm por ant.carlos/sp

»  Exception EBDEngineError
gravar pesquisa de uma tabela em outra tabela EmptySex Fev 27, 2015 6:52 am por luan_cpd

» Exception EBDEngineError
gravar pesquisa de uma tabela em outra tabela EmptySex Fev 27, 2015 6:49 am por luan_cpd

» Componente Delphi Brasil
gravar pesquisa de uma tabela em outra tabela EmptySex Jan 23, 2015 11:51 am por pedrosilva

»  Erro no Delphi “A linha não pode ser localizada para atualiz
gravar pesquisa de uma tabela em outra tabela EmptySex 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...
gravar pesquisa de uma tabela em outra tabela EmptyTer Out 14, 2014 9:55 am por john marcos

Parceiros

gravar pesquisa de uma tabela em outra tabela

Ir para baixo

gravar pesquisa de uma tabela em outra tabela Empty gravar pesquisa de uma tabela em outra tabela

Mensagem por Vagner Qui Abr 05, 2012 5:55 am

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;

Vagner
Membro
Membro

Mensagens : 1
Data de inscrição : 05/04/2012

Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

 
Permissões neste sub-fórum
Não podes responder a tópicos