Q&A

  • 허걱 이건 뭔 에러쥐....조규춘님 갈켜줘엽 ^^ [급함당...ㅠ.ㅠ]
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.}







2  COMMENTS
  • Profile
    조규춘 2000.05.24 02:48
    사발우성. wrote:

    > 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)+'",');

    그리고 필드 개수만큼 그 필드에 그 필드 값이 잘들어 가나 다시 한번 생각을

    해보시면 어떨까 하네요~!

    푸힝...



    행복하셔요~!



  • Profile
    최석기 2000.05.24 02:34
    사발우성. wrote:

    > 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.}

    >

    >

    >



    Insert문의 문법은 INSERT INTO TableName VALUES... 이런 식으로 나가야 되는거로 알고 있는데요.



    INTO가 빠진거 같네요..