Hi

Hi
i am having issue to save PDF file to MS SQL Table, with following code and i am getting error (Error image has attach) please kindly some one help me to solve the issue, thanks


procedure TEmployProfile.AdvGlassButton6Click(Sender: TObject);
var
FileName: string;
FileStream: TFileStream;
BlobField: TBlobField;
const
SBlobFieldName: string = '';
begin
FileName := '';
if OpenDialog1.Execute then
FileName := OpenDialog1.FileName;
if FileName = '' then
Exit;
FileStream := TFileStream.Create(FileName, fmOpenRead);
QDocument.Open;
try
QDocument.Insert;
BlobField := QDocument.FieldByName('EMPDOCUMENT') as TBlobField;
BlobField.LoadFromStream(FileStream);
QDocument.Post;
finally
FileStream.Free;
end;
end;