다시 올립니다.....
에러 메세지는 그대로 인데...
---------------------------
[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;
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;
>
>