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
