Fórum Selecionar dados no banco de dados #404856

Me parece falta de espaços entre +'%''and

Dei espaço mais continua dando o mesmo erro

Ai vai uma outra maneira de fazer a query

 ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('Select * from TABELAOC ');
  ADOQuery1.SQL.Add('where CODIGO LIKE %:pCOD%');
  ADOQuery1.SQL.Add('and ESTATUS = 0');
  ADOQuery1.SQL.Add('order by CODIGO');
  ParamByName('pCOD').AsString:= edit1.text ;
  ADOQuery1.Open;

Na linha ParamByName('pCOD').AsString:= edit1.text ;  ele mostra como undeclared identifier: ParamByName. 

corrigindo as duas formas....

na 1a. :

  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('Select * from TABELAOC where CODIGO LIKE ''%'+edit1.Text+'%''and ESTATUS = 0''order by CODIGO');
  ADOQuery1.Open;

foi colocada uma aspa a mais depois de ESTATUS = 0. o correto é:

  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('Select * from TABELAOC where CODIGO LIKE ''%'+edit1.Text+'%'' and ESTATUS = 0 order by CODIGO');
  ADOQuery1.Open;



na 2a. :

  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('Select * from TABELAOC ');
  ADOQuery1.SQL.Add('where CODIGO LIKE %:pCOD%');
  ADOQuery1.SQL.Add('and ESTATUS = 0');
  ADOQuery1.SQL.Add('order by CODIGO');
  ParamByName('pCOD').AsString:= edit1.text ;
  ADOQuery1.Open;

não coloque os curingas % na instrução. coloque somente no valor a ser pesquisado. assim:

  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('Select * from TABELAOC ');
  ADOQuery1.SQL.Add('where CODIGO LIKE :pCOD');
  ADOQuery1.SQL.Add('and ESTATUS = 0');
  ADOQuery1.SQL.Add('order by CODIGO');
  ADOQuery1.ParamByName('pCOD').AsString := '%'+edit1.text+'%';
  ADOQuery1.Open;

Valeu Emerson, grande abraço!