Q&A

  • DB에 INSERT하려구 하는데...도와줘여..
전 델파이 초본데...이게 잘 안되네여...db에 연결해서 insert 하려구 했는데...

계속 N1을 찾을수 없다고 나와서여..

뭐가 잘못된건지...

좀 알려주실래여...



procedure TForm3.btnSaveClick(Sender: TObject);

var

sSql:string;

begin



begin

Query1.close;

sSql := 'Insert into "성적.dbf" (NUMBER,NAME,BASE,UUIX,DELPHI,JAVA,C)'+

'Values (:PNUMBER, :PNAME, :PBASE, :PUNIX, :PDELPHI,:PJAVA, :PC)';

Query1.sSql.add(sSql);

Query1.Parambyname('PNUMBER').asinteger:=strtointdef(Edit1.Text);

Query1.Parambyname('PNAME').asstring:=Edit2.Text;

Query1.Parambyname('PBASE').asinteger:=strtointdef(Edit3.Text);

Query1.Parambyname('PUNIX').asinteger:=strtointdef(Edit4.Text);

Query1.Parambyname('PDELPHI').asinteger:=strtointdef(Edit5.Text);

Query1.Parambyname('PJAVA').asinteger:=strtointdef(Edit6.Text);

Query1.Parambyname('PC').asinteger:=strtointdef(Edit7.Text);



ExecSQL;

close;

Query2.SQL.Clear;

