Q&A

  • query 에서 DBgrid에 Insert할때 에러에용...
다시 올립니다.....

에러 메세지는 그대로 인데...

---------------------------

[Microsoft][ODBC Microsoft Access 드라이버] INSERT INTO 문의 구문 오류입니다.

-------------------------

요 위에 것이 에러 메세지 입니다.....

소스도 다시 올립니다.

=========================================

with Query1 do

begin

close;

sql.Clear;

sql.Add('insert into 인적사항');

sql.Add('(일련번호,이름,등록일자,우편번호,주소,전화번호1,전화번호2,');

sql.add('Fax No,E-Mail,사용환경, 특기사항) ');

sql.Add('values ');

sql.Add('( :N1, :N2, :N3, :N4, :N5, :N6, :N7, :N8, :N9 :N10, :N11)');

ParamByName('N1').AsInteger :=strtoint(edit1.text);

ParamByName('N2').AsString :=edit2.text;

ParamByName('N3').AsDateTime := StrToDatetime(edit3.Text);

ParamByName('N4').AsString :=edit4.text;

ParamByName('N5').AsString :=edit5.text+' '+edit6.Text;

ParamByName('N6').AsString :=form6.dbedit3.text+')'+edit7.text;

ParamByName('N7').AsString :=form6.dbedit3.text+')'+edit8.text;

ParamByName('N8').AsString :=form6.dbedit3.text+')'+edit9.text;

ParamByName('N9').AsString :=edit10.text;

ParamByName('N10').AsString :=edit11.text;

ParamByName('N11').AsMemo :=memo1.Text;

ExecSQL;

close;

end;





1  COMMENTS
  • Profile
    nilriri 2000.05.17 23:26
    필드명에 문제가 있는것이 아닌가 하는 생각이 드는군요

    Fax No라고 되어있는부분을 수정해 보십시오..

    Fax_No또는 [Fax No]등으로 ....



    그럼...



    올랭이 wrote:

    > 다시 올립니다.....

    > 에러 메세지는 그대로 인데...

    > ---------------------------

    > [Microsoft][ODBC Microsoft Access 드라이버] INSERT INTO 문의 구문 오류입니다.

    > -------------------------

    > 요 위에 것이 에러 메세지 입니다.....

    > 소스도 다시 올립니다.

    > =========================================

    > with Query1 do

    > begin

    > close;

    > sql.Clear;

    > sql.Add('insert into 인적사항');

    > sql.Add('(일련번호,이름,등록일자,우편번호,주소,전화번호1,전화번호2,');

    > sql.add('Fax No,E-Mail,사용환경, 특기사항) ');

    > sql.Add('values ');

    > sql.Add('( :N1, :N2, :N3, :N4, :N5, :N6, :N7, :N8, :N9 :N10, :N11)');

    > ParamByName('N1').AsInteger :=strtoint(edit1.text);

    > ParamByName('N2').AsString :=edit2.text;

    > ParamByName('N3').AsDateTime := StrToDatetime(edit3.Text);

    > ParamByName('N4').AsString :=edit4.text;

    > ParamByName('N5').AsString :=edit5.text+' '+edit6.Text;

    > ParamByName('N6').AsString :=form6.dbedit3.text+')'+edit7.text;

    > ParamByName('N7').AsString :=form6.dbedit3.text+')'+edit8.text;

    > ParamByName('N8').AsString :=form6.dbedit3.text+')'+edit9.text;

    > ParamByName('N9').AsString :=edit10.text;

    > ParamByName('N10').AsString :=edit11.text;

    > ParamByName('N11').AsMemo :=memo1.Text;

    > ExecSQL;

    > close;

    > end;

    >

    >