[Resolvido] Erros no ( update TABELA set CAMPO = null )

[rafaeloliveira83 0]

Tenho uma tabela com 3 campos.

Criei um PageControl com cada um deles um DBMemo.

Cada DBMemo pega um campo da tabela.

Porem como não quero que inclua mais nada no banco gostaria de criar um botão que ao invés de excluir ele desse tipo um clear no DBMemo e gravasse ele vazio ou nulo no banco.

Como Post ou ApplyUpdates(0) não consegui com UPDATE da erro:

 

with ADOQuery1 do 
begin 
 close; 
 sql.text := ' update tabela set Notas = null '; 
 ExecSQL; 
Open; 
end;

 

Apareceu esses erros:

 

'O provedor atual não oferece suporte para retornar vários conjuntos de registros de uma única execução'

'ADOQuery1: CommandText does not return a result set';

Porem mesmo exibindo esses erros ele limpa o campo e deixa nulo.

 

Corrigi os erros fazendo isso:

 

Código:

 

with ADOQuery1 do 
begin 
// close; Remover 
 sql.text := ' update Tabela set Notas = null '; 
 ExecSQL; 
// Open; Remover 
end; 

// Abrir conexão com o Banco novamente. 

ADOQuery1.Close; 
ADOQuery1.SQL.Text := 'SELECT * FROM Tabela'; 
ADOQuery1.Open;

Agora funciona perfeitamente.