テーブルデータのフェッチ (ID:37004)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 自分なら以下でトライしてみます query1.sql.text := 'select count(*) from テ−ブル名;'; query1.open; i2 := query1.fieldbyname(count(*))・asineger; query1.close; query1.sql.text := 'select * from テ−ブル名'; query1.open; i :=1; while 1 = i do begin s := query1.fieldbyname('フィ−ルド名').asstring; memo1.lines.add(query1.fieldbyname('フィ−ルド名').assring); query1.next; if s = query1.fieldbyname('フィ−ルド名').asstring then i:= 0; end; i2 :=0 while 20 > i2 do begin memo1.lines[randam(i2)]; i2:= i2 +1; end; 携帯から打ったのでスペルミス、エラ−等あるかもしれません。 ミスってたらゴメンナサイ; あとスペル解らなかったので書いてありませんがランダマイズをする必要があります。