こんばんは。
初歩的なことなんですがどうしても解決できないので書き込みしました。
VBScriptで検索結果をランダムで取得し、
表示するプログラムを作成してみたんですが
うまく動作しません。
以下がソースです。
SQL = ""
SQL = SQL & "select NAME" & vbCrlf
SQL = SQL & " from TBL" & vbCrlf
'実行
Set rs = conn.Execute(SQL)
'レコードカウント取得~検索結果14件
rsCnt = rs.RecordCount
'ここで変数を最大値で設定できないのでしょうか?
'ためしに実数(今回は14)を挿入すると動作しました。
'理想はrs.RecordCountで配列指定したいのですができないです。
'これをするとrs.RecordCountに-1が返ってきてエラーが出ます。
ReDim strName(rsCnt)
'1から14の配列を取得する
intIdx=1
Do until rs.Eof
strName(intIdx)=rs("NAME")
intIdx=intIdx+1
rs.MoveNext
Loop
'データ表示
For intCnt = 1 to rsCnt
'この中でRnd関数を使ってみました。
'配列で実数を使用した場合、ここまで来るのですが
'その結果をランダムで表示したかったので
'RandomizeとRnd関数を使用しましたが
'重複データが出てきてしまいます。
'
Randomize
index=Rnd*rsCnt+1
以上なんですが解決方法があれば
是非ご指導お願いします。
Takeshi Takahashi 2002/02/06
No.1ベストアンサー
- 回答日時:
↓のように辞書配列を用いれば出来ますよ。
Set dictData = Server.CreateObject("Scripting.Dictionary")
Randomize
do while dictData.count <> 14
index=Int((14) * Rnd) + 1
if Not dictData.Exists(index) Then dictData.Add index,strName(index)
loop
akeys = dictData.keys
for i = 0 to dictData.count - 1
Response.Write dictData.item(akeys(i)) & <BR>
Next
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) access count数を変数に格納 2 2022/03/30 19:21
- Visual Basic(VBA) データベースから絞り込んでデータを読み込み 1 2023/02/21 19:51
- SQL Server [SQLServer] テーブル名からカラム名を取得する 1 2022/08/23 21:20
- Excel(エクセル) PHPプログラムをエクセルに張り付けると検索ボックスがでてくる! 3 2022/05/08 07:10
- PHP PHP MySql ページング 2 2022/09/20 06:38
- PHP htmlspecialcharsが機能していないです。 バグですか? 1 2022/04/05 01:22
- SQL Server これをSQL文で出来るでしょうか? 1 2023/03/26 02:16
- PHP ここでの ②if($su_d<>"")の比較演算子 を使う理由は 1 2022/03/26 02:33
- MySQL 書籍の内容はまともでしょうか? 1 2023/01/22 03:07
- PHP 配列の値の更新方法について 1 2022/08/05 09:49
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelのセルの色指定をVBAから...
-
ExcelのINDEXとMATCH関数でスピ...
-
【VBA】配列に数式を仕込む方法...
-
VBA listBoxについて
-
VBAでの100万行以上のデータの...
-
SUMPRODUCT関数を用いた最小値
-
エクセル 条件を指定した標準...
-
[エクセル]連続する指定範囲か...
-
配列の受け渡しについて
-
[VBA]改行入りのセルの値を配列...
-
読み込みで一行おきに配列に格納
-
ノーツのデータをVBScriptで取...
-
DataSetから、DataTableを取得...
-
Excel オートフィルタのリスト...
-
VBS 複数ファイル複数行を配列...
-
エクセルVBAで変数をセルに一行...
-
array関数で格納した配列の型を...
-
vba:一覧表から自動転記をしたい
-
.NET - 配列変数を省略可能の引...
-
スプレットシートのGetTextにつ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelのセルの色指定をVBAから...
-
ExcelのINDEXとMATCH関数でスピ...
-
array関数で格納した配列の型を...
-
[エクセル]連続する指定範囲か...
-
表にフィルターをかけ、絞った...
-
VBA listBoxについて
-
エクセルで、絶対値の平均を算...
-
配列がとびとびである場合の書き方
-
DataSetから、DataTableを取得...
-
[VBA]改行入りのセルの値を配列...
-
VBA 配列に格納した値の平均の...
-
配列のSession格納、及び取得方...
-
【VBA】ユーザーフォーム リス...
-
エクセルでエラーを無視して一...
-
SUMPRODUCT関数を用いた最小値
-
Excel VBA 配列の分割について
-
Excelのオートフィルタで抽出し...
-
VB6.0 ファイルの一括読込み
-
Excel オートフィルタのリスト...
-
VBAで指定期間の範囲を抽出し、...
おすすめ情報