Fórum Atualizar banco de dados #354464

function AtualizaTabela: boolean;
begin
  try
    with Query1 do
    begin
      Close;
      // As próximas 4 linhas fazem um refresh na tabela
      SQL.Clear;
      SQL.Add(´Select * from ´ + NomeTabela); // Selecione aqui os campos desejados
      Open;
      Close; // Não usar esta linha se estiver conectado a componentes DataControls
      result := true;
    end;
  except
    result := false;      
  end;
end;

function InsereRegistro: boolean;
var
  StrSql: string;
begin
  try
    with Query1 do
    begin
      Close;
      StrSql :=
          ´Insert Into ´+
          NomeTabela +
          ´ ´ +
          NomeCampo1 +
          ´ ´ +
          NomeCampo2 +
          ´ ´ +
          NomeCampoN +
          ´ Values (´ +
          QuotedStr(ValorCampo1) +
          ´, ´ +
          QuotedStr(ValorCampo2) +
          ´, ´ +
          QuotedStr(ValorCampoN) + 
          ´)´;
      SQL.Clear;
      SQL.Add(StrSql);
      ExecSQL;
      result := AtualizaTabela;
    end;
  except
    result := false;           // erro de gravação
  end;
end;