Q&A

  • grid에 삽입하는 법을 좀........
안녕하세요. 델 초보자 인데요....

그러니까 제가 알고 싶은 것은 query를 이용하여 그리드에 삽입하는 법을 알고싶습니다.



procedure Tinsert_f.insert_bClick(Sender: TObject);

begin

with main_f do

begin

query1.SQL.Add('insert into book');

query1.SQL.Add('(head,publish,author,page,date,price)');

query1.SQL.Add('value');

query1.SQL.Add('(:head1,');

query1.SQL.Add(':publish1,');

query1.SQL.Add(':author1,');

query1.SQL.Add(':page1,');

query1.SQL.Add(':date1,');

query1.SQL.Add(':price1)');

Query1.ParamByName('head1') .asstring := edit2.Text ;

Query1.ParamByName('publish1').asstring := edit3.Text ;

Query1.ParamByName('author1') .asstring := edit4.Text ;

Query1.ParamByName('page1') .asstring := edit6.Text ;

Query1.ParamByName('date1') .asstring := edit7.Text ;

Query1.ParamByName('price1') .asstring := edit8.Text ;

end;

main_f.query1.ExecSQL ;

main_f.display; //여기에는 close,clear,add,open문이 들어있슴.

end;



이게 제가 작성한건데요. 계속 에러가 납니다. 수정좀 부탁드릴께요.

그리고 좋은 방법있으시면 좀 적어주시면 고맙겠네요.

즐거운 하루 되세요

1  COMMENTS
  • Profile
    여영식 2000.01.12 23:03
    어떤 에러를 말씀하시는건지 잘 모르겠지만

    query1.SQL.Add('value'); 문장에서 vlaue 가 아니라 values 가 되어야 합니다.



    query1.SQL.Add('values');

    이어야 하지요.



    ---



    수미지 wrote:

    > 안녕하세요. 델 초보자 인데요....

    > 그러니까 제가 알고 싶은 것은 query를 이용하여 그리드에 삽입하는 법을 알고싶습니다.

    >

    > procedure Tinsert_f.insert_bClick(Sender: TObject);

    > begin

    > with main_f do

    > begin

    > query1.SQL.Add('insert into book');

    > query1.SQL.Add('(head,publish,author,page,date,price)');

    > query1.SQL.Add('value');

    > query1.SQL.Add('(:head1,');

    > query1.SQL.Add(':publish1,');

    > query1.SQL.Add(':author1,');

    > query1.SQL.Add(':page1,');

    > query1.SQL.Add(':date1,');

    > query1.SQL.Add(':price1)');

    > Query1.ParamByName('head1') .asstring := edit2.Text ;

    > Query1.ParamByName('publish1').asstring := edit3.Text ;

    > Query1.ParamByName('author1') .asstring := edit4.Text ;

    > Query1.ParamByName('page1') .asstring := edit6.Text ;

    > Query1.ParamByName('date1') .asstring := edit7.Text ;

    > Query1.ParamByName('price1') .asstring := edit8.Text ;

    > end;

    > main_f.query1.ExecSQL ;

    > main_f.display; //여기에는 close,clear,add,open문이 들어있슴.

    > end;

    >

    > 이게 제가 작성한건데요. 계속 에러가 납니다. 수정좀 부탁드릴께요.

    > 그리고 좋은 방법있으시면 좀 적어주시면 고맙겠네요.

    > 즐거운 하루 되세요