밑에 거는 소스거든요. 자꾸 실행을 시키면 에러가나요
" 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;
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;