Как сделать рандомный выбор данных из БД Access в проекте - VB
Формулировка задачи:
У меня тестовая программа и нужно чтоб 100 вопросов которые в базе данных какждый раз в перемешку выбирались...
Решение задачи: «Как сделать рандомный выбор данных из БД Access в проекте»
textual
Листинг программы
Public masv Public Function randomQuestion(path) ' As ADODB.Recordset 'path - путь к БД Dim rst As Object, cn As Object Dim s Set cn = CreateObject("ADODB.Connection") cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & path & ";Mode=Share Deny None;Persist Security Info=False" Set rst = CreateObject("ADODB.Recordset") Randomize s = "select * from Таблица1 order by Rnd(Код)" rst.Open s, cn, 1 'adopenkeyset masv = rst.GetRows 'Загоняем рекордсет в паблик-массив ' Set randomQuestion = rst Set rst = Nothing Set cn = Nothing End Function Sub srandomQuestion() Dim i, j With randomQuestion("C:\Temp\db3.mdb") For i = 0 To UBound(masv, 2) Debug.Print masv(0, i), masv(1, i), masv(2, i), masv(3, i), masv(4, i), masv(5, i) Next End With End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д