Q&A

  • db에서 이미지 저장하는 방법 알려주세요...
db는 파라독스 이구요..



소스를 어떻게 해야 할지 몰라서..



예)

begin

if (Edit1.Text <> '') then

begin

Query1.Close;

Query1.SQL.Clear;

QUery1.SQL.Add('Insert into "master1.db"');

Query1.SQL.Add('(hakid,hakemail,hakimage)');

Query1.SQL.Add('Values ');

Query1.SQL.Add(' (:p1, :p2, :p3)');

QUery1.ParamByName('p1').AsString := Edit1.Text;

Query1.ParamByName('p2').AsString := Edit2.Text;

Query1.ParamByName('P12').~~~~~ := Image1.~~~~~~;

Query1.ExecSQL;

end;

Form_Refresh;

end;





물결표시부분(~~~~~~)을 어떻게 해야 되나요...



고수님들 부탁 드립니다.



leewha@netsgo.com 이화 올림





















2  COMMENTS
  • Profile
    이재식 1999.10.23 02:51
    이화 wrote:

    > db는 파라독스 이구요..

    >

    > 소스를 어떻게 해야 할지 몰라서..

    >

    > 예)

    > begin

    > if (Edit1.Text <> '') then

    > begin

    > Query1.Close;

    > Query1.SQL.Clear;

    > QUery1.SQL.Add('Insert into "master1.db"');

    > Query1.SQL.Add('(hakid,hakemail,hakimage)');

    > Query1.SQL.Add('Values ');

    > Query1.SQL.Add(' (:p1, :p2, :p3)');

    > QUery1.ParamByName('p1').AsString := Edit1.Text;

    > Query1.ParamByName('p2').AsString := Edit2.Text;

    > Query1.ParamByName('P12').~~~~~ := Image1.~~~~~~;

    > Query1.ExecSQL;

    > end;

    > Form_Refresh;

    > end;

    >

    >

    > 물결표시부분(~~~~~~)을 어떻게 해야 되나요...

    >

    > 고수님들 부탁 드립니다.

    >

    > leewha@netsgo.com 이화 올림

    >

    >

    >

    이재식 Wrote :

    안녕하세요?



    (Query1.ParamByName('P12') as TBlobField).LoadFromFile(OpenDialog1.FileName) ;

    또는

    (Query1.ParamByName('P12') as TBlobField).LoadFromFile('c:그림파일경로') ;











  • Profile
    김영대 1999.10.22 22:37
    이화 wrote:

    > db는 파라독스 이구요..

    >

    > 소스를 어떻게 해야 할지 몰라서..

    >

    > 예)

    > begin

    > if (Edit1.Text <> '') then

    > begin

    > Query1.Close;

    > Query1.SQL.Clear;

    > QUery1.SQL.Add('Insert into "master1.db"');

    > Query1.SQL.Add('(hakid,hakemail,hakimage)');

    > Query1.SQL.Add('Values ');

    > Query1.SQL.Add(' (:p1, :p2, :p3)');

    > QUery1.ParamByName('p1').AsString := Edit1.Text;

    > Query1.ParamByName('p2').AsString := Edit2.Text;

    > Query1.ParamByName('P12').~~~~~ := Image1.~~~~~~;

    > Query1.ExecSQL;

    > end;

    > Form_Refresh;

    > end;

    >

    >

    > 물결표시부분(~~~~~~)을 어떻게 해야 되나요...

    > 고수님들 부탁 드립니다.

    > leewha@netsgo.com 이화 올림



    TTable을 사용하셔야 합니다

    제 홈페이지(http://myhome.shinbiro.com/~cozykyd/index.htm)의

    "Delphi Tip" 에서 "blob" 키워드로 검색해 보세요