Selesai

Randomizing A Recordset In VB6

I have an application written in VB6 that basically is a multiple choice test generator using an Access 2.0 database file. I want the user to be able to select the number of questions to answer and then have the software display the questions in random order. I wrote the same application in VB3 and it works great, but it does not work correctly in VB6. In VB6 the code below randomizes the questions, but it always generates the same ramdom order, instead of truly randomizing the order. What I need is someone to modify the code I have listed below so that it works correctly with VB6, as it did with VB3. Here is the code. Dim TestNum As String TestNum = InputBox("Enter Number Of Questions You Would Like Included From This Chapter.", "Create Random Test From ") If TestNum = "" Then Exit Sub End If If TestNum = "0" Then Exit Sub End If Call Randomize [url removed, login to view] = "SELECT Top " & TestNum & " * FROM table1 where chapter='" & [url removed, login to view] & "' ORDER BY Rnd(id);" [url removed, login to view] End If As I said, in VB3 it worked flawlessly, but in VB6 is as if the Ramdomize statement is not working.

## Deliverables

I just need the modified code, so that when executed it will come back with a truly randomized order, not the same random order each time the program is run.

## Platform

As I said this is written in VB6, so it should work with Windows 95, 98, ME, 2000, XP.

Keahlian: Teknik, Microsoft Access, MySQL, PHP, Perancangan Perangkat Lunak, Pengujian Perangkat Lunak, Visual Basic

Lihat lebih lanjut: random recordset vb6, vb6 test questions, vb6 0, test code generator, ramdomize, in vb6.0, c test generator, and in vb6, vb6, randomized, multiple choice database questions, access multiple choice test, access multiple choice questions, visual basic multiple choice, access 2003 test questions, application written visual basic, recordset, access multiple choice, random number program code visual basic, vb6 create code

Tentang Pemberi kerja:
( 2 ulasan ) United States

ID Proyek: #2896064

Diberikan kepada:

deanconsulting

See private message.

$7 USD dalam 14 hari
(50 Ulasan)
4.6

6 freelancer menawar dengan rata-rata $17 untuk pekerjaan ini

jeivw

See private message.

$17 USD dalam 14 hari
(131 Ulasan)
7.6
creativexso

See private message.

$41.65 USD dalam 14 hari
(81 Ulasan)
5.9
appdevservice

See private message.

$3.4 USD dalam 14 hari
(90 Ulasan)
5.6
dillonagoma

See private message.

$8.5 USD dalam 14 hari
(5 Ulasan)
1.3
vw631999vw

See private message.

$25.5 USD dalam 14 hari
(2 Ulasan)
0.7