salvando arquivos no SQL SERVER 2012 - URGENTE....

Question

Estou fazendo um teste e preciso salvar arquivo .PDF ou .ZIP dentro do Banco de Dados e depois restaura-los. Estou usando o Delphi xe3 e Banco SQL 2012 Server Enterprise. Se alguem puder me ajudar Agr...

Wilton Queiroz · Answer

procedure SalvaArquivoBancoDados(dbConnection:TADOConnection;arquivo:string);
var qry:TADOQUERY;
begin
try
qry :=tadoquery.create(nil);
qry.Options.StrictUpdate :=false;
qry.connection :=dbConnection;
qry.Close;
qry.Sql.Text :='SELECT * FROM ARQUIVOS WHERE ARQUIVO='+QUOTEDSTR(ARQUIVO);
qry.Open;

if (qry.RecordCount>0) then
(qry.fieldbyname('BINARIO') as TBlobField).savetofile(Arquivo); //salvando em disco
else
begin
qry.append;
qry.fieldbyname('arquivo').asstring :=arquivo;
(qry.fieldbyname('BINARIO') as TBlobField).loadfromfile(Arquivo); //lendo do disco
qry.post;
end
finally
freeandnil(qry);
end;

F�rum salvando arquivos no SQL SERVER 2012 - URGENTE.... #473541