Delphi Forum

while döngüsünden önce AdoQuery1.Open; yapın

bulduğun örnek olayı açık açık anlatıyor zaten.
Formuna bir tane tOpenDialog koy. Adını dlgOpenDOSYA_AC yap.
Tablonda Blob tipinde DOSYA diye bir alan aç.
Query içeriğinde bu tabloyu çek.
Sonra aşağıdaki kod ile istediğin dosyayı kaydedebilirsin.
Okurkende LoadFromStream yerine SaveToStream yaparsın ...

dataya binary olarak kaydedip ayrı bir alanda dosya adı ve/veya uzantısı tutarsan gerektiğinde uzantıya göre açabilirsin

O 11 hane kimlik no vb. sadece sayısal veri girilecek alan için kullanılacak ise MaskEdit kullanabilirsin.

cxProgressBar1: TcxProgressBar; (yani devexpress component ise)

cxProgressBar1.Position := Round(ExcelRowNo * 100 / ExcelRowCount);
cxProgressBar1.Update;
Self.Update;

ProgressBar1: TProgressBar; (yani normal ProgressBar ise yine aynı komutlar iş görür)

Update kullanmak istemezseniz ...