 |
|
||||
Você está aqui: Delphi ::: dbExpress ::: TSQLQuery |
Como usar a classe TSQLQuery em suas aplicações DelphiQuantidade de visualizações: 1976 vezes |
|
A classe TSQLQuery é uma das classes mais importantes do dbExpress (anteriormente chamado de DBXpress) da linguagem Delphi. Um objeto desta classe é usado para representar comandos SQL enviados ao banco de dados, com ou sem um conjunto de dados resultante. Antes de continuarmos, é importante entender a posição da classe TSQLQuery na hierarquia de classes do Delphi. Veja: ----------------------------------------------------------------------
Precisa de ajuda? Chama no WhatsApp +55 (62) 98553-6711 (Osmar)
Este código foi útil? Paga um cafezinho pra mim :-(
PIX: osmar@arquivodecodigos.com.br
----------------------------------------------------------------------
TObject
TPersistent
TComponent
TDataSet
TCustomSQLDataSet
TSQLQuery
Usamos um objeto, ou controle TSQLQuery para disparar comandos SQL, ou seja, enviar comandos SQL para um banco de dados, para o qual devemos, antes, obter uma conexão usando um TSQLConnection. Dessa forma, um TSQLQuery pode representar os resultados de um comando SELECT ou efetuar ações no banco de dados por meio de comandos tais como INSERT, DELETE, UPDATE, ALTER TABLE, etc. Além disso, componentes são não visuais e podem ser colocados em um form ou data module. Um componente TSQLQuery pode também ser criado via código em tempo de execução. O conjunto de dados representado por um TSQLQuery é unidirecional, ou seja, vai em apenas uma direção. Diferente de outros conjuntos de dados, os conjuntos de dados unidirecionais não mantém o buffer de múltiplos registros na memória. Em decorrência disso, os registros de um TSQLQuery podem ser navegados usando somente os métodos First e Next. Então, agora que já sabemos um pouco mais sobre a classe TSQLQuery, vamos ver como usá-la para disparar um comando SQL INSERT em uma base de dados do Firebird. Veja o código: ----------------------------------------------------------------------
Precisa de ajuda? Chama no WhatsApp +55 (62) 98553-6711 (Osmar)
Este código foi útil? Paga um cafezinho pra mim :-(
PIX: osmar@arquivodecodigos.com.br
----------------------------------------------------------------------
procedure TForm5.Button1Click(Sender: TObject);
begin
SQLQuery1.Active := False; // fechamos o TSQLQuery
SQLQuery1.SQL.Clear; // limpamos o SQL atual
// definimos o texto da query
SQLQuery1.SQL.Add('INSERT INTO clientes VALUES(:id, :nome, :email)');
// ajustamos os parâmetros da query
SQLQuery1.ParamByName('nome').AsString := 'OSMAR J SILVA';
SQLQuery1.ParamByName('email').AsString := 'osmar@arquivodecodigos.com.br';
SQLQuery1.ParamByName('id').AsInteger := 12;
// e finalmente disparamos a query
SQLQuery1.ExecSQL;
// vamos exibir a quantidade de registros inseridos
ShowMessage('Registros afetados: ' +
IntToStr(SQLQuery1.RowsAffected));
end;
Neste exemplo eu conectei o TSQLQuery à um TSQLConnection representando uma conexão com o banco de dados Firebird (mas o exemplo roda com qualquer banco de dados). Em outras dicas dessa seção você aprenderá mais sobre o componente TSQLQuery. Bons estudos. |
 Link para compartilhar na Internet ou com seus amigos: |
Desafios, Exercícios e Algoritmos Resolvidos de Delphi |
Veja mais Dicas e truques de Delphi |
Dicas e truques de outras linguagens |
|
Delphi - Como carregar uma imagem JPG, convertê-la em Bitmap e desenhá-la no formulário usando Delphi |
E-Books em PDF |
||||
|
||||
|
||||
Linguagens Mais Populares |
||||
|
1º lugar: Java |
