Q&A
- 질문 했는데 답변이 없네요.. 꼭 알고 싶어요..
var
img_f_id, img_f_id1 : intteger;
-------------------------------
with query1 do
begin
Close;
Sql.Clear;
sql.add('select F_id from data_table');
sql.add('where F_name ='''+edit1.text+'''');
open;
while not eof do
begin
img_f_id := FieldByName('F_id').AsInteger;
next; //다음레코드(다음으로 이동이 되지 않음)
img_f_id1 := FieldByName('F_id').AsInteger;
end;
end;
일케 했는데 where절에 맞는 레코드 id값만 나오는데 ..
그 다음 레코드나 이전 레코드 값을 구하려고 한다면
어케 해야할지...
정말 정말 궁금합니다...
테이블
아이디 그룹아이디 이미지이름 이미지데이터
테이블은 일케 만들었구요...
고수님 제말... plz....
img_f_id, img_f_id1 : intteger;
-------------------------------
with query1 do
begin
Close;
Sql.Clear;
sql.add('select F_id from data_table');
sql.add('where F_name ='''+edit1.text+'''');
open;
while not eof do
begin
img_f_id := FieldByName('F_id').AsInteger;
next; //다음레코드(다음으로 이동이 되지 않음)
img_f_id1 := FieldByName('F_id').AsInteger;
end;
end;
일케 했는데 where절에 맞는 레코드 id값만 나오는데 ..
그 다음 레코드나 이전 레코드 값을 구하려고 한다면
어케 해야할지...
정말 정말 궁금합니다...
테이블
아이디 그룹아이디 이미지이름 이미지데이터
테이블은 일케 만들었구요...
고수님 제말... plz....
5
COMMENTS
-
-
delphilove wrote:
> var
> img_f_id, img_f_id1 : intteger;
> -------------------------------
> with query1 do
> begin
> Close;
> Sql.Clear;
> sql.add('select F_id from data_table');
> sql.add('where F_name ='''+edit1.text+'''');
> open;
> // 이 라인에 First 메소드를 쓰신후 사용해 보신다면..^^;;
> while not eof do
> begin
>
> img_f_id := FieldByName('F_id').AsInteger;
> next; //다음레코드(다음으로 이동이 되지 않음)
>
> img_f_id1 := FieldByName('F_id').AsInteger;
> end; // 만약에 이 쿼리문에 걸리는 레코드가 여러개라면..
// img_f_id 와 img_f_id1에는 마지막에서 두번째id와
// 마지막 id만 저장이 되겠군요... 원하시는게 그건가요??
// 흐음..
> end;
>
> 일케 했는데 where절에 맞는 레코드 id값만 나오는데 ..
> 그 다음 레코드나 이전 레코드 값을 구하려고 한다면
> 어케 해야할지...
>
>
> 정말 정말 궁금합니다...
>
> 테이블
> 아이디 그룹아이디 이미지이름 이미지데이터
>
> 테이블은 일케 만들었구요...
>
> 고수님 제말... plz....
>
------------------------------------------------------
고수는 아니지만.. 저 역시도 질문의 요지가 잘 이해가 가진 않지만..
혹시나 도움이 될까 해서요. ^^;; 저 역시도 군에서 2년째 델파이로 DB
프로그래밍을 하고 있어서.. ^^;; 쿼리를 입력하신 후에 여셨는데..
그 테이블의 레코드 포인터가 어디에 있는지가 의심이 가네요..주석에
보면 다음레코드로 이동이 안된다고 하셨는데.. 혹시 포인터가 맨 마지
막을 가리키고 있어서 그런건 아닌지.. ^^;; 아니면 레코드가 한 레코드
밖에 없던지요.. ^^;; 저 같은 경우 쿼리를 열고 무언가와 비교를
할때는 꼭 First 메소드를 쓰죠. 쿼리의.. 질문을 잘못이해하고 엉뚱한
답을 쓴건 아닌지 모르겠네요.. 그럼..
-
delphilove wrote:
> var
> img_f_id, img_f_id1 : intteger;
> -------------------------------
> with query1 do
> begin
> Close;
> Sql.Clear;
> sql.add('select F_id from data_table');
> sql.add('where F_name ='''+edit1.text+'''');
> open;
>
> while not eof do
> begin
>
> img_f_id := FieldByName('F_id').AsInteger;
> next; //다음레코드(다음으로 이동이 되지 않음)
>
> img_f_id1 := FieldByName('F_id').AsInteger;
> end;
> end;
>
> 일케 했는데 where절에 맞는 레코드 id값만 나오는데 ..
> 그 다음 레코드나 이전 레코드 값을 구하려고 한다면
> 어케 해야할지...
>
>
> 정말 정말 궁금합니다...
>
> 테이블
> 아이디 그룹아이디 이미지이름 이미지데이터
>
> 테이블은 일케 만들었구요...
>
> 고수님 제말... plz....
>
뭘 원하는지 자세히 알지는 못 하겟지만.
while 문 을 자세히보면 img_f_id1 에 img_f_id 값이 들어가는 것
같아요. 뭔가를 비교 할려고하는것 같은데 정확한 질문이 필요 한것 같아요.
-
이영근 wrote:
> delphilove wrote:
> > var
> > img_f_id, img_f_id1 : intteger;
> > -------------------------------
> > with query1 do
> > begin
> > Close;
> > Sql.Clear;
> > sql.add('select F_id from data_table');
> > sql.add('where F_name ='''+edit1.text+'''');
> > open;
> >
> > while not eof do
> > begin
> >
> > img_f_id := FieldByName('F_id').AsInteger;
> > next; //다음레코드(다음으로 이동이 되지 않음)
> >
> > img_f_id1 := FieldByName('F_id').AsInteger;
> > end;
> > end;
> >
> > 일케 했는데 where절에 맞는 레코드 id값만 나오는데 ..
> > 그 다음 레코드나 이전 레코드 값을 구하려고 한다면
> > 어케 해야할지...
> >
> >
> > 정말 정말 궁금합니다...
> >
> > 테이블
> > 아이디 그룹아이디 이미지이름 이미지데이터
> >
> > 테이블은 일케 만들었구요...
> >
> > 고수님 제말... plz....
> >
>
> 뭘 원하는지 자세히 알지는 못 하겟지만.
> while 문 을 자세히보면 img_f_id1 에 img_f_id 값이 들어가는 것
> 같아요. 뭔가를 비교 할려고하는것 같은데 정확한 질문이 필요 한것 같아요.
>
그러니까.. 에디터에 값으로 특정 레코드를 검색하고 그레코드의 아이디 값을
구하고(숫자형), 바로 다음 레코드 아이디 값을 구해서.. 더하고 2로 나누어서
그 중간 값이 나오죠... 그곳에 레코드를 추가 하려고 그러거든요.
-
delphilove wrote:
> 이영근 wrote:
> > delphilove wrote:
> > > var
> > > img_f_id, img_f_id1 : intteger;
> > > -------------------------------
> > > with query1 do
> > > begin
> > > Close;
> > > Sql.Clear;
> > > sql.add('select F_id from data_table');
> > > sql.add('where F_name ='''+edit1.text+'''');
> > > open;
> > >
> > > while not eof do
> > > begin
> > >
> > > img_f_id := FieldByName('F_id').AsInteger;
> > > next; //다음레코드(다음으로 이동이 되지 않음)
> > >
> > > img_f_id1 := FieldByName('F_id').AsInteger;
> > > end;
> > > end;
> > >
> > > 일케 했는데 where절에 맞는 레코드 id값만 나오는데 ..
> > > 그 다음 레코드나 이전 레코드 값을 구하려고 한다면
> > > 어케 해야할지...
> > >
> > >
> > > 정말 정말 궁금합니다...
> > >
> > > 테이블
> > > 아이디 그룹아이디 이미지이름 이미지데이터
> > >
> > > 테이블은 일케 만들었구요...
> > >
> > > 고수님 제말... plz....
> > >
> >
> > 뭘 원하는지 자세히 알지는 못 하겟지만.
> > while 문 을 자세히보면 img_f_id1 에 img_f_id 값이 들어가는 것
> > 같아요. 뭔가를 비교 할려고하는것 같은데 정확한 질문이 필요 한것 같아요.
> >
>
> 그러니까.. 에디터에 값으로 특정 레코드를 검색하고 그레코드의 아이디 값을
>
> 구하고(숫자형), 바로 다음 레코드 아이디 값을 구해서.. 더하고 2로 나누어서
>
> 그 중간 값이 나오죠... 그곳에 레코드를 추가 하려고 그러거든요.
>
> 말이 쫌 어렵네요...그래도 제대로 해석했는지는 모르지만 해봐야겠죠...^^;
var i : integer;
with query1 do
begin
Close;
Sql.Clear;
sql.add('select F_id from data_table');
sql.add('where F_name ='''+edit1.text+'''');
open;
--> first;
i := 0;
img_f_id := 0;
while not eof do
begin
i := i + 1;
if i > 2 then ----> 딱 2개의 데이터만 읽을려고..^^;
break
else
img_f_id := img_f_id + FieldByName('F_id').AsInteger;
next; //다음레코드(다음으로 이동이 되지 않음)
end;
img_f_id1 := img_f_id / 2;
그리고 디비그리드에 데이터를 강제적으로 넣을 려면
updateQuery 써야되는데...
append; ---> post;
알죠? 모르시면 이메일 보내세요...그럼 수고요...
end;
(NOTICE) You must be logged in to comment on this post.
-
- 푸린
- •
- 2000.12.30 07:56
- 3 COMMENTS
- /
- 0 LIKES
-
바보감자•2000.12.30 18:34푸린 wrote: > 안녕하세요 전 무지무지 초조 랍니다.,, 지금 파일 열기,닫기,저장,생성 을 몰라서 1주째 ...
-
푸린•2000.12.30 23:50님의 답변 정말 감사 합니다^^ 근데.. 파일의 내용을 한줄씩 읽어 들여야 하는뎅... 이것두 좀 갈켜 주세...
-
+^-_-^+•2001.01.03 03:03ReadLn() 을 사용하시면 됩니다. :) ----------------- var str: string; f: textfile; .... ...
-
- delphilove
- •
- 2000.12.30 06:45
- 5 COMMENTS
- /
- 0 LIKES
var img_f_id, img_f_id1 : intteger; ------------------------------- with query1 do begin Close; Sql.Clear; sql.add('select F_id from data_table'); sql.add('where F_name ='''+edit1.text+''''); open; while not eof do begin ...-
성더기•2001.01.03 01:59delphilove wrote: > var > img_f_id, img_f_id1 : intteger; > ------------------------------- > ...
-
어떤 공군병장•2000.12.31 00:21delphilove wrote: > var > img_f_id, img_f_id1 : intteger; > ------------------------------- > ...
-
이영근•2000.12.30 08:57delphilove wrote: > var > img_f_id, img_f_id1 : intteger; > ------------------------------- > ...
-
delphilove•2000.12.30 12:00이영근 wrote: > delphilove wrote: > > var > > img_f_id, img_f_id1 : intteger; > > --------------...
-
김진석•2001.01.03 00:13delphilove wrote: > 이영근 wrote: > > delphilove wrote: > > > var > > > img_f_id, img_f_id1 : in...
-
- 초짜
- 2000.12.30 06:42
- 0 COMMENTS
- /
- 0 LIKES
-
-
- 아무개
- 2000.12.30 06:37
- 0 COMMENTS
- /
- 0 LIKES
-
- 이발사
- 2000.12.30 04:51
- 0 COMMENTS
- /
- 0 LIKES
-
- 이원택
- •
- 2000.12.30 04:01
- 1 COMMENTS
- /
- 0 LIKES
-
뿌요•2000.12.30 19:41아래의 코딩에서 Sql.Add(' Delete Med Where Date=:S_date And Level=:S_Lavel'); => Delete from Me...
-
- 델파이초보
- •
- 2000.12.30 03:45
- 1 COMMENTS
- /
- 0 LIKES
-
김영석•2000.12.30 04:43프린터의 캔버스에 그 그림을 다시 그려주면 됩니다. 프린터에도 속성중에 캔버스가 있으니까.. BeginDoc...
-
- 김선태
- 2000.12.30 03:34
- 0 COMMENTS
- /
- 0 LIKES
-
- 어린왕자
- •
- 2000.12.30 03:02
- 2 COMMENTS
- /
- 0 LIKES
-
김영석•2000.12.30 04:38델파이에서 코딩으로 할 수 있습니다. 스트링으로 이루어졌고 *.RC 파일에서 그것의 리소스 형태가 TEXT ...
-
어린왕자•2000.12.30 05:55procedure TForm1.Btn_OpenClick(Sender: TObject); var ResStrm: TResourceStream; begin if File...
-
- 서영택
- •
- 2000.12.30 02:52
- 1 COMMENTS
- /
- 0 LIKES
-
김영석•2000.12.30 04:41좀 더 자세히 질문을 해주시면 답변해 드리겠습니다. 레코드길이는 Binary 파일에서 레코드 길이인가요? ...
-
- 김명찬
- •
- 2000.12.30 02:49
- 1 COMMENTS
- /
- 0 LIKES
-
뿌요•2000.12.30 19:57lmeMode의 속성중 lmAlpha,lmSAlpha로 구별할 수 있습니다.. 즐코.. 김명찬 wrote: > 안녕하세요... >...
-
- 임찬수
- 2000.12.30 02:09
- 0 COMMENTS
- /
- 0 LIKES
-
- 왕초보
- •
- 2000.12.30 01:26
- 1 COMMENTS
- /
- 0 LIKES
-
서영택•2000.12.30 03:01상위 10라인에는 데이타를 출력하고 하단 10라인에는 데이타는 없이 라인만 출력하고자 하는 문제라고 이...
-
- 박진수
- •
- 2000.12.30 01:15
- 3 COMMENTS
- /
- 0 LIKES
-
서영택•2000.12.30 03:08이런방법은 어떨까요 TDataSource의 OnDataChange 이벤트에 procedure TForm.DataSource1DataChange...
-
모름이•2000.12.30 02:54^^; 저두 잘 모르지만.. dbgrid와 dbedit를 서로 연결 사용한다면 되지 않을까여..? 그러면 그리드에서 ...
-
김대빵•2000.12.30 01:42박진수 wrote: > 디비그리드에서 한셀을 클릭해주면 각각의 > > 에디트 박스에 한 레코드 자료를 가지...
-
- 박부자
- •
- 2000.12.30 00:30
- 1 COMMENTS
- /
- 0 LIKES
-
yosul•2001.01.02 23:56> with OrderQuery do begin > try > DisableControls; > ...
-
- 강인규
- 2000.12.30 00:18
- 0 COMMENTS
- /
- 0 LIKES
-
- 이분희
- 2000.12.30 00:18
- 0 COMMENTS
- /
- 0 LIKES
-
- 김진선
- 2000.12.29 22:54
- 0 COMMENTS
- /
- 0 LIKES
-
- 정유석
- 2000.12.30 18:05
- 0 COMMENTS
- /
- 0 LIKES
-
delphilove
2000/12/30 06:45
-
Views240Likes0Comments5Reports0
-
Tag List
- 수정
- 삭제
- 목록으로
> var
> img_f_id, img_f_id1 : intteger;
> -------------------------------
> with query1 do
> begin
> Close;
> Sql.Clear;
> sql.add('select F_id from data_table');
> sql.add('where F_name ='''+edit1.text+'''');
> open;
>
> while not eof do
> begin
>
> img_f_id := FieldByName('F_id').AsInteger;
> next; //다음레코드(다음으로 이동이 되지 않음)
>
> img_f_id1 := FieldByName('F_id').AsInteger;
> end;
> end;
>
> 일케 했는데 where절에 맞는 레코드 id값만 나오는데 ..
> 그 다음 레코드나 이전 레코드 값을 구하려고 한다면
> 어케 해야할지...
>
>
> 정말 정말 궁금합니다...
>
> 테이블
> 아이디 그룹아이디 이미지이름 이미지데이터
>
> 테이블은 일케 만들었구요...
>
> 고수님 제말... plz....
>
음~~ 일단 next가 안먹는건 당연함다..
왜냐면 Record가 하나 밖에 없으니까여..
님이 구현하고자 하는게 대충 어떤 건지는 알겠슴니다...
짠머리를 굴리먼...
var
img_f_id, img_f_id1 : intteger;
-------------------------------
with query1 do
begin
Close;
Sql.Clear;
sql.add('select F_id from data_table');
sql.add('where F_name >='''+edit1.text+''''); //<-- 조건이 다름당..^^
open;
while not eof do
begin
img_f_id := FieldByName('F_id').AsInteger;
next; //다음레코드(다음으로 이동이 되지 않음)
img_f_id1 := FieldByName('F_id').AsInteger;
break; // <-- 추가
end;
end;
일케 바꿔서 해보셈..^^
모가 다르냐구여?
조위에 보면 where절에 조건을 약간 바꿨슴다. 글고 while문에 break추가 했구여.
아마 일케해서 님이 원하시는 계산을 하믄 될검당..