전 델파이 초본데...이게 잘 안되네여...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 이거든여...
꼭좀...
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 이거든여...
> 꼭좀...
>