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 이화 올림
> 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:그림파일경로') ;