김동수 wrote:

> 다음과 같은 코딩으로 insert하려고 하는데 신택스에러가 발생합니다.

> 한번 봐주세여...

> 에디트박스에서 값을 입력받아 그걸 테이블에 입력하려고 합니다.

> procedure TForm1.Button1Click(Sender: TObject);

> begin

>

>

> ADOQUERY1.close;

> ADOQUERY1.SQL.CLEAR;

> ADOQUERY1.SQL.ADD('INSERT INTO MAIN ');

> ADOQUERY1.SQL.ADD('(BUNRYU,MAKER,JONGRYU,ITEM,SIZE,COLOR,PRICE,AMT)');

> ADOQUERY1.SQL.ADD('VALUES');

> if radiogroup1.ItemIndex=0 then

> ADOQUERY1.sql.add('(''신발'',')

> else if radiogroup1.ItemIndex=1 then

> ADOQUERY1.sql.add('(''의류'',')

> else if radiogroup1.ItemIndex=2 then

> ADOQUERY1.sql.add('(''악세서리'',')

> else if radiogroup1.ItemIndex=3 then

> ADOQUERY1.sql.add('(''기타'',');

>

> ADOQUERY1.sql.add(' '''+edit4.Text+''','''+edit5.text+''','''+edit6.text+''','''+edit7.Text+''',');

> ADOQUERY1.sql.add(' '''+edit8.text+''','''+edit9.text+''','''+edit10.text+''')');

> ADOQUERY1.ExecSQL;

>

> end;

>



db 손놓은지 꽤 되어서 맞는지 모르겠는데요. 위의 소스를 보니 넘 복잡하군여.. 맞는지 확인조차 불가능할정도로..^^;

밑의것처럼 고쳐놓고 함 써보세요..



q1.sql.clear;

q1.sql.add('insert into main');

q1.sql.add('(field1, field2, field3, field4) values (:f1, :f2, :f3, :f4)');

q1.parambyname('f1').asstring := edit1.text;

q1.parambyname('f2').asinteger := strtoint(edit2.text);

q1.parambyname('f3').asstring := edit3.text;

q1.parambyname('f4').asstring := edit4.text;

q1.execsql;



즐코하시길...^^