Tente assim:
with qryProdutos do
begin
Close;
Clear;
SQL.ADD('select * from Produtos where TIPCAP = :TIPOP');
ParamByName('TIPCAP').AsString := recebe um string...
//ou
ParamByName('TIPCAP').AsInteger := dbrSelTipProd.ItemIndex;
Open;
end;
----- Original Message -----
From: "luciano" <[EMAIL PROTECTED]>
To: <[email protected]>
Sent: Wednesday, February 02, 2005 12:07 PM
Subject: Re: [delphi-br] DataSet Open
>
> J� tentei isso, continua com a mesma msg.
> ----- Original Message -----
> From: "Emilio C�rdova (pop)" <[EMAIL PROTECTED]>
> To: <[email protected]>
> Sent: Wednesday, February 02, 2005 9:10 AM
> Subject: Re: [delphi-br] DataSet Open
>
>
>
> Bom dia,
>
>
> tenta assim
> qryProdutos.Close; <-- inclua isto antes de limpar a query
> qryProdutos.Sql.Clear;
> qryProdutos.SQL.Add ('select * from Produtos');
> qryProdutos.SQL.Add ('where TIPCAP = :TIPOP');
> qryProdutos.Params [ 0 ].DataType := ftstring;
> qryProdutos.Params [ 0 ].Value := dbrSelTipProd.ItemIndex
> ===============================
> Emilio C�rdova Silva
> [EMAIL PROTECTED]
> [EMAIL PROTECTED]
> (41) 9228-7414
> ----- Original Message -----
> From: "lucaoliveira7" <[EMAIL PROTECTED]>
> To: <[email protected]>
> Sent: Tuesday, February 01, 2005 8:43 PM
> Subject: [delphi-br] DataSet Open
>
>
>
>
> Pessoal � o seguinte, estou montando esse SQL din�micamente o
> problema � que todas as vezes que chega na primeira linha Add aparece
> msg de erro DataSet Open
>
> qryProdutos.Sql.Clear;
> qryProdutos.SQL.Add ('select * from Produtos');
> qryProdutos.SQL.Add ('where TIPCAP = :TIPOP');
> qryProdutos.Params [ 0 ].DataType := ftstring;
> qryProdutos.Params [ 0 ].Value := dbrSelTipProd.ItemIndex;
>
> Grato
>
>
>
>
>
> --
> <<<<< 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
>
>
>
>
>
>
>
>
>
>
>
> --
> No virus found in this incoming message.
> Checked by AVG Anti-Virus.
> Version: 7.0.300 / Virus Database: 265.8.4 - Release Date: 01/02/2005
>
>
>
>
> --
> No virus found in this outgoing message.
> Checked by AVG Anti-Virus.
> Version: 7.0.300 / Virus Database: 265.8.4 - Release Date: 01/02/2005
>
>
>
> --
> <<<<< 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
>
>
>
>
>
>
>
>
>
>
> --
> <<<<< 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
>
>
>
>
>
>
>
>
>
>
--
<<<<< 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
