Bom dia, me chamo Luis e o lance e o seguinte, tenho uma aplicacao para atualizar o banco de dados de minha empresa, porem pra rodas essas atualizacoes ele pega de um caminho fixo todos arquivos.sql, todos possuem nome sequencial, ex: ALTERACAO_2021_01_01_001.sql, ALTERACAO_2021_01_02_001.sql e por ai vai, ja tenho mais ou menos uma ideia, mas empaquei, gostaria dos conhecimentos de voces nessa.
Segue abaixo o trecho especifico de codigo:
procedure TFPrincipal.BtnAttAutoClick(Sender: TObject);
var
arquivo : TSearchRec;
var
caminho, att: string;
begin
caminho := (‘C:\Banco de Dados\Alterações\’);
Qryversao.sql.clear;
Qryversao.sql.add(‘SELECT versao_banco FROM parametro’);
Qryversao.Open;
att := (‘ALTERACAO_’ + Qryversao.FieldByName(‘versao_banco’).asstring);
FindFirst(caminho + att + ‘.sql’,faAnyFile,arquivo);
begin
QryAtt.sql.clear;
QryAtt.LoadFromfile;
end;
end;
.
