Q&A

  • 아무것도 안보여요...쿼리검색...
어떤 문구를 입력해서 그 문구와 일치하는 모든데이터를 검색

그리곤 합계를 editbox에 출력하는 부분입니다.

실행은 에러 없이 되지만 아무런 값도 출력이 되지 않습니다.

무엇이 문제 이죠?....

아무리 봐도 모르겠음..





Str := 'WHERE Test = "'+Str+'"';

With Query1 Do

begin

Close;

SQL.Clear;

SQL.Add('SELECT * FROM data.db');

SQL.Add(Str);

Open;

end;

Query1.First;

i := 0;

j := 0;

while not Query1.EOF do

begin

i := Query3.FindField('Data1').AsInteger + i;

j := Query3.FindField('Data2').AsInteger + j;

Query1.Next;

end;

Edit1.Text := IntToStr(i);

Edit2.Text := IntToStr(j);

Edit3.Text := IntToStr(i + j);



7  COMMENTS