Q&A
- Table Applend ??? 급해요 !!!!
안녕하십니까?
고수님들 정말 급해서 다시 글을 올립니다.
저는 고객데이타를 읽어 고객의 후원인이 Table1에 존재하면
고객의 후원인 Index의 다음 번호로 레코드를 추가하고
후원인이 존재하지 않으면 Table1의 레코드수를 Index로 하여
가장 마지막 부분에 추가하려고 합니다.
그런데 처음 아래의 루틴을 실행하면 제가 원하는 데로 잘 실행되나
다시 아래의 루틴을 실행하면 실행하다가
access violation at 0x4be42b91:read of address ....라든
에러가 발생합니다.
정말, 무엇이 잘못인지 모르겠습니다.
고수님의 답변을 부탁드립니다.
procedure TFormOrgChart.NewBtnClick(Sender: TObject);
var
i,k:integer;
tInx,tLevel,tID,uLevel:integer;
tName,tPart:string;
procedure TableAppend;
begin
with Query1 do
begin
Close;
SQL.Clear;
SQL.Add('Update ' + TreeTable.TableName + ' T');
SQL.Add('Set T."INDEX" = T."INDEX" + 1');
SQL.Add('Where T."INDEX" >= ' + IntToStr(tInx));
ExecSQL;
Close;
SQL.Clear;
end;
Table1.Append;
Table1.FieldByName('Index').AsInteger := tInx;
Table1.FieldByName('Level').AsInteger := tLevel;
Table1.FieldByName('이름').AsString := tName;
Table1.FieldByName('고객ID').AsInteger := tID;
Table1.Post;
end;
Table1.IndexName := '고객ID_Inx'; // Primary Key 'Index';
Table1.Close;
TableCreateTable; // 초기화 부분
Table1.Open;
CustomQuery.Close;
CustomQuery.SQL.Add(Select * from Custom.db';
CustomQuery.SQL.Add('Order by 직급, 등록일자, 고객ID');
if not CustomQuery.Prepared then CustomQuery.Prepare;
CustomQuery.Open;
while not CustomQuery.Eof do
begin
if Table1.FindKey(CustomQuery.FieldByName('후원인').AsInteger) then
tInx := Table1.FieldByName('Index').AsInteger + 1
else tInx := Table1.RecourdCount;
tName := CustomQuery.FieldByName('고객명').AsString;
tID := CustomQuery.FieldByName('고객ID').AsInteger;
tLevel := CustomQuery.FieldByName('직급').AsInteger;
TableAppend;
CustomQuery.Next;
end;
고수님들 정말 급해서 다시 글을 올립니다.
저는 고객데이타를 읽어 고객의 후원인이 Table1에 존재하면
고객의 후원인 Index의 다음 번호로 레코드를 추가하고
후원인이 존재하지 않으면 Table1의 레코드수를 Index로 하여
가장 마지막 부분에 추가하려고 합니다.
그런데 처음 아래의 루틴을 실행하면 제가 원하는 데로 잘 실행되나
다시 아래의 루틴을 실행하면 실행하다가
access violation at 0x4be42b91:read of address ....라든
에러가 발생합니다.
정말, 무엇이 잘못인지 모르겠습니다.
고수님의 답변을 부탁드립니다.
procedure TFormOrgChart.NewBtnClick(Sender: TObject);
var
i,k:integer;
tInx,tLevel,tID,uLevel:integer;
tName,tPart:string;
procedure TableAppend;
begin
with Query1 do
begin
Close;
SQL.Clear;
SQL.Add('Update ' + TreeTable.TableName + ' T');
SQL.Add('Set T."INDEX" = T."INDEX" + 1');
SQL.Add('Where T."INDEX" >= ' + IntToStr(tInx));
ExecSQL;
Close;
SQL.Clear;
end;
Table1.Append;
Table1.FieldByName('Index').AsInteger := tInx;
Table1.FieldByName('Level').AsInteger := tLevel;
Table1.FieldByName('이름').AsString := tName;
Table1.FieldByName('고객ID').AsInteger := tID;
Table1.Post;
end;
Table1.IndexName := '고객ID_Inx'; // Primary Key 'Index';
Table1.Close;
TableCreateTable; // 초기화 부분
Table1.Open;
CustomQuery.Close;
CustomQuery.SQL.Add(Select * from Custom.db';
CustomQuery.SQL.Add('Order by 직급, 등록일자, 고객ID');
if not CustomQuery.Prepared then CustomQuery.Prepare;
CustomQuery.Open;
while not CustomQuery.Eof do
begin
if Table1.FindKey(CustomQuery.FieldByName('후원인').AsInteger) then
tInx := Table1.FieldByName('Index').AsInteger + 1
else tInx := Table1.RecourdCount;
tName := CustomQuery.FieldByName('고객명').AsString;
tID := CustomQuery.FieldByName('고객ID').AsInteger;
tLevel := CustomQuery.FieldByName('직급').AsInteger;
TableAppend;
CustomQuery.Next;
end;
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 이재광
- •
- 2000.02.26 23:03
- 2 COMMENTS
- /
- 0 LIKES
-
박성훈•2000.02.27 22:20이재광 wrote: > 좋은 답변 부탁 드립니다. 고수님들 > > 델파이 4.0으로 프로그래밍 하고 있는데 DBGr... -
류동균•2000.02.27 02:12이재광 wrote: > 좋은 답변 부탁 드립니다. 고수님들 > > 델파이 4.0으로 프로그래밍 하고 있는데 DBGr...
-
- 양동욱
- •
- 2000.02.26 22:18
- 2 COMMENTS
- /
- 0 LIKES
-
이재식•2000.02.27 08:00양동욱 wrote: > QReport를 작성중입니다. > PrintPreview로 보면 > rbDetail Band에서는 QRDBText 콤퍼...
-
류동균•2000.02.27 02:17양동욱 wrote: > QReport를 작성중입니다. > PrintPreview로 보면 > rbDetail Band에서는 QRDBText 콤퍼...
-
- 델초보
- •
- 2000.02.26 20:39
- 2 COMMENTS
- /
- 0 LIKES
-
강인규•2000.02.26 22:51허~ 정확한 차이라고 쓰실려 했는데 오타인것 같군요. 가제는 게편이라구 독수리는 오타맨의 편인 법이지요...
-
최용일•2000.02.26 21:27헐... 정확한치가 뭔지는 잘 모르겠군요 처음부터 끝까지 무슨말인지 하나도 모르겠어요... 아마도 OnCrea...
-
- shc
- •
- 2000.02.26 20:24
- 1 COMMENTS
- /
- 0 LIKES
-
손님•2000.02.28 03:04어떤 이벤트나 어떤작업을 할때 그것(첫행인지...)을 알고 싶으신 것인지 질문이 애매한 것 같군요.... ...
-
- 한재운
- 2000.02.26 19:47
- 0 COMMENTS
- /
- 0 LIKES
-
- 이경원
- 2000.02.26 19:36
- 0 COMMENTS
- /
- 0 LIKES
-
- 전진운
- 2000.02.26 19:29
- 0 COMMENTS
- /
- 0 LIKES
-
-
강인규•2000.02.26 19:45일단 프라이머리를 두개 줍니다. 프라이머리 두개 주면 두개가 동시에 중복되는것만 에러가 나므로 (엑세...
-
-
- 안명호
- •
- 2000.02.26 15:14
- 1 COMMENTS
- /
- 0 LIKES
-
문영철•2000.02.26 22:30안녕하세요! database 의 오른쪽버튼을 누르시고 database editor 를 선택하면 창이 하나뜹니다. 거기서...
-
- 이선미(진정한 초보)
- 2000.02.26 10:02
- 0 COMMENTS
- /
- 0 LIKES
-
- 김선일
- 2000.02.26 08:55
- 0 COMMENTS
- /
- 0 LIKES
-
- 이호환
- •
- 2000.02.26 08:10
- 1 COMMENTS
- /
- 0 LIKES
안녕하십니까? 고수님들 정말 급해서 다시 글을 올립니다. 저는 고객데이타를 읽어 고객의 후원인이 Table1에 존재하면 고객의 후원인 Index의 다음 번호로 레코드를 추가하고 후원인이 존재하지 않으면 Table1의 레코드수를 Index로 하여...-
최용일•2000.02.26 08:52access violation 에러는 존재하지 않는 객체나 메소드, 포인터등을 참조하려 할 때 나타나는 에러입니다....
-
- 떴다 왕초보
- •
- 2000.02.26 07:20
- 1 COMMENTS
- /
- 0 LIKES
-
이재식•2000.02.26 09:36이재식 Wrote : 안녕하세요? 엑셀로 작업한 데이터를 DB화 하여 테이블로 만들었는데, 그 해당 테이블...
-
- soo
- •
- 2000.02.26 06:51
- 2 COMMENTS
- /
- 0 LIKES
-
최용일•2000.02.26 08:31한글하고는 전혀 상관이 없습니다... 디렉토리가 존재한가 또 접근 가능한가를 조사 해보세요... I/O 에러...
-
이재식•2000.02.26 08:22soo wrote: > 로컬시스템의 정보를 리스트뷰에 나타내고 핸들링하기 위해서 여러가지 컴포넌트(DirectoryL...
-
- 민석이
- •
- 2000.02.26 05:34
- 1 COMMENTS
- /
- 0 LIKES
-
이재식•2000.02.26 08:14민석이 wrote: > 안녕하십니까? > 델 여러분!~!~! > 다름이 아니라 간단한 C 언어 소스인데 무슨뜻인지 ...
-
- 김종근
- 2000.02.26 05:29
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보
- •
- 2000.02.26 04:25
- 1 COMMENTS
- /
- 0 LIKES
-
조규춘•2000.02.26 05:33초보 wrote: > 제목그대로 Destroy 와 free 의 차이점이 뭔가요? > 왜 이질문을 하면은 > > > F...
-
- 디비돌이
- •
- 2000.02.26 04:16
- 1 COMMENTS
- /
- 0 LIKES
-
김성중•2000.02.26 20:07디비돌이 wrote: > > > > --------------------------------------------------------------------...
-
- 지나가는 사람
- •
- 2000.02.26 03:23
- 2 COMMENTS
- /
- 0 LIKES
-
밥벌레•2000.03.03 17:13스택 stack overflow 는 말그대로 스택이 꽉찬 에러임다.. 스택을 언제 쓰냐면.. local 변수, 함수 호출...
-
최용일•2000.02.26 03:37흠.. 많이 나지 않은 에런데... 프로시져나 함수의 파라매터로 덩치가 큰 레코드보다는 포인터를 넣어주는...
-
- 유애선
- •
- 2000.02.26 03:16
- 1 COMMENTS
- /
- 0 LIKES
-
이재식•2000.02.26 09:33유애선 wrote: > 윈도우에서 지원하는 프린터Dialog박스를 사용하지 않고.. > 직접 만들어서 하거든요.. ...
나타나는 에러입니다.
가령 다음과 같은 경우 일어납니다.
procedure AccessViolation;
var
ListView: TListView;
begin
ListView.Items[1000].Caption := 'Access Violation Error'; // <---- 에러 발생
end;
위의 경우 ListView는 생성이 되지 않았고 ListView의 1000번째 아이템도 마찬가지 입니
다. 아래의 루틴만 보고는 어디에서 Violation에러가 발생했는지 잘 모르겠군요.. 처음
에는 됐는데 두번째는 안된다는 것은 그 사이에서 어떤 객체나 포인터를 프리하였을 것
입니다. 어느 부분에서 violation에러가 나는지 디버깅해보세요... 대분의 경우 객체의
참조값이 nil일 것입니다...
이호환 wrote:
> 안녕하십니까?
>
> 고수님들 정말 급해서 다시 글을 올립니다.
>
>
> 저는 고객데이타를 읽어 고객의 후원인이 Table1에 존재하면
> 고객의 후원인 Index의 다음 번호로 레코드를 추가하고
> 후원인이 존재하지 않으면 Table1의 레코드수를 Index로 하여
> 가장 마지막 부분에 추가하려고 합니다.
>
> 그런데 처음 아래의 루틴을 실행하면 제가 원하는 데로 잘 실행되나
> 다시 아래의 루틴을 실행하면 실행하다가
> access violation at 0x4be42b91:read of address ....라든
> 에러가 발생합니다.
>
> 정말, 무엇이 잘못인지 모르겠습니다.
>
> 고수님의 답변을 부탁드립니다.
>
>
>
>
> procedure TFormOrgChart.NewBtnClick(Sender: TObject);
> var
> i,k:integer;
> tInx,tLevel,tID,uLevel:integer;
> tName,tPart:string;
>
> procedure TableAppend;
> begin
> with Query1 do
> begin
> Close;
> SQL.Clear;
> SQL.Add('Update ' + TreeTable.TableName + ' T');
> SQL.Add('Set T."INDEX" = T."INDEX" + 1');
> SQL.Add('Where T."INDEX" >= ' + IntToStr(tInx));
> ExecSQL;
> Close;
> SQL.Clear;
> end;
>
> Table1.Append;
> Table1.FieldByName('Index').AsInteger := tInx;
> Table1.FieldByName('Level').AsInteger := tLevel;
> Table1.FieldByName('이름').AsString := tName;
> Table1.FieldByName('고객ID').AsInteger := tID;
> Table1.Post;
> end;
>
>
>
> Table1.IndexName := '고객ID_Inx'; // Primary Key 'Index';
> Table1.Close;
> TableCreateTable; // 초기화 부분
> Table1.Open;
>
>
> CustomQuery.Close;
> CustomQuery.SQL.Add(Select * from Custom.db';
> CustomQuery.SQL.Add('Order by 직급, 등록일자, 고객ID');
> if not CustomQuery.Prepared then CustomQuery.Prepare;
> CustomQuery.Open;
>
> while not CustomQuery.Eof do
> begin
> if Table1.FindKey(CustomQuery.FieldByName('후원인').AsInteger) then
> tInx := Table1.FieldByName('Index').AsInteger + 1
> else tInx := Table1.RecourdCount;
> tName := CustomQuery.FieldByName('고객명').AsString;
> tID := CustomQuery.FieldByName('고객ID').AsInteger;
> tLevel := CustomQuery.FieldByName('직급').AsInteger;
>
>
> TableAppend;
>
> CustomQuery.Next;
> end;