ActiveDelphi

[toshiye]

Boa tarde a todos, sou novo no fórum e também novo em programação.
Recentemente me pediram para criar um projeto até bem simples na verdade, porém, me "sugeriram" que usasse o PostgreSQL como banco de dados.
Tive um pouco de dificuldades para conectar com o FireDac e optei pelo ODBC.
Ok, programa criado e banco conectado, inserindo, excluindo, editando, enfim, faço quase tudo no banco menos, pesquisar, toda vez me aparece o erro Invalid Source Array.
Não sei exatamente onde está o meu erro, poderiam me ajudar por favor?
o Delphi é o Tokyo.
PostgreSQL na versão mais recente.
Os componentes ODBC(DBGO) - TADOConnection e TADOTable.
Uso Win10 64
Segue o código do botão de pesquisa:

procedure TfrmMain.sbtnPrintSearchClick(Sender: TObject);
begin
dmPrint.adoChange.Close;
case cbxPrintSearch.ItemIndex of
0 : dmPrint.adoChangesetor.AsString := 'SELECT SETOR FROM TROCA WHERE SETOR ='+QuotedStr('%'+edtPrintSearch.ToString+'%');
1 : dmPrint.adoChangemarca.AsString := 'SELECT MARCA FROM TROCA WHERE MARCA ='+QuotedStr('%'+edtPrintSearch.ToString+'%');
2 : dmPrint.adoChangemodelo.AsString := 'SELECT MODELO FROM TROCA WHERE MODELO ='+QuotedStr('%'+edtPrintSearch.ToString+'%');
end;
dmPrint.adoChange.Open;
end;

A é, a pesquisa será com base em um ComboBox.

Se eu não expliquei direito ou se faltou alguma coisa me desculpem , eu corrijo conforme as dúvidas.

Desde já agradeço imenso qualquer ajuda que vier.


Cordialmente.

[natanbh1]

O componente dmPrint.adoChange é um TADOTable?

Se for, este componente não suporta SQL, troque pelo componente TADOQuery.

Exemplo de como ficaria seu código trocando dmPrint.adoChange para TADOQuery.

[toshiye]

Vlw Natan, deu certo aqui, me ajudou muito.
Muito obrigado mesmo.

Abraço.