procedure TForm2.Button1Click(Sender: TObject);
begin
if edit1.Text='' then
begin
messagedlg('다시 입력하시요!',mtwarning,[mbok],0);
exit;
end;
form1.Query1.close;
form1.Query1.SQL.Clear;
form1.Query1.sql.Add('select * from "작업자.db"');
form1.query1.sql.add('where 작업자 = "'+ edit1.Text+'"');
form1.Query1.open;
if not form1.Query1.Eof then
begin
messagedlg('이미 등록된 작업자임!',mtwarning,[mbok],0);
exit;
end;
with form1.Query1 do
begin
Close;
sql.Clear;
sql.Add('insert 작업자 values ("' +intToStr(form1.DBLookupComboBox3.listfieldindex)+'",');// 이부분의 테이블명에서 계속에러가...
sql.add('"'+ edit1.Text + '")');
ExecSQL;
end;
end;
end.
{ 조규춘님 지금 하고 있는 부분의 소스임당.. 보시고 이상한 곳 지적 부탁함당....^^
글구 에러가 계속 남당... 다른 부분도 아니고 테이블 명에서요 지금 전 파라독스 로컬 디비를 사용 중임당....
에러 내용은
invalid use of keyword.
token:작업자
line number:1.}
> procedure TForm2.Button1Click(Sender: TObject);
> begin
> if edit1.Text='' then
> begin
> messagedlg('다시 입력하시요!',mtwarning,[mbok],0);
> exit;
> end;
> form1.Query1.close;
> form1.Query1.SQL.Clear;
> form1.Query1.sql.Add('select * from "작업자.db"');
> form1.query1.sql.add('where 작업자 = "'+ edit1.Text+'"');
> form1.Query1.open;
> if not form1.Query1.Eof then
> begin
> messagedlg('이미 등록된 작업자임!',mtwarning,[mbok],0);
> exit;
> end;
> with form1.Query1 do
> begin
> Close;
> sql.Clear;
> sql.Add('insert 작업자 values ("' +intToStr(form1.DBLookupComboBox3.listfieldindex)+'",');// 이부분의 테이블명에서 계속에러가...
> sql.add('"'+ edit1.Text + '")');
> ExecSQL;
> end;
> end;
> end.
> // 조규춘님 지금 하고 있는 부분의 소스임당.. 보시고 이상한 곳 지적 부탁함당....^^
> 글구 에러가 계속 남당... 다른 부분도 아니고 테이블 명에서요 지금 전 파라독스 로컬 디비를 사용 중임당....
>
sql문중 insert 문의 형식이 틀리었군요!
형식은 다음과 같읍니다.
insert into 테이블명
(필드 명, ....) // 생략가능....
values
(필드 값, ....);
따라서 여기서 보시면 into 값이 빠져 있다는 것을 볼수 있을것이고...
> sql.Add('insert 작업자 values ("' +intToStr(form1.DBLookupComboBox3.listfieldindex)+'",');
그리고 필드 개수만큼 그 필드에 그 필드 값이 잘들어 가나 다시 한번 생각을
해보시면 어떨까 하네요~!
푸힝...
행복하셔요~!