Query2.sql.add('select* from "성적.dbf");

Query2.open;





end;

end;



참고로 제가 사용한 db는 dbf구여..글구 NAME만.C 구 나머진 다 N 이거든여...

꼭좀...



5  COMMENTS
  • Profile
    이성훈 2001.01.12 02:00
    제가 보기에는 함수를 잘못 쓰시건 같은디

    StrToInt함수를 쓰세요...



    참고로 StrToIntDef함수의 사용법은 이렇습니다. 물론 Help를 보심면 알겠지만....



    StrToIntDef(const S: string; Default: Integer) 입니다.



    예를 들어

    StrToIntDef(Edit1.Text,1000);



    단순히 문자열을 Int형으로 바꾸어주는게 아니라.. 입력받는 값이없으면

    1000으로 값을 디폴트 시켜줍니다...



    그럼 즐팅하세요./....







    델파이 초보.. wrote:

    > 전 델파이 초본데...이게 잘 안되네여...db에 연결해서 insert 하려구 했는데...

    > 계속 N1을 찾을수 없다고 나와서여..

    > 뭐가 잘못된건지...

    > 좀 알려주실래여...

    >

    > procedure TForm3.btnSaveClick(Sender: TObject);

    > var

    > sSql:string;

    > begin

    >

    > begin

    > Query1.close;

    > sSql := 'Insert into "성적.dbf" (NUMBER,NAME,BASE,UUIX,DELPHI,JAVA,C)'+

    > 'Values (:PNUMBER, :PNAME, :PBASE, :PUNIX, :PDELPHI,:PJAVA, :PC)';

    > Query1.sSql.add(sSql);

    > Query1.Parambyname('PNUMBER').asinteger:=strtointdef(Edit1.Text);

    > Query1.Parambyname('PNAME').asstring:=Edit2.Text;

    > Query1.Parambyname('PBASE').asinteger:=strtointdef(Edit3.Text);

    > Query1.Parambyname('PUNIX').asinteger:=strtointdef(Edit4.Text);

    > Query1.Parambyname('PDELPHI').asinteger:=strtointdef(Edit5.Text);

    > Query1.Parambyname('PJAVA').asinteger:=strtointdef(Edit6.Text);

    > Query1.Parambyname('PC').asinteger:=strtointdef(Edit7.Text);

    >

    > ExecSQL;

    > close;

    > Query2.SQL.Clear;

    > Query2.sql.add('select* from "성적.dbf");

    > Query2.open;

    >

    >

    > end;

    > end;

    >

    > 참고로 제가 사용한 db는 dbf구여..글구 NAME만.C 구 나머진 다 N 이거든여...

    > 꼭좀...

    >

  • Profile
    xdelphi 2001.01.12 01:53
    델파이 초보.. wrote:

    > 전 델파이 초본데...이게 잘 안되네여...db에 연결해서 insert 하려구 했는데...

    > 계속 N1을 찾을수 없다고 나와서여..

    > 뭐가 잘못된건지...

    > 좀 알려주실래여...

    >

    > procedure TForm3.btnSaveClick(Sender: TObject);

    > var

    > sSql:string;

    > begin

    >

    > begin

    > Query1.close;

    > sSql := 'Insert into "성적.dbf" (NUMBER,NAME,BASE,UUIX,DELPHI,JAVA,C)'+

    > 'Values (:PNUMBER, :PNAME, :PBASE, :PUNIX, :PDELPHI,:PJAVA, :PC)';

    > Query1.sSql.add(sSql);

    > Query1.Parambyname('PNUMBER').asinteger:=strtointdef(Edit1.Text);

    > Query1.Parambyname('PNAME').asstring:=Edit2.Text;

    > Query1.Parambyname('PBASE').asinteger:=strtointdef(Edit3.Text);

    > Query1.Parambyname('PUNIX').asinteger:=strtointdef(Edit4.Text);

    > Query1.Parambyname('PDELPHI').asinteger:=strtointdef(Edit5.Text);

    > Query1.Parambyname('PJAVA').asinteger:=strtointdef(Edit6.Text);

    > Query1.Parambyname('PC').asinteger:=strtointdef(Edit7.Text);

    >

    > ExecSQL;

    > close;

    > Query2.SQL.Clear;

    > Query2.sql.add('select* from "성적.dbf");

    > Query2.open;

    >

    >

    > end;

    > end;

    >

    > 참고로 제가 사용한 db는 dbf구여..글구 NAME만.C 구 나머진 다 N 이거든여...

    > 꼭좀...

    >



    이렇게 한번바꿔보심이 어떨지??

    안되더라도 원망은 하지마세요....(^_^)

    늘...행복하세요...



    procedure TForm3.btnSaveClick(Sender: TObject);

    var

    sSql:string;

    begin



    sSQL := ' Insert into "성적.dbf" (NUMBER,NAME,BASE,UUIX,DELPHI,JAVA,C) '+

    ' Values (:PNUMBER, :PNAME, :PBASE, :PUNIX, :PDELPHI,:PJAVA, :PC) ';

    with Query1 do begin

    Close;

    SQL.Clear;

    SQL.Add(sSQL);

    Query1.Parambyname('PNUMBER').AsInteger :=strtointdef(Edit1.Text,0);

    Query1.Parambyname('PNAME').AsString :=Edit2.Text;

    Query1.Parambyname('PBASE').AsInteger :=strtointdef(Edit3.Text,0);

    Query1.Parambyname('PUNIX').AsInteger :=strtointdef(Edit4.Text,0);

    Query1.Parambyname('PDELPHI').AsInteger :=strtointdef(Edit5.Text,0);

    Query1.Parambyname('PJAVA').AsInteger :=strtointdef(Edit6.Text,0);

    Query1.Parambyname('PC').AsInteger :=strtointdef(Edit7.Text,0);

    ExecSQL;

    end;



    with Query2 do begin

    Close;

    SQL.Clear;

    SQL.Add(' select* from "성적.dbf" ');

    Open;

    end;



    end;

  • Profile
    델파이 초보.. 2001.01.12 02:03
    xdelphi wrote:

    > 델파이 초보.. wrote:

    > > 전 델파이 초본데...이게 잘 안되네여...db에 연결해서 insert 하려구 했는데...

    > > 계속 N1을 찾을수 없다고 나와서여..

    > > 뭐가 잘못된건지...

    > > 좀 알려주실래여...

    > >

    > > procedure TForm3.btnSaveClick(Sender: TObject);

    > > var

    > > sSql:string;

    > > begin

    > >

    > > begin

    > > Query1.close;

    > > sSql := 'Insert into "성적.dbf" (NUMBER,NAME,BASE,UUIX,DELPHI,JAVA,C)'+

    > > 'Values (:PNUMBER, :PNAME, :PBASE, :PUNIX, :PDELPHI,:PJAVA, :PC)';

    > > Query1.sSql.add(sSql);

    > > Query1.Parambyname('PNUMBER').asinteger:=strtointdef(Edit1.Text);

    > > Query1.Parambyname('PNAME').asstring:=Edit2.Text;

    > > Query1.Parambyname('PBASE').asinteger:=strtointdef(Edit3.Text);

    > > Query1.Parambyname('PUNIX').asinteger:=strtointdef(Edit4.Text);

    > > Query1.Parambyname('PDELPHI').asinteger:=strtointdef(Edit5.Text);

    > > Query1.Parambyname('PJAVA').asinteger:=strtointdef(Edit6.Text);

    > > Query1.Parambyname('PC').asinteger:=strtointdef(Edit7.Text);

    > >

    > > ExecSQL;

    > > close;

    > > Query2.SQL.Clear;

    > > Query2.sql.add('select* from "성적.dbf");

    > > Query2.open;

    > >

    > >

    > > end;

    > > end;

    > >

    > > 참고로 제가 사용한 db는 dbf구여..글구 NAME만.C 구 나머진 다 N 이거든여...

    > > 꼭좀...

    > >

    >

    > 이렇게 한번바꿔보심이 어떨지??

    > 안되더라도 원망은 하지마세요....(^_^)

    > 늘...행복하세요...

    >

    > procedure TForm3.btnSaveClick(Sender: TObject);

    > var

    > sSql:string;

    > begin

    >

    > sSQL := ' Insert into "성적.dbf" (NUMBER,NAME,BASE,UUIX,DELPHI,JAVA,C) '+

    > ' Values (:PNUMBER, :PNAME, :PBASE, :PUNIX, :PDELPHI,:PJAVA, :PC) ';

    > with Query1 do begin

    > Close;

    > SQL.Clear;

    > SQL.Add(sSQL);

    > Query1.Parambyname('PNUMBER').AsInteger :=strtointdef(Edit1.Text,0);

    > Query1.Parambyname('PNAME').AsString :=Edit2.Text;

    > Query1.Parambyname('PBASE').AsInteger :=strtointdef(Edit3.Text,0);

    > Query1.Parambyname('PUNIX').AsInteger :=strtointdef(Edit4.Text,0);

    > Query1.Parambyname('PDELPHI').AsInteger :=strtointdef(Edit5.Text,0);

    > Query1.Parambyname('PJAVA').AsInteger :=strtointdef(Edit6.Text,0);

    > Query1.Parambyname('PC').AsInteger :=strtointdef(Edit7.Text,0);

    > ExecSQL;

    > end;

    >

    > with Query2 do begin

    > Close;

    > SQL.Clear;

    > SQL.Add(' select* from "성적.dbf" ');

    > Open;

    > end;

    >

    > end;





    아이구..감사하지만.. 이것두 안되는데여...

    우와..짜증나 미치겠씀다..

    이거 같구만..거의 하루가 지나갔군...

    아시는분..꼭좀 알려줘여...

  • Profile
    성더기 2001.01.12 23:41
    확인해 보셈..



  • Profile
    김유승 2001.01.12 02:24
    델파이 초보.. wrote:

    > xdelphi wrote:

    > > 델파이 초보.. wrote:

    > > > 전 델파이 초본데...이게 잘 안되네여...db에 연결해서 insert 하려구 했는데...

    > > > 계속 N1을 찾을수 없다고 나와서여..

    > > > 뭐가 잘못된건지...

    > > > 좀 알려주실래여...

    > > >

    > > > procedure TForm3.btnSaveClick(Sender: TObject);

    > > > var

    > > > sSql:string;

    > > > begin

    > > >

    > > > begin

    > > > Query1.close;

    > > > sSql := 'Insert into "성적.dbf" (NUMBER,NAME,BASE,UUIX,DELPHI,JAVA,C)'+

    > > > 'Values (:PNUMBER, :PNAME, :PBASE, :PUNIX, :PDELPHI,:PJAVA, :PC)';

    > > > Query1.sSql.add(sSql);

    > > > Query1.Parambyname('PNUMBER').asinteger:=strtointdef(Edit1.Text);

    > > > Query1.Parambyname('PNAME').asstring:=Edit2.Text;

    > > > Query1.Parambyname('PBASE').asinteger:=strtointdef(Edit3.Text);

    > > > Query1.Parambyname('PUNIX').asinteger:=strtointdef(Edit4.Text);

    > > > Query1.Parambyname('PDELPHI').asinteger:=strtointdef(Edit5.Text);

    > > > Query1.Parambyname('PJAVA').asinteger:=strtointdef(Edit6.Text);

    > > > Query1.Parambyname('PC').asinteger:=strtointdef(Edit7.Text);

    > > >

    > > > ExecSQL;

    > > > close;

    > > > Query2.SQL.Clear;

    > > > Query2.sql.add('select* from "성적.dbf");

    > > > Query2.open;

    > > >

    > > >

    > > > end;

    > > > end;

    > > >

    > > > 참고로 제가 사용한 db는 dbf구여..글구 NAME만.C 구 나머진 다 N 이거든여...

    > > > 꼭좀...

    > > >

    > >

    > > 이렇게 한번바꿔보심이 어떨지??

    > > 안되더라도 원망은 하지마세요....(^_^)

    > > 늘...행복하세요...

    > >

    > > procedure TForm3.btnSaveClick(Sender: TObject);

    > > var

    > > sSql:string;

    > > begin

    > >

    > > sSQL := ' Insert into "성적.dbf" (NUMBER,NAME,BASE,UUIX,DELPHI,JAVA,C) '+

    > > ' Values (:PNUMBER, :PNAME, :PBASE, :PUNIX, :PDELPHI,:PJAVA, :PC) ';

    > > with Query1 do begin

    > > Close;

    > > SQL.Clear;

    > > SQL.Add(sSQL);

    > > Query1.Parambyname('PNUMBER').AsInteger :=strtointdef(Edit1.Text,0);

    > > Query1.Parambyname('PNAME').AsString :=Edit2.Text;

    > > Query1.Parambyname('PBASE').AsInteger :=strtointdef(Edit3.Text,0);

    > > Query1.Parambyname('PUNIX').AsInteger :=strtointdef(Edit4.Text,0);

    > > Query1.Parambyname('PDELPHI').AsInteger :=strtointdef(Edit5.Text,0);

    > > Query1.Parambyname('PJAVA').AsInteger :=strtointdef(Edit6.Text,0);

    > > Query1.Parambyname('PC').AsInteger :=strtointdef(Edit7.Text,0);

    > > ExecSQL;

    > > end;

    > >

    > > with Query2 do begin

    > > Close;

    > > SQL.Clear;

    > > SQL.Add(' select* from "성적.dbf" ');

    > > Open;

    > > end;

    > >

    > > end;

    >

    >

    > 아이구..감사하지만.. 이것두 안되는데여...

    > 우와..짜증나 미치겠씀다..

    > 이거 같구만..거의 하루가 지나갔군...

    > 아시는분..꼭좀 알려줘여...





    ______________________________________________________________________

    이렇게 해보세요

    Query1.sql.Text := sSQL;

    > > with Query1 do begin

    > > Close;

    > > Query1.Parambyname('PNUMBER').AsInteger :=strtointdef(Edit1.Text,0);

    > > Query1.Parambyname('PNAME').AsString :=Edit2.Text;

    > > Query1.Parambyname('PBASE').AsInteger :=strtointdef(Edit3.Text,0);

    > > Query1.Parambyname('PUNIX').AsInteger :=strtointdef(Edit4.Text,0);

    > > Query1.Parambyname('PDELPHI').AsInteger :=strtointdef(Edit5.Text,0);

    > > Query1.Parambyname('PJAVA').AsInteger :=strtointdef(Edit6.Text,0);

    > > Query1.Parambyname('PC').AsInteger :=strtointdef(Edit7.Text,0);

    > > ExecSQL;

    > > end;

    > >

    • 이성훈
      2001.01.12 02:00
      제가 보기에는 함수를 잘못 쓰시건 같은디 StrToInt함수를 쓰세요... 참고로 StrToIntDef함수의 사용법...
    • xdelphi
      2001.01.12 01:53
      델파이 초보.. wrote: > 전 델파이 초본데...이게 잘 안되네여...db에 연결해서 insert 하려구 했는데... ...
    • 델파이 초보..
      2001.01.12 02:03
      xdelphi wrote: > 델파이 초보.. wrote: > > 전 델파이 초본데...이게 잘 안되네여...db에 연결해서 inse...
    • 성더기
      2001.01.12 23:41
      확인해 보셈..
    • 김유승
      2001.01.12 02:24
      델파이 초보.. wrote: > xdelphi wrote: > > 델파이 초보.. wrote: > > > 전 델파이 초본데...이게 잘 ...
    • 김유승
      2001.01.12 01:50
      이기코알라 wrote: > 고수님들 안녕하세요.. 건강들 하시죠.. > 간단한 문제인 것 같은데 잘 몰라 고수님...
    • 김현우
    • 2001.01.12 01:22
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 화랑
      2001.01.16 05:47
      DHTMLEdit... 저도 조금밖에서 써질 않아서 잘 모르는데요.. 엄청 기능이 많던데요.. 잘하면.. ...
    • xdelphi
      2001.01.12 01:13
      델피언 wrote: > 체크박스가 10개가 있으면 버튼을 눌렀을때 체크되어있는것이 몇개인지 > 알수있는방법...
    • 과객
    • 2001.01.12 00:30
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 정성훈
      2001.01.12 02:09
      과객 wrote: > 컴포넌트를 정상적으로 잘 등록했습니다. > 그런데 문제는 등록된 컴포넌트가 아무런 이미...
    • 병부잡이
      2001.01.12 03:51
      배열 형태로 생성할땐 이렇게 하심 됩니다 var AryImage : Array [1..10] Of TImage; 요렇게 하심 1...
    • xdelphi
      2001.01.12 00:05
      eewook wrote: > 응용프로그램실행시 파라메터전달방법은 어케하나요? > 예를들면 델파이에서 특정 텍스...
    • eewook
      2001.01.12 00:18
      xdelphi wrote: > eewook wrote: > > 응용프로그램실행시 파라메터전달방법은 어케하나요? > > 예를들면...
    • xdelphi
      2001.01.12 00:23
      eewook wrote: > xdelphi wrote: > > eewook wrote: > > > 응용프로그램실행시 파라메터전달방법은 어케...
    • eewook
      2001.01.12 00:33
      xdelphi wrote: > eewook wrote: > > xdelphi wrote: > > > eewook wrote: > > > > 응용프로그램실행시...
    • 정대연
    • 2001.01.11 23:02
    • 7 COMMENTS
    • /
    • 0 LIKES
    • 유재우
      2001.01.14 02:03
      정대연 wrote: > 델파이 5 로 ADO를 이용해서 M$-SQL 관련 프로그램을 하고 있습니다. > 얼마전 M$-SQL ...
    • 양용민
      2001.01.12 01:37
      혹시 ADO 2.6을 사용하시는지? 맞다면 델파이 ADO 컴포넌트를 패치해 보세요. 자세한 것은 한국 델...
    • 정대연
      2001.01.12 02:00
      양용민 wrote: > 혹시 ADO 2.6을 사용하시는지? > > 맞다면 델파이 ADO 컴포넌트를 패치해 보세요. >...
    • 양용민
      2001.01.12 06:28
      > 참고로 저의 개발환경을 말씀드리자면, > windows 2000 / M$-SQL 2000 / delphi 5 (물론 패치는 되어있...
    • 정대연
      2001.01.12 19:42
      먼저 용민님 정말 감사드립니다. 아래의 업데이트를 했더니 해결이 되었습니다. 하지만, 이 문제가 완...
    • Mr. Ziker
      2001.01.11 23:18
      테이블에 아무런 내용이 없는거 아닌지요... 정대연 wrote: > 델파이 5 로 ADO를 이용해서 M$-SQL 관...
    • 정대연
      2001.01.11 23:30
      제 질문에 관심을 갖아주셔서 감사드립니다. 물론 테이블엔 정상적인 데이타가 들어 있습니다. 이전 M$...
    • 조덕진
      2001.01.12 02:54
      강의식 wrote: > 델파이를 사랑하는 모든 분들께... > > StringGrid를 사용해서 값을 입력받고 표기하...
    • Umpro
      2001.01.12 00:41
      초델 wrote: > 리포트화일을 실행시키면 floating point division by zero라는 에러메시지가 뜹니다... >...
    • 초델
      2001.01.12 02:21
      Umpro wrote: > 초델 wrote: > > 리포트화일을 실행시키면 floating point division by zero라는 에러메...
    • Umpro
      2001.01.12 19:34
      > > 아마 나누려는 값이 0 일것입니다. > > 이렇게 해보세요 > > if aaa 0 then > > bbb := aaa/c...
    • 칠라기
    • 2001.01.11 22:32
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 지영일
      2001.01.11 22:57
      칠라기 wrote: > 폼 위치를 해상도에 상관없이 제어 하고 싶은데요.. > 폼의 좌표를 어떻게 지정하는건지...
    • sonic0
    • 2001.01.11 21:16
    • 2 COMMENTS
    • /
    • 0 LIKES
    • 국어사랑
      2001.04.19 23:01
      니가 한말 한줄도 제대로 쓴말 없다. 그러니 당연 ActiveX모르지... sonic0 wrote: > 음.......열라...
    • Mr. Ziker
      2001.01.11 23:38
      안녕하세요.. ActiveX라 함은 말 그대로 X를 '미지수'라는 뜻으로 이해 하시면 됩니다. 즉 활동을 하기...
    • 권혁주
    • 2001.01.11 20:44
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 전철호
      2001.01.11 20:49
      권혁주 wrote: > 한가지 궁금한것이 있어 이렇게 글을 드립니다. > TWebBrowser 컴포넌트를 쓰려고 하는...
    • 이문환
    • 2001.01.11 19:21
    • 1 COMMENTS
    • /
    • 0 LIKES
    • 냉혈이
      2001.01.11 19:49
      마스크에디터의 오브젝트 인스펙트부분에서여 TabStop이 False인지 아님 True인지 확인해보세여 False인...
    • hnc
    • 2001.01.11 19:11
    • 0 COMMENTS
    • /
    • 0 LIKES
    • 이원택
    • 2001.01.11 19:07
    • 3 COMMENTS
    • /
    • 0 LIKES
    • xdelphi
      2001.01.11 20:41
      이원택 wrote: > delphi 3.0을 다시 설치하였는데 F9를 누른후 BreakPoint에 가면 제가 원하는 변수앞에 ...
    • cico
      2001.01.11 21:15
      검 델파이5에선 어케해야 하남여/ 좀 알려주세요 이만 총총총 xdelphi wrote: > 이원택 wrote: ...
    • xdelphi
      2001.01.11 22:15
      cico wrote: > 검 델파이5에선 어케해야 하남여/ > > 좀 알려주세요 > > 이만 총총총 > > xdelph...