Q&A
- insert 할때 values값 에 대해
insert 할때 values부문에서 에러가 발생합니다..(표시된 부문).
values 에서 삽입할 값은 변수로 정의된 prdcod_,el_,sl_,bo_,hn_인데 이부분을 어떻게 정의해야되는지.....아래부문은 소스입니다
발생하는 에러 메시지 종류는 ,타입변환 혹은 const~과 관련된 에러입니다
procedure TForm1.querybitbtn1Click(Sender: TObject);
var
i:integer;
prdcod_:string;
el_:integer;
sl_:integer;
bo_:integer;
hn_:integer;
begin
with query1 do
begin
close;
sql.clear;
sql.add('drop table bmt750t');
execsql;
close;
sql.clear;
sql.add('create table bmt750T(');
sql.add('prdcod char(13),');
sql.add('up2 char(7),');
sql.add('el numeric(10),');
sql.add('sl numeric(10),');
sql.add('bo numeric(10),');
sql.add('hn numeric(10))');
execsql;
end;//with
with query1 do
begin
close;
sql.clear;
sql.add(' select * ');
sql.add(' from bmt750');
sql.add(' where stkyr+stkmm+stkdd>=20001129');
open;
first;
while not eof do
begin
prdcod_:='';
el_:=0;
sl_:=0;
bo_:=0;
hn_:=0;
prdcod_:=fieldbyname('prdcod').asstring;
if fieldbyname('stkid').asstring='el' then
el_:=fieldbyname('trans').asinteger + fieldbyname('netinp').asinteger
else
if fieldbyname('stkid').asstring='sl' then
sl_:=fieldbyname('trans').asinteger + fieldbyname('netinp').asinteger
else
if fieldbyname('stkid').asstring='bo' then
bo_:=fieldbyname('trans').asinteger + fieldbyname('netinp').asinteger
else
if fieldbyname('stkid').asstring='hn' then
hn_:=fieldbyname('trans').asinteger + fieldbyname('netinp').asinteger;
// end;
with query2 do
begin
close;
sql.add('insert into bmt750t (prdcod,up2,el,sl,bo,hn)');
sql.add('values (prdcod_,,el_,sl_,bo_,hn_)'); <===에러 발생부문
execsql;
close;
end;//with
next;
end;//while
end;//with
with query1 do
begin
i:=0;
close;
sql.clear;
sql.add('select prdcod,up2,el,sl,bo,hn');
sql.add('from bmt750t');
open;
first;
i:=1;
stringgrid1.rowcount:=recordcount+1;
while not eof do
begin
stringgrid1.cells[0,i]:=fieldbyname('prdcod').asstring;
stringgrid1.cells[1,i]:=fieldbyname('up2').asstring;
stringgrid1.cells[2,i]:=fieldbyname('el').asstring;
stringgrid1.cells[3,i]:=fieldbyname('sl').asstring;
stringgrid1.cells[4,i]:=fieldbyname('bo').asstring;
stringgrid1.cells[5,i]:=fieldbyname('hn').asstring;
next;
inc(i);
end;//while
close; //query1
sql.clear;
sql.add('drop table bmt750t');
execsql;
close;
end; //with
end; //처음 begin
end.
values 에서 삽입할 값은 변수로 정의된 prdcod_,el_,sl_,bo_,hn_인데 이부분을 어떻게 정의해야되는지.....아래부문은 소스입니다
발생하는 에러 메시지 종류는 ,타입변환 혹은 const~과 관련된 에러입니다
procedure TForm1.querybitbtn1Click(Sender: TObject);
var
i:integer;
prdcod_:string;
el_:integer;
sl_:integer;
bo_:integer;
hn_:integer;
begin
with query1 do
begin
close;
sql.clear;
sql.add('drop table bmt750t');
execsql;
close;
sql.clear;
sql.add('create table bmt750T(');
sql.add('prdcod char(13),');
sql.add('up2 char(7),');
sql.add('el numeric(10),');
sql.add('sl numeric(10),');
sql.add('bo numeric(10),');
sql.add('hn numeric(10))');
execsql;
end;//with
with query1 do
begin
close;
sql.clear;
sql.add(' select * ');
sql.add(' from bmt750');
sql.add(' where stkyr+stkmm+stkdd>=20001129');
open;
first;
while not eof do
begin
prdcod_:='';
el_:=0;
sl_:=0;
bo_:=0;
hn_:=0;
prdcod_:=fieldbyname('prdcod').asstring;
if fieldbyname('stkid').asstring='el' then
el_:=fieldbyname('trans').asinteger + fieldbyname('netinp').asinteger
else
if fieldbyname('stkid').asstring='sl' then
sl_:=fieldbyname('trans').asinteger + fieldbyname('netinp').asinteger
else
if fieldbyname('stkid').asstring='bo' then
bo_:=fieldbyname('trans').asinteger + fieldbyname('netinp').asinteger
else
if fieldbyname('stkid').asstring='hn' then
hn_:=fieldbyname('trans').asinteger + fieldbyname('netinp').asinteger;
// end;
with query2 do
begin
close;
sql.add('insert into bmt750t (prdcod,up2,el,sl,bo,hn)');
sql.add('values (prdcod_,,el_,sl_,bo_,hn_)'); <===에러 발생부문
execsql;
close;
end;//with
next;
end;//while
end;//with
with query1 do
begin
i:=0;
close;
sql.clear;
sql.add('select prdcod,up2,el,sl,bo,hn');
sql.add('from bmt750t');
open;
first;
i:=1;
stringgrid1.rowcount:=recordcount+1;
while not eof do
begin
stringgrid1.cells[0,i]:=fieldbyname('prdcod').asstring;
stringgrid1.cells[1,i]:=fieldbyname('up2').asstring;
stringgrid1.cells[2,i]:=fieldbyname('el').asstring;
stringgrid1.cells[3,i]:=fieldbyname('sl').asstring;
stringgrid1.cells[4,i]:=fieldbyname('bo').asstring;
stringgrid1.cells[5,i]:=fieldbyname('hn').asstring;
next;
inc(i);
end;//while
close; //query1
sql.clear;
sql.add('drop table bmt750t');
execsql;
close;
end; //with
end; //처음 begin
end.
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 델이랑파이랑
- •
- 2000.12.02 02:58
- 1 COMMENTS
- /
- 0 LIKES
insert 할때 values부문에서 에러가 발생합니다..(표시된 부문). values 에서 삽입할 값은 변수로 정의된 prdcod_,el_,sl_,bo_,hn_인데 이부분을 어떻게 정의해야되는지.....아래부문은 소스입니다 발생하는 에러 메시지 종류는 ,타입변환...-
김종언•2000.12.04 20:24쩝... up2 라는 필드에 아무것도 넣지 않을거라면 없애버리면 되지 않을까요? sql.add('insert i...
-
- 초보자
- •
- 2000.12.02 02:52
- 1 COMMENTS
- /
- 0 LIKES
-
이경문•2000.12.04 11:20다른 사용자들로부터 데이터(패킷)을 수신하는 부분은 쓰레드로 처리하고 송신하는 부분은 Lock을 사용하...
-
- 초보중 초보
- 2000.12.02 02:49
- 0 COMMENTS
- /
- 0 LIKES
-
- 김인수
- •
- 2000.12.02 02:45
- 4 COMMENTS
- /
- 0 LIKES
-
찬호 김•2000.12.02 20:33문제를 해결하셨는지 모르겠네요. 보니까 별 문제는 없는듯 싶네요. A, B 두개의 인라인 뷰에서 같은 PR...
-
김인수•2000.12.02 21:14고수님 정말
-
김종언•2000.12.02 20:03보니깐 안될리가 없는데여... 다시 확인해보세요... 델파이내에서.. 잘못된 문장이 있는지 찾아보세요... ...
-
김인수•2000.12.02 21:17저에게 관심을 갖고 해결점을 알려주셔서 감사합니다 대단히 큰 도움이 되었습니다 항상 즐거운일이 넘...
-
- 이석현
- 2000.12.02 02:31
- 0 COMMENTS
- /
- 0 LIKES
-
- 한창도
- •
- 2000.12.02 02:28
- 1 COMMENTS
- /
- 0 LIKES
-
고드름•2000.12.06 09:37안녕하세요? 고드름 김정입니다. 태스크바에 표시되는 것은 Application 자체입니다. 따라서 이렇게...
-
- 남기룡
- •
- 2000.12.02 02:26
- 2 COMMENTS
- /
- 0 LIKES
-
남기룡•2000.12.02 02:29남기룡 wrote: > EDIT컴포넌트를 투명하게 하려고 그러는데요.. > EDIT는 폼이나 판넬과는 다르게 잘 안...
-
이홍석•2000.12.02 07:55남기룡 wrote: > 남기룡 wrote: > > EDIT컴포넌트를 투명하게 하려고 그러는데요.. > > EDIT는 폼이나 ...
-
- 황하성
- 2000.12.02 02:24
- 0 COMMENTS
- /
- 0 LIKES
-
- 최의종
- •
- 2000.12.02 02:02
- 1 COMMENTS
- /
- 0 LIKES
-
구창민•2000.12.02 02:18최의종 wrote: > 안녕하세요! > > SetWindowPos(..., HWND_TOPMOST, ....)로 폼을 최상위 윈도우로 만...
-
- 조휘석
- •
- 2000.12.02 02:01
- 1 COMMENTS
- /
- 0 LIKES
-
김종언•2000.12.02 20:11ipx 프로토콜 아시죠? 파일 공유하고 하는거.. 그걸 이용해서 폴더 공유하고 내 컴퓨터처럼 사용하는 방...
-
- 빙
- •
- 2000.12.02 01:34
- 1 COMMENTS
- /
- 0 LIKES
-
이경문•2000.12.04 20:43가능합니다. 단, function Add(Item: Pointer): Integer; 이렇게 되여 있져. 그러므로 TList에서 상속을...
-
-
- 금강산
- 2000.12.02 01:20
- 0 COMMENTS
- /
- 0 LIKES
-
- 박경진
- •
- 2000.12.02 00:44
- 1 COMMENTS
- /
- 0 LIKES
-
s6763•2000.12.14 21:44박경진 wrote: > Delphi 에서 OS/DB(Linux(mysql))연동하여 프로그램 테스트 중 입니다. > MySQL 고수님...
-
- 김종언
- 2000.12.02 00:42
- 0 COMMENTS
- /
- 0 LIKES
-
- sky
- 2000.12.02 00:37
- 0 COMMENTS
- /
- 0 LIKES
-
- 호야
- 2000.12.02 01:31
- 0 COMMENTS
- /
- 0 LIKES
-
- pallas
- •
- 2000.12.02 00:06
- 3 COMMENTS
- /
- 0 LIKES
-
김종언•2000.12.02 00:31문법이 틀렸네요... 어떤 필드 값을 뭘로 바꿔준다는 부분이 없어요... * 로 해준 부분을 명확하게.. 지...
-
pallas•2000.12.02 00:57김종언 wrote: > 문법이 틀렸네요... > 어떤 필드 값을 뭘로 바꿔준다는 부분이 없어요... > * 로 해준 ...
-
김종언•2000.12.02 20:25어떤 필드를 어떤값으로 바꿔준다는 부분이 없잖아요... 그걸 정의해 줘야져... pallas wrote: > ...
-
- 김정태
- •
- 2000.12.01 23:56
- 1 COMMENTS
- /
- 0 LIKES
-
까마귀•2000.12.02 01:53김정태 wrote: > > Progress Bar를 보면 항상 파란색으로 진행사항을 표시하는데 > 이 부분을 다른색의...
-
- 델이랑파이랑
- •
- 2000.12.01 23:46
- 2 COMMENTS
- /
- 0 LIKES
-
김종언•2000.12.02 00:40아이구 이런.. 또 나아니면 답해줄사람이 없을것 같네요.... 테이블의 존재 여부를 알아오는 방법이 있습...
-
델이랑파이랑•2000.12.02 01:12김종언 님... 정말 감사드려요...덕분에 유용하게 프로그래밍하고 있습니다.. 김종언님에게는 자그마한 ...
sql.add('insert into bmt750t (prdcod,up2,el,sl,bo,hn)');
sql.add('values (prdcod_,,el_,sl_,bo_,hn_)'); <===에러 발생부문
아래처럼 고쳐보세요.
sql.add('insert into bmt750t (prdcod, el, sl, bo, hn)');
sql.add('values (prdcod_,el_,sl_,bo_,hn_)');
아마 될겁니다.
델이랑파이랑 wrote:
> insert 할때 values부문에서 에러가 발생합니다..(표시된 부문).
> values 에서 삽입할 값은 변수로 정의된 prdcod_,el_,sl_,bo_,hn_인데 이부분을 어떻게 정의해야되는지.....아래부문은 소스입니다
> 발생하는 에러 메시지 종류는 ,타입변환 혹은 const~과 관련된 에러입니다
>
> procedure TForm1.querybitbtn1Click(Sender: TObject);
> var
> i:integer;
> prdcod_:string;
> el_:integer;
> sl_:integer;
> bo_:integer;
> hn_:integer;
>
> begin
> with query1 do
> begin
> close;
> sql.clear;
> sql.add('drop table bmt750t');
> execsql;
>
> close;
> sql.clear;
> sql.add('create table bmt750T(');
> sql.add('prdcod char(13),');
> sql.add('up2 char(7),');
> sql.add('el numeric(10),');
> sql.add('sl numeric(10),');
> sql.add('bo numeric(10),');
> sql.add('hn numeric(10))');
> execsql;
> end;//with
>
> with query1 do
> begin
> close;
> sql.clear;
> sql.add(' select * ');
> sql.add(' from bmt750');
> sql.add(' where stkyr+stkmm+stkdd>=20001129');
> open;
> first;
>
> while not eof do
> begin
> prdcod_:='';
> el_:=0;
> sl_:=0;
> bo_:=0;
> hn_:=0;
>
> prdcod_:=fieldbyname('prdcod').asstring;
> if fieldbyname('stkid').asstring='el' then
> el_:=fieldbyname('trans').asinteger + fieldbyname('netinp').asinteger
> else
> if fieldbyname('stkid').asstring='sl' then
> sl_:=fieldbyname('trans').asinteger + fieldbyname('netinp').asinteger
> else
> if fieldbyname('stkid').asstring='bo' then
> bo_:=fieldbyname('trans').asinteger + fieldbyname('netinp').asinteger
> else
> if fieldbyname('stkid').asstring='hn' then
> hn_:=fieldbyname('trans').asinteger + fieldbyname('netinp').asinteger;
> // end;
>
> with query2 do
> begin
> close;
> sql.add('insert into bmt750t (prdcod,up2,el,sl,bo,hn)');
> sql.add('values (prdcod_,,el_,sl_,bo_,hn_)'); <===에러 발생부문
> execsql;
> close;
> end;//with
> next;
> end;//while
> end;//with
>
> with query1 do
> begin
> i:=0;
> close;
> sql.clear;
> sql.add('select prdcod,up2,el,sl,bo,hn');
> sql.add('from bmt750t');
> open;
> first;
> i:=1;
> stringgrid1.rowcount:=recordcount+1;
> while not eof do
> begin
> stringgrid1.cells[0,i]:=fieldbyname('prdcod').asstring;
> stringgrid1.cells[1,i]:=fieldbyname('up2').asstring;
> stringgrid1.cells[2,i]:=fieldbyname('el').asstring;
> stringgrid1.cells[3,i]:=fieldbyname('sl').asstring;
> stringgrid1.cells[4,i]:=fieldbyname('bo').asstring;
> stringgrid1.cells[5,i]:=fieldbyname('hn').asstring;
> next;
> inc(i);
> end;//while
> close; //query1
>
> sql.clear;
> sql.add('drop table bmt750t');
> execsql;
> close;
> end; //with
>
> end; //처음 begin
>
> end.