Q&A
- parameter값의 적용 error!! 어디가 잘못된건지....(소스)
아래의 소스 컴파일해서 프로그램 실행중에 "Parameter 'Prdcod_' not found"라는 에러가 발생하는데 ...어디가 잘못된건지....아시는분 좀 갈켜주세요...
procedure TForm1.querybitbtn1Click(Sender: TObject);
var
i: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
parambyname('prdcod_').asstring:=fieldbyname('prdcod').asstring;
if fieldbyname('stkid').asstring='el' then
parambyname('el_').asinteger:=fieldbyname('trans').asinteger + fieldbyname('netinp').asinteger
else
if fieldbyname('stkid').asstring='sl' then
parambyname('sl_').asinteger:=fieldbyname('trans').asinteger + fieldbyname('netinp').asinteger
else
if fieldbyname('stkid').asstring='bo' then
parambyname('bo_').asinteger:=fieldbyname('trans').asinteger + fieldbyname('netinp').asinteger
else
if fieldbyname('stkid').asstring='hn' then
parambyname('hn_').asinteger:=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
procedure TForm1.querybitbtn1Click(Sender: TObject);
var
i: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
parambyname('prdcod_').asstring:=fieldbyname('prdcod').asstring;
if fieldbyname('stkid').asstring='el' then
parambyname('el_').asinteger:=fieldbyname('trans').asinteger + fieldbyname('netinp').asinteger
else
if fieldbyname('stkid').asstring='sl' then
parambyname('sl_').asinteger:=fieldbyname('trans').asinteger + fieldbyname('netinp').asinteger
else
if fieldbyname('stkid').asstring='bo' then
parambyname('bo_').asinteger:=fieldbyname('trans').asinteger + fieldbyname('netinp').asinteger
else
if fieldbyname('stkid').asstring='hn' then
parambyname('hn_').asinteger:=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
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- youngae
- •
- 2000.12.02 20:58
- 1 COMMENTS
- /
- 0 LIKES
-
김종언•2000.12.02 22:11말로 설명하는것 보다.. 인스톨 쉴드 메뉴얼을 보시는게 좋을것 같군요... 자료실에서 메뉴얼을 찾...
-
- langbo
- •
- 2000.12.02 20:26
- 2 COMMENTS
- /
- 0 LIKES
-
초보•2000.12.03 23:56하드웨어 제어를 하고 계시군요. 마그네틱카드나, IC카드 제어할때 주로 쓰이는 루틴입니다. 임베...
-
langbo•2000.12.04 20:44초보님 정말 감사합니다. 초보님 말씀되로 시리얼로 데이타를 보내는 것을 하고 있습니다. 델파이도 초보...
-
- 이윤학
- •
- 2000.12.02 20:16
- 1 COMMENTS
- /
- 0 LIKES
-
화랑•2000.12.05 19:27이윤학 wrote: > 특정사이트(예)www.delphi.co.kr/abc.bmp)라는 그림파일을 제가 만드는 프로그램에서 로...
-
- 김정환
- •
- 2000.12.02 20:05
- 1 COMMENTS
- /
- 0 LIKES
-
괴델•2000.12.29 01:20김정환 wrote: > 델파이5.0 컴파일해서 실행할려고 하는데여, > 다음과 같은 에러 나고 진행이 안되네여....
-
- 처음처럼
- 2000.12.02 19:37
- 0 COMMENTS
- /
- 0 LIKES
-
- 델이랑파이랑
- •
- 2000.12.02 18:30
- 1 COMMENTS
- /
- 0 LIKES
아래의 소스 컴파일해서 프로그램 실행중에 "Parameter 'Prdcod_' not found"라는 에러가 발생하는데 ...어디가 잘못된건지....아시는분 좀 갈켜주세요... procedure TForm1.querybitbtn1Click(Sender: TObject); var i:integer; begin wi...-
강인규•2000.12.02 19:29실제로 퀴리2의 파라미터인데 쿼리1의 파라미터로 되어있군요. 위치를 수정하시는게....... 에궁 맞나몰...
-
- 김재억
- 2000.12.02 18:23
- 0 COMMENTS
- /
- 0 LIKES
-
- 허접델피언
- •
- 2000.12.02 11:57
- 1 COMMENTS
- /
- 0 LIKES
-
컴맹...•2000.12.02 18:14a=b*c일단 이연산은 되면 이상한거죠... 실수와 정수의 곱은 실수형으로 표기가 되죠... 그걸 정수변수에...
-
- 남걸호
- 2000.12.02 11:03
- 0 COMMENTS
- /
- 0 LIKES
-
- 뉴지승
- •
- 2000.12.02 08:49
- 1 COMMENTS
- /
- 0 LIKES
-
황광일•2000.12.02 10:37공장자동화 어떤 부분에서 말입니까요? 제 홈에서 그걸 다룹니다... 왼쪽에 링크(내)->OpenCOMM으로 와서...
-
- 전하용
- •
- 2000.12.02 08:42
- 1 COMMENTS
- /
- 0 LIKES
-
어린왕자•2000.12.02 21:04하용님 여기서..보네요.. 공학용계산기는 함수가 있는 게 공학용계산기..^^; /,*가 있을땐 순서가 중요...
-
- 이홍석
- •
- 2000.12.02 07:52
- 2 COMMENTS
- /
- 0 LIKES
-
황현동•2000.12.02 08:25델파이 코리아에 있는 내용인데.. 원하시는 것이 이것인지는 잘 모르겠으나 한번 읽어보십시요. http...
-
이홍석•2000.12.03 04:57황현동 wrote: > 델파이 코리아에 있는 내용인데.. > > 원하시는 것이 이것인지는 잘 모르겠으나 한번 ...
-
- 외부인
- •
- 2000.12.02 05:25
- 2 COMMENTS
- /
- 0 LIKES
-
화랑•2000.12.04 20:09외부인 wrote: > 안녕하세요... > 이번에 회사에서 COM+를 이용한 프로젝트를 진행합니다. > 그래서...V...
-
외부인•2000.12.05 02:13한번쯤 시도 해봄직했을텐데...창피하네요.... VB랑 별차이 없이 생성시키네여. uses ComObj 를 포...
-
- 공공
- •
- 2000.12.02 04:53
- 2 COMMENTS
- /
- 0 LIKES
-
mafioso•2000.12.02 19:10요렇게 함 해보셔여. sql.Add('select source,sport'); sql.add('from master '); sql.add('wh...
-
허저비•2000.12.02 05:50sql.add('where date= "'+ edit1.text+ '"'); sql.add('from master'); > > sql.add('where...
-
- 넘몰라
- 2000.12.02 03:52
- 0 COMMENTS
- /
- 0 LIKES
-
- castle road
- •
- 2000.12.02 03:51
- 2 COMMENTS
- /
- 0 LIKES
-
이광형•2000.12.02 23:24query.close; query.sql.clear; query.sql.add('select sum(field_name) here from table_name'); query...
-
병아리•2000.12.02 19:35procedure var here : Integer; Begin With Query1 Do Begin close; ...
-
- tosky
- 2000.12.02 03:37
- 0 COMMENTS
- /
- 0 LIKES
-
- 정동일
- •
- 2000.12.02 03:28
- 1 COMMENTS
- /
- 0 LIKES
-
조규춘•2000.12.02 19:42정동일 wrote: > 안녕하세요? > 정동일입니다. > > StringGrid에 있는 데이터중에서 한개의 Row를 선...
-
- 넘몰라
- •
- 2000.12.02 03:15
- 2 COMMENTS
- /
- 0 LIKES
-
바보감자•2000.12.02 03:48넘몰라 wrote: > 델파이5에서 작업을 하는데... > where절은 없구여 무조건 위의 다섯개의 레코드만 가지...
-
권경미•2000.12.02 03:36넘몰라 wrote: > 델파이5에서 작업을 하는데... > where절은 없구여 무조건 위의 다섯개의 레코드만 가지...
-
- KMG
- 2000.12.02 03:15
- 0 COMMENTS
- /
- 0 LIKES
위치를 수정하시는게.......
에궁 맞나몰라....즐프하세여~
while not eof do
begin
with query2 do
begin
parambyname('prdcod_').asstring:=fieldbyname('prdcod').asstring;
if fieldbyname('stkid').asstring='el' then
parambyname('el_').asinteger:=fieldbyname('trans').asinteger + fieldbyname('netinp').asinteger
else if fieldbyname('stkid').asstring='sl' then
prambyname('sl_').asinteger:=fieldbyname('trans').asinteger + fieldbyname('netinp').sinteger
else if fieldbyname('stkid').asstring='bo' then
parambyname('bo_').asinteger:=fieldbyname('trans').asinteger + fieldbyname('netinp').asinteger
else
if fieldbyname('stkid').asstring='hn' then
parambyname('hn_').asinteger:=fieldbyname('trans').asinteger + fieldbyname('netinp').asinteger;
// end;
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
델이랑파이랑 wrote:
> 아래의 소스 컴파일해서 프로그램 실행중에 "Parameter 'Prdcod_' not found"라는 에러가 발생하는데 ...어디가 잘못된건지....아시는분 좀 갈켜주세요...
>
> procedure TForm1.querybitbtn1Click(Sender: TObject);
> var
> i: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
>
> parambyname('prdcod_').asstring:=fieldbyname('prdcod').asstring;
> if fieldbyname('stkid').asstring='el' then
> parambyname('el_').asinteger:=fieldbyname('trans').asinteger + fieldbyname('netinp').asinteger
> else
> if fieldbyname('stkid').asstring='sl' then
> parambyname('sl_').asinteger:=fieldbyname('trans').asinteger + fieldbyname('netinp').asinteger
> else
> if fieldbyname('stkid').asstring='bo' then
> parambyname('bo_').asinteger:=fieldbyname('trans').asinteger + fieldbyname('netinp').asinteger
> else
> if fieldbyname('stkid').asstring='hn' then
> parambyname('hn_').asinteger:=fieldbyname('trans').asinteger + fieldbyname('netinp').asinteger;
> // end;
>
> with query2 do
> begin
> parambyname('prdcod_').asstring:=fieldbyname('prdcod').asstring;
> if fieldbyname('stkid').asstring='el' then
> parambyname('el_').asinteger:=fieldbyname('trans').asinteger + fieldbyname('netinp').asinteger
> else
> if fieldbyname('stkid').asstring='sl' then
> parambyname('sl_').asinteger:=fieldbyname('trans').asinteger + fieldbyname('netinp').asinteger
> else
> if fieldbyname('stkid').asstring='bo' then
> parambyname('bo_').asinteger:=fieldbyname('trans').asinteger + fieldbyname('netinp').asinteger
> else
> if fieldbyname('stkid').asstring='hn' then
> parambyname('hn_').asinteger:=fieldbyname('trans').asinteger + fieldbyname('netinp').asinteger;
> // end;
> 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
>
>