lilia

É isso mesmo... Resolveu. Obrigada,

Bom, Não é isso ... Pois quando você coloca o Data Source do DBGrid ligado a uma Query... (para mostrar um resultado de uma consulta) ele bloquei a opção de editar, inserir e excluir. eu preciso buscar alguns valores e editar um por um.

Olá ... Tudo bem? Claro que me lembro de vc... Queria até te agradecer muito!!!! Obrigada. È isso mesmo que você falou, quero editar o resultado de uma Query... que está impresso num DBGrid.

Olá, Eu fiz uma Query exibindo resultados num DBGrid. Nestes resultados tenho que adcionar alguns valores... Como faço isso? Editar um campo do DBGrid.

Olá desculpa ter demorado para responder . é que tiveram que formatar a máquina... e estava sem micro. Bom o Problema que o NÃO APARECIA OS DADOS consegui resolver. O delphi 7 tinha estava usando os registros que estavam conrropidos e assim quando eu rodava meu relatório, ele não me retornava nada. Bom agora voltei ao ponto inicial quando abri este tópico.. tenho esta Query : Query1.SQL.Add('Select SIGLA_ESCOLA, NOME_ESCOLA, FONE_ESCOLA, ENDE_ESCOLA, CXPO_ESCOLA, MUNI_ESCOLA, UF_ESCOLA, CEP_ESCOLA From ESCOLA where UF_ESCOLA="'+(ComboBoxEstado.Text)+'"'); Query1.SQL.Add('union all Select SIGLA_ESCOLA, NOME_ESCOLA, FONE_ESCOLA, ENDE_ESCOLA, CXPO_ESCOLA, MUNI_ESCOLA, UF_ESCOLA, CEP_ESCOLA From ESCOLA where UF_ESCOLA <> "'+(ComboBoxEstado.Text)+'"'); O que eu estou querendo é que estas duas query's juntas apareção num relatório, porem a última tem que estar ordenada por UF_ESCOLA. Quando eu coloco Order by ele pega as duas Query's e ordena, mas eu tenho que ordenar só a última. Obrigada

parambyname('UF').AsString :=ComboBoxEstado.Text; este é o parametro que eu uso.

QUOTE (s3c @ Jul 23 2004, 01:31 PM) Antes de dar Query.Open, dê um ShowMessage(Query.Sql.Text) e poste o que aparece no ShowMessage. Obrigado S3C. Por que? Ele vai me mostrar o que esta dentro da propriedade SQL. 'SELECT * FROM associacao.db WHERE UF_ASSOCIACAO = :UF ORDER BY MUNI_ASSOCIACAO

Muito obrigada Capablanca.

vou tentar refazer todo o código de novo. você deixou seu e-mail em dos post, posso utiliza-lo para manter contato, para que você possa me ajudar? Obrigada. lilia@cnpgl.embrapa.br

Não funcionou... eu vou refazer o código.

São parâmetros a apostila que eu estou usando mostra assim, mas não fala o por que . Eu já tirei, mas não fez nem um efeito.

procedure TFormRelatorio.SpeedButtonVisualizarClick(Sender: TObject); begin if ComboBoxRelatorio.Text = 'Associação' then begin case RadioGroupOrdenar.ItemIndex of 0:Begin Query1.SQL.Add('SELECT * FROM associacao.db ORDER BY NOME_ASSOCIACAO;'); Query1.Open; FormRelatAssoc.QuickRep1.Preview; End; 1:Begin Query2.SQL.Add('SELECT * FROM associacao.db WHERE UF_ASSOCIACAO = :UF ORDER BY UF_ASSOCIACAO'); query2.parambyname('UF').AsString := '%' +ComboBoxEstado.Text + '%'; Query2.Open; FormRelatAssoc.QuickRep2.Preview; End; 2:Begin Query3.SQL.Add('SELECT * FROM associacao.db WHERE MUNI_ASSOCIACAO = :MUNI ORDER BY MUNI_ASSOCIACAO'); query3.parambyname('MUNI').AsString := '%' +ComboBoxMunicipio.Text + '%'; Query3.Open; FormRelatAssoc.QuickRep3.Preview; End; End; end; end; procedure TFormRelatorio.SpeedButtonCancelarClick(Sender: TObject); begin FormProLeite2.Visible:=true; Close; Query2.SQL.Clear; Query2.Cancel; Query2.Close; Query2.Destroy; end; end. Bom o código posso até te enviar mas o banco não, pois é da Empresa e eu não tenho autorização. tenho certeza que a parte que esta com algum problema é essa pois antes estava dando certo com algumas consultas simples. Vou tentar refazer a parte do relatório, mas creio que lá esta tudo certo. vou dar uma olhada de novo . Obrigada. cabrallilia@hotmail.com

não eu coloquei ele depois ,quando fecho o form, mas mesmo assim não auterou em nada. Ele continua não aparecendo ...

Não apareceu nada no DBGrid !!! Não seria alguma coisa relacionada a isso ? Query2.SQL.Clear; Query2.Cancel; Query2.Close; Query2.Destroy;

olá Capablanca da uma olhada nisso Query2.SQL.Add('SELECT * FROM associacao.db WHERE UF_ASSOCIACAO = :UF ORDER BY MUNI_ASSOCIACAO'); Query2.parambyname('UF').AsString := '%' +ComboBoxEstado.Text + '%'; Query2.Open; FormRelatAssoc.QuickRep2.Preview; Eu tinha já colocado isso e não deu certo também. nem um consulta simples esta aparecendo e eu olhei todas as configurações do relatório e não esta aparecendo.

nossa valeu mesmo !!! Mas aconteceu outro probleminha eu coloquei este código: Query2.SQL.Add('SELECT * FROM associacao.db WHERE UF_ASSOCIACAO =' + #39 + ComboBoxEstado.Text + #39' AND UF_ASSOCIACAO <> ' + #39 + ComboBoxEstado.Text + #39' ORDER BY UF_ASSOCIACAO , MUNI_ASSOCIACAO;'); Query2.Open; FormRelatAssoc.QuickRep2.Preview; Só que o Relatório não me mostra nada, nem um campo com valor (ele volta vazio). Verifiquei O DataSet do QuickReport := FormRelatorio.Query2; do QRDBText1 :=FormRelatorio.Query2; A configuração está correta?!?!

quero incluir uma instrução dentro da outra, como se fosse duas consultas em uma Query. SELECT * FROM associacao.db WHERE UF_ASSOCIACAO='MG' ORDER BY MUNI_ASSOCIACAO UNION ALL (SELECT * FROM associacao.db WHERE UF_ASSOCIACAO<>'MG' ORDER BY UF_ASSOCIACAO); cloquei assim mas não deu certo. Para que aparece primeiro UF_ASSOCIACAO='MG' (os campos que contem MG) e depois me mostrar o resto ordenado pelos estados excluindo MG.

Olá amigos, Comecei agora a mexer com Delphi, e estou com algumas dúvidas: A mais importante é : - Como que faço uma subconsulta numa Query. Ex.: Na propriedade SQL do Query1: SELECT * FROM associacao.db WHERE UF_ASSOCIACAO='MG'; (SELECT * FROM associacao.db ORDER BY UF_ASSOCIACAO);