Usando consultas Delphi com o ADO

O componente TADOQuery fornece Delphi desenvolvedores a capacidade de buscar dados de uma ou várias tabelas de um Banco de dados ADO usando SQL.

Essas instruções SQL podem ser DDL (Data Definition Language), como CREATE TABLE, ALTER INDEX e assim por diante, ou elas podem ser instruções DML (Data Manipulation Language), como SELECT, UPDATE e EXCLUIR. A instrução mais comum, no entanto, é a instrução SELECT, que produz uma exibição semelhante à disponível usando um componente Tabela.

Nota: mesmo que seja possível executar comandos usando o componente ADOQuery, o comando ADOCommandcomponente é mais apropriado para esse propósito. Geralmente é usado para executar comandos DDL ou para executar um procedimento armazenado (mesmo que você deva usar o comandoTADOStoredProc para essas tarefas) que não retorna um conjunto de resultados.

O SQL usado em um componente ADOQuery deve ser aceitável para o driver ADO em uso. Em outras palavras, você deve estar familiarizado com as diferenças de gravação de SQL entre, por exemplo, MS Access e MS SQL.

Como ao trabalhar com o componente ADOTable, os dados em um banco de dados são acessados ​​usando uma conexão de armazenamento de dados estabelecida pelo componente ADOQuery usando seuConnectionString ou através de um componente ADOConnection separado especificado no Conexãopropriedade.

Para tornar um formulário Delphi capaz de recuperar os dados de um banco de dados do Access com o componente ADOQuery, basta soltar todos os componentes de acesso a dados e de reconhecimento de dados nele contidos e faça um link conforme descrito nos capítulos anteriores deste curso. Os componentes de acesso a dados: DataSource, ADOConnection junto com o ADOQuery (em vez do ADOTable) e um componente com reconhecimento de dados como o DBGrid é tudo o que precisamos.
Como já explicado, usando o Object Inspector, defina o link entre esses componentes da seguinte maneira:

DBGrid1.DataSource = DataSource1
DataSource1.DataSet = ADOQuery1
ADOQuery1.Connection = ADOConnection1
// constrói o ConnectionString
ADOConnection1.ConnectionString = ...
ADOConnection1.LoginPrompt = False

O componente TADOQuery não possui um Nome da tabelapropriedade como o TADOTable faz. TADOQuery possui uma propriedade (TStrings) chamada SQL que é usado para armazenar a instrução SQL. Você pode definir o valor da propriedade SQL com o Object Inspector em tempo de design ou por meio de código em tempo de execução.

No tempo de design, chame o editor de propriedades da propriedade SQL clicando no botão de reticências no Inspetor de Objetos. Digite a seguinte instrução SQL: "SELECT * FROM Authors".

A instrução SQL pode ser executada de uma de duas maneiras, dependendo do tipo da instrução. As instruções da linguagem de definição de dados geralmente são executadas com o ExecSQL método. Por exemplo, para excluir um registro específico de uma tabela específica, você pode escrever uma instrução DELETE DDL e executar a consulta com o método ExecSQL.
As instruções SQL (comuns) são executadas definindo o parâmetro TADOQuery. Ativo propriedade para Verdade ou ligando para oAberto método (essencialmente o mesmo). Essa abordagem é semelhante à recuperação de dados da tabela com o componente TADOTable.

No tempo de execução, a instrução SQL na propriedade SQL pode ser usada como qualquer objeto StringList:

com ADOQuery1 começam Close; 
SQL.Clear; 
SQL.Add: = 'SELECT * FROM Autores' SQL.Add: = 'ORDER BY authorname DESC' Abrir; 
fim;

O código acima, em tempo de execução, fecha o conjunto de dados, esvazia a cadeia SQL na propriedade SQL, atribui um novo comando SQL e ativa o conjunto de dados chamando o método Open.

Observe que, obviamente, a criação de uma lista persistente de objetos de campo para um componente do ADOQuery não faz sentido. Na próxima vez que você chamar o método Open, o SQL poderá ser tão diferente que todo o conjunto de nomes (e tipos) arquivados poderá ser alterado. Obviamente, esse não é o caso se estivermos usando o ADOQuery para buscar as linhas de apenas uma tabela com o conjunto constante de campos - e o conjunto resultante depende da parte WHERE da instrução SQL.

