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.
Buscar
 
 

Resultados por:
 


Rechercher Busca avançada

Conectar-se

Esqueci minha senha

Parceiros

gravar pesquisa de uma tabela em outra tabela

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

gravar pesquisa de uma tabela em outra tabela

Mensagem por Vagner em 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

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum