질문이 있어서 간만에 글을 씁니다..
제가 성적 처리 플그램을 짜고 있는데.. 자료를 입력 받아서 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 명령어가 안먹히는게 있습니까??
> 질문이 있어서 간만에 글을 씁니다..
>
> 제가 성적 처리 플그램을 짜고 있는데.. 자료를 입력 받아서 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.