procedure TForm1.BitBtn1Click(Sender: TObject);
var
str : String;
rate : integer;
begin

eCordi1.Text := '20';
eOrdi1.Text  := '30';
rate := 20;

str := 'insert into crdinate(title,path,abscissa,ordinate,rate) ' +
       'values(''img1'','+
               ' '''+imgPath1.Text +''',' +
               Trim(eCordi1.Text)+ ',' +
               Trim(eOrdi1.Text) + ',' +
               IntToStr(rate) +  ')';

ShowMessage(Str);

end;

위와 같이 하면 아래와 같이 완전한 Insert 문장이 됩니다.


insert into crdinate(title,path,abscissa,ordinate,rate) values('img1', 'imgpath1',20,30,20)

설명을 좀 드리면 Query 할 String을 만드는 것이고, 이 String이 SQL에 직접
대입을 하면 실행이 되죠,, ?? 이상한가 ?

쿼리문은 둘째 치고.. ' 처리부터 잘못되었네요..

원하시는 Query문은 이게 아닐까 생각되는데..

str := 'Insert Into Crdinate (Title, Path, Abscissa, Oridnate, Rate) '
      + 'Values ("Img1", "' + ImgPath1.Text + '", ' + eCordi1.Text + ', '
      + eOrdi1.Text + ', ' + FloatToStr(Rate) + ')';

Rate가 실수형 변수라고 가정하고 한거구요.. 정수면 FloatToStr을 IntToStr로 바꾸시면 되겠죠?

그럼.. 즐코..

-------------------------------------------------------------
수정한 쿼리문입니다..즐코하세요..^^
-------------------------------------------------------------
[수정 쿼리문]
str := 'insert into crdinate(title,path,abscissa,ordinate,rate) '
      +'values(''img1'','''+imgPath1.Text+''','+strtoint(eCordi1.Text)
      +','+strtoint(eOrdi1.text)+','+rate+')';
-------------------------------------------------------------

타입이 맞지 않는다는 오류가 납니다. 실행도 안되요....
이궁...  어디서 잘못된건지...