Q&A
- 쿼리한 결과가 항상 2 레코드입니다. 특정 카운트의 값을 가져오려는데요...
쿼리한 결과가 항상 2 레코드입니다. 특정 카운트의 값을 가져오려는데요...
ImVarGrid1.Cells[0, GRID_MAX_ROW] := FieldByName('LINE_NO').AsInteger;
ImVarGrid1.Cells[1, GRID_MAX_ROW] := FieldByName('STYLE').AsString;
ImVarGrid1.Cells[2, GRID_MAX_ROW] := FieldByName('QTY').AsString;
ImVarGrid1.Cells[3, GRID_MAX_ROW] := FieldByName('PRICE').AsInteger;
ImVarGrid1.Cells[4, GRID_MAX_ROW] := FieldByName('GONG').AsInteger;
ImVarGrid1.Cells[5, GRID_MAX_ROW] := FieldByName('PRICE').AsInteger;
ImVarGrid1.Cells[6, GRID_MAX_ROW] := FieldByName('GONG').AsInteger;
ImVarGrid1.Cells[7, GRID_MAX_ROW] := FieldByName('LOW_G').AsString;
위의 문장에서 'PRICE','GONG' 이 각각 2번씩 쓰여집니다 여기서 위의 'PRICE'
와 'GONG'은 첫번째 레코드카운트에서 가져오고 두번째 'PRICE'와 'GONG'은
두번재 레코드에서 가져오려 합니다. 어떤 방법을 써야 하는지요....도와주세요.
오라클을 사용하고 있습니다.
ImVarGrid1.Cells[0, GRID_MAX_ROW] := FieldByName('LINE_NO').AsInteger;
ImVarGrid1.Cells[1, GRID_MAX_ROW] := FieldByName('STYLE').AsString;
ImVarGrid1.Cells[2, GRID_MAX_ROW] := FieldByName('QTY').AsString;
ImVarGrid1.Cells[3, GRID_MAX_ROW] := FieldByName('PRICE').AsInteger;
ImVarGrid1.Cells[4, GRID_MAX_ROW] := FieldByName('GONG').AsInteger;
ImVarGrid1.Cells[5, GRID_MAX_ROW] := FieldByName('PRICE').AsInteger;
ImVarGrid1.Cells[6, GRID_MAX_ROW] := FieldByName('GONG').AsInteger;
ImVarGrid1.Cells[7, GRID_MAX_ROW] := FieldByName('LOW_G').AsString;
위의 문장에서 'PRICE','GONG' 이 각각 2번씩 쓰여집니다 여기서 위의 'PRICE'
와 'GONG'은 첫번째 레코드카운트에서 가져오고 두번째 'PRICE'와 'GONG'은
두번재 레코드에서 가져오려 합니다. 어떤 방법을 써야 하는지요....도와주세요.
오라클을 사용하고 있습니다.
2
COMMENTS
-
-
오라클이면 rownum을 사용하시면 될것같은데...
쿼리필드에 rownum인가? 하는 필드를 추가시켜서 처리하시면 어떨까요?
(NOTICE) You must be logged in to comment on this post.
-
- 신호
- •
- 2002.07.09 21:56
- 5 COMMENTS
- /
- 0 LIKES
-
최용일•2002.07.10 01:17
-
신호•2002.07.10 03:26
-
최용일•2002.07.10 04:19
-
신호•2002.07.10 20:37
-
최용일•2002.07.11 01:09
-
- 수서니
- •
- 2002.07.09 21:25
- 2 COMMENTS
- /
- 0 LIKES
-
수서니•2002.07.10 03:14우편번호 찾는 모달창에서.... 컴포넌트들을 지우고 다시 갖다놓고 Query의 Active를 false로 두고 f...
-
한하눌•2002.07.09 22:38frmZip 폼의 create 에 정의 된부분 또는 해당폼에 있는 query컴포넌트에서 사용된 query에서 발생한 오류...
-
- 장재호
- •
- 2002.07.09 21:18
- 3 COMMENTS
- /
- 0 LIKES
-
나옹이•2002.07.10 00:18글세요.... 제가 잘 알아 들었는지는 몰겠는데.... 스트링그리드에서 특정 셀의 값을 직접 수정해서 ...
-
장재호•2002.07.10 01:31query:='update table set field_name='''+Stringgrid1.cells[2,Stringgrid1.row] where serial='+Stringgr...
-
나옹이•2002.07.10 02:30냉.... serial 이라고 적은건요... 제가 습관적으로 인덱스키를 serial 이라고 쓰거든요.... 고유번호 ...
-
- ㄴ ㅏ ㅁ ㅑ
- •
- 2002.07.09 21:11
- 5 COMMENTS
- /
- 0 LIKES
-
성더기•2002.07.09 21:14
-
ㄴ ㅏ ㅁ ㅑ•2002.07.09 21:28
-
성더기•2002.07.09 21:35
-
ㄴ ㅏ ㅁ ㅑ•2002.07.09 21:40
-
성더기•2002.07.09 21:49
-
- 김영린
- •
- 2002.07.09 21:05
- 3 COMMENTS
- /
- 0 LIKES
-
김동묵•2002.07.10 00:59이런방법이 있습니다. procedure TForm1.Button1Click(Sender: TObject); function GetI...
-
최용일•2002.07.10 00:52안녕하세요. 최용일입니다. 나름대로 규칙이 있으니까 그 규칙에 따라 문자열함수들(Copy, Pos, ...)을 ...
-
김영린•2002.07.10 22:47어려움이 있던 것을 해결해 주셔서 정말감사합니다.
-
- Fake of Jackie
- •
- 2002.07.09 20:58
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2002.07.10 00:42안녕하세요. 최용일입니다. 말그대로 입니다. OnShow나 OnHide이벤트에서 Show, Hide메소드를 쓰거나...
-
- 개미
- •
- 2002.07.09 20:50
- 3 COMMENTS
- /
- 0 LIKES
-
성더기•2002.07.09 21:02SqlStr := 'select A.code,A.Name,B.good ' &nbs...
-
개미•2002.07.09 21:35답변 진심으로 감사드립니당. General SQL Error 인뎅... 뭐가 틀린건징.. 몇시간째 해봐도 못찾겠...
-
성더기•2002.07.09 21:41확실치는 않지만... 테이블명하구 앨리어스 명을 다르게 줘보세요 From DataList A ...
-
- 수서니
- •
- 2002.07.09 20:49
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2002.07.10 00:33안녕하세요. 최용일입니다. TDBGrid의 OnMouseDown이벤트에서 하시면 되겠네요. 마우스 좌표및 누른 버...
-
- 정진훈
- 2002.07.09 19:58
- 0 COMMENTS
- /
- 0 LIKES
-
- 정영희
- 2002.07.09 19:56
- 0 COMMENTS
- /
- 0 LIKES
-
- 쌍
- •
- 2002.07.09 19:50
- 3 COMMENTS
- /
- 0 LIKES
-
성더기•2002.07.09 19:56추가는 Table1.Append 또는 Table1.Insert 하시면 됩니다 수정은 Table1.Edit 이구요 저장은 Table1.Po...
-
쌍•2002.07.09 20:43displayformat을 0,00으로 했는데 잘 역시 마찬가지 인걸요... 근데 다른 질문인데요 procedure TForm1...
-
성더기•2002.07.09 21:09제가 알기루 itmeindex는 integer형 인걸루 알구 있는데 거기다 String형을 집어 넣을려구 하니 에러가 ...
-
- 짱아
- •
- 2002.07.09 19:44
- 3 COMMENTS
- /
- 0 LIKES
-
깨구락지•2002.07.09 19:56FileExists 함수를 사용하십시오. if FileExists('1A0709.TXT') then Do Something
-
짱아•2002.07.09 22:18답변감사해염.. 가르쳐 주신것을 써서 해봤는데.. 안되염.. 제가 잘못쓴건지... 자세히점 갈켜 주세...
-
깨구락지•2002.07.10 17:32var cnt:byte; sFileName:string; begin for cnt:=1 to 10 do be...
-
- 나원용
- 2002.07.09 18:58
- 0 COMMENTS
- /
- 0 LIKES
-
- 임수정
- 2002.07.09 18:33
- 0 COMMENTS
- /
- 0 LIKES
-
- oss
- •
- 2002.07.09 16:49
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2002.07.10 00:22안녕하세요. 최용일입니다. MMSystem 유닛도 델파이에 있는 유닛이구요... 음... 나머지는 전임자분...
-
-
- 최규호
- 2002.07.09 04:36
- 0 COMMENTS
- /
- 0 LIKES
-
- 수서니
- •
- 2002.07.09 04:33
- 3 COMMENTS
- /
- 0 LIKES
-
성더기•2002.07.09 21:17값이 안보인다면... DBGrid에 DataSource가 연결이 안되있을경우 DataSource에 DataSet이 연결이 안되어 ...
-
머슴•2002.07.09 05:35보통 DbGrid에서 자료가 안보이는 경우는 제일 먼제 아래의 상황을 먼저 보셔야 할것 같습니다.. ...
-
수서니•2002.07.09 18:54당연히 했을꺼라 생각했는데... DBGrid의 프러퍼티중에서 Datasource가 연결이 안되어있었네요... 이...
-
- 손동언
- •
- 2002.07.09 04:00
- 3 COMMENTS
- /
- 0 LIKES
-
송인석•2002.07.09 16:44혹시 꼭 TOpenDialog를 이용할 생각이 아니시라면, FileExt유닛 (갑자기 이름이 생각이 안남-_- File???...
-
머슴•2002.07.09 06:05전에 저도 님과 비슷한것을 한번 해볼라고 하는데 잘 안되더라고요.. 아무리해도 디렉토리...
-
조수석•2009.09.11 21:52디렉토리 PATH 정보만 얻으려면 아래와 같이하시면 잘 됩니다.(델7) procedure TForm1.ShellTreeView1...
-
- 오덕교
- •
- 2002.07.09 03:47
- 2 COMMENTS
- /
- 0 LIKES
쿼리한 결과가 항상 2 레코드입니다. 특정 카운트의 값을 가져오려는데요... ImVarGrid1.Cells[0, GRID_MAX_ROW] := FieldByName('LINE_NO').AsInteger; ImVarGrid1.Cells[1, GRID_MAX_ROW] := FieldByName('STYLE').AsString; ImVarGrid1...-
머슴•2002.07.09 05:56'PRICE','GONG' 외에는 순서와 관계 같은 경우이지요.. 간단히 이렇게 하면 안될까요.. ...
-
KDDG_ZZOM•2002.07.09 04:01오라클이면 rownum을 사용하시면 될것같은데... 쿼리필드에 rownum인가? 하는 필드를 추가시켜서 처리하시...
간단히 이렇게 하면 안될까요..
With Qrydata do
begin
<생략>
First;
//첫번째 레코드에서 반복되는 자료를 먼저 읽고..
ImVarGrid1.Cells[0, GRID_MAX_ROW] := FieldByName('LINE_NO').AsInteger;
ImVarGrid1.Cells[1, GRID_MAX_ROW] := FieldByName('STYLE').AsString;
ImVarGrid1.Cells[2, GRID_MAX_ROW] := FieldByName('QTY').AsString;
ImVarGrid1.Cells[7, GRID_MAX_ROW] := FieldByName('LOW_G').AsString;
i:= 3;
// 반복되는 부분을 읽고...
while NOT(EOF) do
begin
ImVarGrid1.Cells[i, GRID_MAX_ROW] := FieldByName('PRICE').AsInteger;
ImVarGrid1.Cells[i+1, GRID_MAX_ROW] := FieldByName('GONG').AsInteger;
i:= i+ 2;
Next;
end;
end;