Utilizando o turbo delphi com DBexpress

TSQLConnection <- TSQLDataSet

o qy_pesprod2 é um TSQDataset

TABELA Produtos:



     Tenho 2 produtos cadastradados na tabela:

      PRODUTO A     CODCOMPRA = 1  E  CODBARRAS = 123456
      PRODUTO B     CODCOMPRA = 2  E  CODBARRAS = 234322




      Qy_PesqProd2.Close;
      Qy_PesqProd2.commandtext := 'Select * from PRODUTOS where (CODBARRA 
=:Busca) OR (CODCOMPRA =:BUSCA2)';
      QY_PesqProd2.ParamByName('BUSCA').Value  := 2
      QY_PesqProd2.ParamByName('BUSCA2').Value := 2
      Qy_PesqProd2.Open;

     me retorna o produto B

blz,

ai executo de novo 

      
      Qy_PesqProd2.Close;
      Qy_PesqProd2.commandtext := 'Select * from PRODUTOS where (CODBARRA 
=:Busca) OR (CODCOMPRA =:BUSCA2)';
      QY_PesqProd2.ParamByName('BUSCA').Value  := 222
      QY_PesqProd2.ParamByName('BUSCA2').Value :=222
      Qy_PesqProd2.Open;

ele me retorna o produto B novamente, sendo que não há produto código 222 


com delphi 7 eos componentes da guia interbase funcionava perfeitamente

falta algum componente  para o sql ?





Ats, 
Alcione Guimarães

PIRACAIA SOFT 
(11)4036-6299
(11)9515-8707

www.piracaiasoft.com.br


[As partes desta mensagem que não continham texto foram removidas]

Responder a