어떤 문구를 입력해서 그 문구와 일치하는 모든데이터를 검색
그리곤 합계를 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);