Aqui em baixo, Identtermoautoriz = seu codigo do item termoautorizado = nome do remedio
na minha tabela principal, Bem = tabela principal bem.termoautorizado = seu codigo do remedio entao aa query fica assim: dmEstrutBD.qryGRID.Close; dmEstrutBD.qryGRID.SQL.Clear; cmdosql := 'SELECT Autorizado.IdentTermoAutoriz, Autorizado.TermoAutorizado AS Autorizado_TermoAutorizado, ' + ' Bem.uf, Bem.Ident, Bem.TermoAutorizado AS Bem_TermoAutorizado' + ' FROM Autorizado INNER JOIN Bem ON Autorizado.IdentTermoAutoriz = Bem.TermoAutorizado' + ' where uf = "' + wuf + '"'; dmEstrutBD.qryGRID.SQL.Add(cmdoSQL); dmEstrutBD.qryGRID.Open; qualquer duvida me chame em [EMAIL PROTECTED] -----Mensagem original----- De: Erika [mailto:[EMAIL PROTECTED] Enviada em: terça-feira, 26 de outubro de 2004 17:40 Para: [EMAIL PROTECTED] Assunto: [delphi-br] HELP - Problemas com consulta! Boa tarde... estou com problemas na minha consulta! É o seguinte: Tenho 3 tabelas: - Item (preciso da quantidade de medicamentos) - Pedido (preciso saber quais itens referem-se ao pedido) - Medicamento (preciso do nome do medicamento) Queria listar em um DBGrid os medicamentos contidos nos itens de um pedido. Mas não só o código e sim o nome. Então meu DBGrid teria: Nome Medicamento e Quantidade. Fiz esta procedure, mas dá erro de falta de parâmetros, o que será que está errado? Estou usando banco access e conexão ADO. procedure TFormPedido.BuscaItem; begin with DM.QrItem do begin close; sql.Clear; sql.add('SELECT item_quantidade, med_nome'); sql.Add('FROM item,medicamento'); sql.Add(('WHERE(item.item_med_numero=:nummed)AND (item.item_ped_num =:numped))'); Parameters.ParamByName('numped').Value := StrToFloat (EditPedNum.Text);{Edit com o número do pedido} Parameters.ParamByName('nummed').Value := StrToFloat (EditPedMedNum.Text); {edit com o número do medicamento} Open; end; end; Bom, não sei se consegui me expressar direito.... desculpe se está muito confuso... Obrigado []'s Erika -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos --- Incoming mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004 --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.698 / Virus Database: 455 - Release Date: 02/06/2004 -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] ou [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html