간단하게

:   with ADOQuery1 do
:   begin
:      Close;
:      SQL.Clear;
:      SQL.Text := 'insert into pics ( image ) values ( :im )';
====>
:      Parameters.ParamByName('im').LoadFromFile('c:\test.bmp', ftGraphic);
>====
:      ExecSQL;
:   end;






김준석 님이 쓰신 글 :
: 안녕하세요?
:
: DB로 MS_Access 를 사용하고 있는데요.
: 이미지 필드로 OLE 타입을 설정하였구요. ( BLOB 아닌거 맞지요? )
: 아래와 같이 코딩을 했는데 에러가 뜨더군요.
:
: 에러 문장은 "INSERT INTO 문의 구문오류입니다." 이구요.
: 게시판에 여러 질문답변에서는 이런 방식으로 하면 된다고 하던데..
: 저는 안되네요 ㅠ.ㅠ.
:
: 고수님들! 제발 도와주세요.
: 그럼..
:
: var
:   oBmp : TBitmap;
: begin
:   oBmp := TBitMap.Create;
:   oBmp.LoadFromFile('c:\test.bmp');
:
:   with ADOQuery1 do
:   begin
:      Close;
:      SQL.Clear;
:      SQL.Text := 'insert into pics ( image ) values ( :im )';
:
:      Parameters.ParamByName('im').Assign(oBmp);
:
:      ExecSQL;
:   end;
:   oBmp.Free;
: end;