Uma das grandes propriedades dos componentes TADOQuery é a Params propriedade. Uma consulta parametrizada é aquela que permite a seleção flexível de linha / coluna usando um parâmetro na cláusula WHERE de uma instrução SQL. A propriedade Params permite parâmetros substituíveis na instrução SQL predefinida. Um parâmetro é um espaço reservado para um valor na cláusula WHERE, definida pouco antes da abertura da consulta. Para especificar um parâmetro em uma consulta, use dois pontos (:) antes de um nome de parâmetro.
Em tempo de design, use o Object Inspector para definir a propriedade SQL da seguinte maneira:

ADOQuery1.SQL: = 'SELECT * FROM aplicativos onde tipo =: apptype'

Quando você fechar a janela do editor SQL, abra a janela Parâmetros clicando no botão de reticências no Inspetor de Objetos.

O parâmetro na instrução SQL anterior é nomeadoapptype. Podemos definir os valores dos parâmetros na coleção Params em tempo de design por meio da caixa de diálogo Parâmetros, mas na maioria das vezes iremos alterar os parâmetros em tempo de execução. A caixa de diálogo Parâmetros pode ser usada para especificar os tipos de dados e os valores padrão dos parâmetros usados ​​em uma consulta.

No tempo de execução, os parâmetros podem ser alterados e a consulta executada novamente para atualizar os dados. Para executar uma consulta parametrizada, é necessário fornecer um valor para cada parâmetro antes da execução da consulta. Para modificar o valor do parâmetro, usamos a propriedade Params ou o método ParamByName. Por exemplo, dada a instrução SQL como acima, em tempo de execução, poderíamos usar o seguinte código:

com ADOQuery1 começam
Fechar;
SQL.Clear;
SQL.Add ('SELECT * FROM Applications WHERE tipo =: apptype');
ParamByName ('apptype') .Valor: = 'multimídia';
Aberto;
fim;

Como quando se trabalha com o componente ADOTable, o ADOQuery retorna um conjunto ou registros de uma tabela (ou duas ou mais). A navegação em um conjunto de dados é feita com o mesmo conjunto de métodos descrito no capítulo "Atrás dos dados nos conjuntos de dados".

Em geral, o componente ADOQuery não deve ser usado quando a edição ocorre. As consultas baseadas em SQL são usadas principalmente para fins de relatório. Se sua consulta retornar um conjunto de resultados, às vezes é possível editar o conjunto de dados retornado. O conjunto de resultados deve conter registros de uma única tabela e não deve usar nenhuma função agregada do SQL. Editar um conjunto de dados retornado pelo ADOQuery é o mesmo que editar o conjunto de dados do ADOTAble.

Para ver alguma ação do ADOQuery, codificaremos um pequeno exemplo. Vamos fazer uma consulta que possa ser usada para buscar as linhas de várias tabelas em um banco de dados. Para mostrar a lista de todas as tabelas em um banco de dados, podemos usar o GetTableNamesmétodo do ADOConnection componente. O GetTableNames no evento OnCreate do formulário preenche a ComboBox com os nomes da tabela e o Button é usado para fechar a consulta e recriá-la para recuperar os registros de uma tabela selecionada. Os manipuladores de eventos () devem se parecer com:

procedimento TForm1.FormCreate (Sender: TObject);
início
ADOConnection1.GetTableNames (ComboBox1.Items);
fim;
procedimento TForm1.Button1Click (Sender: TObject);
var tblname: string;
início
se ComboBox1.ItemIndex, em seguida, Sair;
tblname: = ComboBox1.Items [ComboBox1.ItemIndex];
com ADOQuery1 começam
Fechar;
SQL.Text: = 'SELECT * FROM' + tblname;
Aberto;
fim;
fim;

Observe que tudo isso pode ser feito usando o ADOTable e sua propriedade TableName.