Q&A

  • query로 dbgrid에 저장하는거용
밑에 거는 소스거든요. 자꾸 실행을 시키면 에러가나요

" 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;

2  COMMENTS
  • Profile
    최석기 2000.05.17 23:06
    지금 소스가 정확히 올린 거라면 Insert Into 구문에서 테이블명 다음에 스페이스가 없는거 같네요..



    sql.Add('insert into 인적사항 '); //테이블 이름이 '인적사항'



    스페이스 삽입..







    올랭이 wrote:

    > 밑에 거는 소스거든요. 자꾸 실행을 시키면 에러가나요

    > " 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;

  • Profile
    nilriri 2000.05.17 22:45
    에러메시지의 내용과 함께 질문을 하시면 좋겠군요...



    올랭이 wrote:

    > 밑에 거는 소스거든요. 자꾸 실행을 시키면 에러가나요

    > " 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;