problema con where

[CrazySoft]

Hola, me pareces que art no esta defino, prueba de esta manera

Código Delphi [-]
 
AdOQuery1.Active:= FALSE; 

ADOQuery1.SQL.Clear; 

ADOQuery1.SQL.Add('SELECT (producto) as art, (codigo) as C, (grupo) as g FROM artic WHERE producto =:MyParam '); 

AdoQuery1.Parambyname('MyPAram').asstring:='correa' ADOQuery1.Active:= TRUE;