乱数を振り当てランダムにある一定数のデータを取得するには？ (ID:36664)

名前

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

本文 まず１点 GTRさんも書いておられますが、数値型・文字列型のどちらでしょうか? テーブルの設計書を見ればすぐに判ると思います。 そして、SQLPlusで Select Trunc(dbms_random.value*1000) as rand from TABLE1 where rownum <= 30 を実行した結果は、Table1に登録しているレコードのIDに必ず有りますか? ここに無ければ30件の選択結果はありません。0件にもなるでしょう。 必ず30件必要ならば、存在するIDを30件用意しないといけません。 更新の件ですが、この場合、 DBGrid2のDatasorceがdatasource2で、datasource2のDatasetがquery2になります。 with DBGrid2 do for I := 0 to SelectedRows.Count - 1 do //SelectedRowsはDBGrid2のプロパティ begin Datasorce.Dataset.GotoBookmark(pointer(SelectedRows.Items[I])); //ちょっと違っていました。 //DBGrid2のDatasetに対するFlgを立てる処理 //DBGrid2.SelectedRows.CurrentRowSelected := false; //選択状態を外す end; //DBGrid2のDatasorceがdatasource2で、datasource2のDatasetがquery2の場合、 //query2は開いているとする。この場合は、別のTQueryを使っています。この方が判りやすいです。 //ただ、query2は再度 with Query1 do beign Close; whth SQL do begin Clear; Add('Update Table1'); Add('Set FLAG = ''1'''); Add('Where ID = ' + Datasorce.Dataset.FieldByName('ID').AsString); //この場合は、SQL文にするためにAsStringを使っています。 //SQL文はテキストですから。 //Parameterにすると、Oracle側のフィールドの型に対応しなければいけません。 end; ExecSQL; end; また、テーブルを編集する別の方法は、TUpdateSQLを使用します。 TUpdateSQLをフォームに置きます。これをUpdateSQL1とします。 Query2のUpdateObjectプロパティをUpdateSQL1にします。 多分UpdateObjectプロパティをクリックすると、UpdateSQL1が表示されると思います。 UpdateSQL1をダブルクリックすると、編集内容が表示されますので、 オプションのテーブル名を選択して、テーブル項目を押すと項目を表示します。 キーでIDを選び、更新項目でFLGを選びます。 SQL文を生成で、生成すると、SQL文のUpdate,Insert,Deleteがそれぞれできあがります。 この部分は、UpdateSQL1のDeleteSQL,InsertSQL,ModifySQLでそれぞれ編集することも出来ます。 これでQuery2とUpdateSQLが連結されましたので、 with DBGrid2 do begin for I := 0 to SelectedRows.Count - 1 do //SelectedRowsはDBGrid2のプロパティ begin Datasorce.Dataset.GotoBookmark(pointer(SelectedRows.Items[I])); Datasorce.Dataset.FieldByName('FLAG').AsString := '1'; end; if Datasorce.Dataset.UpdatesPending then begin try Datasorce.Dataset.ApplyUpdates; except showmessage('更新できません。'); end; end; end;