掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TADOQueryのエラーを回避する方法 (ID：28094)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
私は下記のようにしていますが、 ゼロ件の場合でも特に問題は発生していません。 WinXP + D7 + Jet4.0/mdb WinVISTA + D2007 + Jet4.0/mdb どちらでも問題ないようです。 var Wstr: String; begin Wstr := ''; Wstr := Wstr + 'SELECT *'; Wstr := Wstr + ' FROM SSS'; Wstr := Wstr + ' WHERE AA = ''Z'''); ListBox1.Clear; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add(Wstr); ADOQuery1.Open; if (ADOQuery1.Eof) then else begin ADOQuery1.First; while not ADOQuery1.Eof do begin ListBox1.Items.Add(ADOQuery1.FieldByName('AA').AsString); ADOQuery1.Next; end; end; ADOQuery1.Close; Label1.Caption := '(' + IntToStr(ListBox1.Count) + '件)'; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.