code_max:= Query1.fieldbyname('code_num').asstring;
code_max :=inttostr(strtoint(code_max)+1);
showmessage(code_max);
code1:=inttostr(strtoint(code_max)+1);
code2:=edit7.text+code_max; <= 요부분이 좀....
//도서 등록
with Query1 do
begin
close;
sql.clear;
sql.add('insert into book_info');
sql.add('(code,book_title.book_date,book_rent,writer,r_writer,publish,cd)');
sql.add('values( :pcode,:ptitle,:pdate,"소장",:pwiter,:pr_writer,:publish,:pcd)');
parambyname('pcode').asstring:= code2;
parambyname('ptitle').asstring :=edit1.text;
parambyname('pwriter').asstring := edit2.text;
parambyname('pr_writer').asstring := edit3.text;
parambyname('publish').asstring := edit5.text;
parambyname('pcd').asstring := edit4.text;
parambyname('pdate').asstring := datetostr(date);
Execsql;
end;
error message
" Number of query values and destination fields are not the same.', "
이런 메세지가 뜨는데 이게 어떤 메세지인가요?
무슨 뜻인지????????
필드 타입은 다 맞는것 같은데 귀찬아서 모두 스트링으로 선언을 했거든요...
> code_max:= Query1.fieldbyname('code_num').asstring;
> code_max :=inttostr(strtoint(code_max)+1);
> showmessage(code_max);
> code1:=inttostr(strtoint(code_max)+1);
> code2:=edit7.text+code_max; <= 요부분이 좀....
>
> //도서 등록
>
> with Query1 do
> begin
> close;
> sql.clear;
> sql.add('insert into book_info');
> sql.add('(code,book_title.book_date,book_rent,writer,r_writer,publish,cd)');
> sql.add('values( :pcode,:ptitle,:pdate,"소장",:pwiter,:pr_writer,:publish,:pcd)');
> parambyname('pcode').asstring:= code2;
> parambyname('ptitle').asstring :=edit1.text;
> parambyname('pwriter').asstring := edit2.text;
> parambyname('pr_writer').asstring := edit3.text;
> parambyname('publish').asstring := edit5.text;
> parambyname('pcd').asstring := edit4.text;
> parambyname('pdate').asstring := datetostr(date);
> Execsql;
> end;
> error message
> " Number of query values and destination fields are not the same.', "
> 이런 메세지가 뜨는데 이게 어떤 메세지인가요?
> 무슨 뜻인지????????
> 필드 타입은 다 맞는것 같은데 귀찬아서 모두 스트링으로 선언을 했거든요...
필드 타입의 문제가 아니라, "소장" 을 ''소장''으로 바꾸어 보시면 될 것 같은데요.
즉, 큰 따옴표(") 가 아니라 작은 따옴표(')로 입력해야 하믄데, 작은따옴표 하나만 쓰면 앞의 작은따옴표의 끝인줄로 인식하기 때문에 작은따옴표를 두개 연속해서 사용하면 바로 인식할 것 입니다.