 |
|
|
|
Você está aqui: Delphi ::: dbExpress ::: TSQLDataSet |
Como usar a propriedade CommandText da classe TSQLDataSet para definir os comandos SQL a serem executadosQuantidade de visualizações: 13671 vezes |
|
A propriedade CommandText da classe TSQLDataSet é usada para definir os comandos SQL a serem executados. Veja sua assinatura: property CommandText: WideString; A string fornecida a esta propriedade pode ser definida em tempo de design ou execução, e pode ser tanto um comando SQL quando uma chamada a uma stored procedure. É importante notar que esta propriedade depende muito do valor da propriedade CommandType, ou seja, as duas trabalham juntas em um TSQLDataSet. Veja um trecho de código no qual usamos a propriedade CommandText para definir um comando SQL que excluirá um determinado registro em uma tabela chamada contatos: ----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------
procedure TForm3.Button1Click(Sender: TObject);
begin
// vamos definir o comando SQL a ser executado
SQLDataSet1.CommandText := 'DELETE FROM contatos WHERE id = ''4''';
// vamos executar o comando
SQLDataSet1.ExecSQL(True);
// vamos mostrar uma mensagem indicando o sucesso da operação
ShowMessage('Comando SQL executado com sucesso.');
end;
Note que aqui nós definimos o id do registro a ser excluído diretamente na string fornecida à propriedade CommandText. É recomendável, sempre que um comando SQL possuir parâmetros, usarmos a propriedade Params para fornecer os valores dos parâmetros. Veja: ----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------
procedure TForm3.Button1Click(Sender: TObject);
var
id: Integer;
begin
id := 6; // id do registro a ser excluído
// vamos definir o comando SQL a ser executado
SQLDataSet1.CommandText := 'DELETE FROM contatos WHERE id = :id';
SQLDataSet1.Params[0].Name := 'id';
SQLDataSet1.Params[0].Value := id;
// vamos executar o comando
SQLDataSet1.ExecSQL(False);
// vamos mostrar uma mensagem indicando o sucesso da operação
ShowMessage('Comando SQL executado com sucesso.');
end;
Veja que aqui nós definimos o nome do parâmetro, fornecemos o valor e finalmente executamos a query. Isso resultou em um comando SQL parametrizado. |
 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 |
E-Books em PDF |
||||
|
||||
|
||||
Linguagens Mais Populares |
||||
|
1º lugar: Java |
