Q&A

  • 제발점 도와주세요...
질문이 있어서 간만에 글을 씁니다..



제가 성적 처리 플그램을 짜고 있는데.. 자료를 입력 받아서 a.dbf로 저장을 하고 있습니다 그리고 잘못 입력한 자료가 있을지도 모르니까 2대의 컴퓨터에서 파일을 저장받아

한대로 옮겨놓아서 두 파일의 하나 하나 필드를 비교해서



누구 자료가 잘못입력되었나 확인하는 프로그램을 만들고 있는데



두 파일의 필드를 하나 하나 비교해서 스트링 그리드에 뿌려주는 방법을 알고 싶습니다.



부디 조언을~



ex) a.dbf b.dbf 이 두파일의 각각의 필드를 비교 하는법 (데이터베이스5입니다.)



저는 아래 코딩으로 할려고 했더니 안되더군여

procedure TForm3.BitBtn1Click(Sender: TObject);

var

i:integer;





begin

With Query3 do

begin

query3.Close;

query3.Sql.Clear;

query3.Sql.Add('select * from ipsi');

query3.Sql.Add('minus ');

query3.Sql.Add('select * from ipsia');

query3.Open;

query3.First;

i := 0;

While Not EOF do

begin

inc( i );

StringGrid1.Cells[ 0, i ] := inttostr( i );

StringGrid1.Cells[ 1, i ] := fieldByName('num').asString;

StringGrid1.Cells[ 2, i ] := fieldByName('name').asString;

Next;

end;

end;



델파이에서 sql 명령어가 안먹히는게 있습니까??

1  COMMENTS
  • Profile
    정성훈 2001.10.19 22:20
    초보자 wrote:

    > 질문이 있어서 간만에 글을 씁니다..

    >

    > 제가 성적 처리 플그램을 짜고 있는데.. 자료를 입력 받아서 a.dbf로 저장을 하고 있습니다 그리고 잘못 입력한 자료가 있을지도 모르니까 2대의 컴퓨터에서 파일을 저장받아

    > 한대로 옮겨놓아서 두 파일의 하나 하나 필드를 비교해서

    >

    > 누구 자료가 잘못입력되었나 확인하는 프로그램을 만들고 있는데

    >

    > 두 파일의 필드를 하나 하나 비교해서 스트링 그리드에 뿌려주는 방법을 알고 싶습니다.

    >

    > 부디 조언을~

    >

    > ex) a.dbf b.dbf 이 두파일의 각각의 필드를 비교 하는법 (데이터베이스5입니다.)

    >

    > 저는 아래 코딩으로 할려고 했더니 안되더군여

    > procedure TForm3.BitBtn1Click(Sender: TObject);

    > var

    > i:integer;

    >

    >

    > begin

    > With Query3 do

    > begin

    > query3.Close;

    > query3.Sql.Clear;

    > query3.Sql.Add('select * from ipsi');

    > query3.Sql.Add('minus ');

    > query3.Sql.Add('select * from ipsia');

    > query3.Open;

    > query3.First;

    > i := 0;

    > While Not EOF do

    > begin

    > inc( i );

    > StringGrid1.Cells[ 0, i ] := inttostr( i );

    > StringGrid1.Cells[ 1, i ] := fieldByName('num').asString;

    > StringGrid1.Cells[ 2, i ] := fieldByName('name').asString;

    > Next;

    > end;

    > end;

    >

    > 델파이에서 sql 명령어가 안먹히는게 있습니까??



    안녕하세요.

    보기에 잘못된 부분은 없는거 같은데요

    에러메시지라도 남기시지..

    혹시

    > StringGrid1.Cells[ 1, i ] := fieldByName('num').asString;

    > StringGrid1.Cells[ 2, i ] := fieldByName('name').asString;

    이 부분중 데이타 타입이 문자아닌 숫자 있는거 아닌지?

    만약 숫자라면 AsInteger로 잡아서 변환시킨다음 값을 넣어보세요.

    가끔 이렇게 에러난적있어서 혹시나 올려봅니다.

    그럼 20000.