| |
|
|
| | Помогите, пожалуйста, с генератором случайных чисел.
Необходимо (с помощью функции Rnd) создать таблицу с определенным количеством записей, которая содержит сгенерированные данные. Как это сделать? | |
| |
| |
| |
|
|
| | Примерно так...
предположим есть таблица tblSample c 3-мя полями
поле1 - длинное целое
поле2 - текстовое
поле3 - дата
Тогда код заполняющие таблицу случайными данными может быть таким
Const MIN_CH = 5 '- минимальное кол-во символов в текстовом поле
Const MAX_CH = 25 '- максимальное кол-во символов в текстовом поле
Const MIN_NUM = -65000000 ' минимально число
Const MAX_NUM = 65000000 ' максимальное число
Const COUNT_RECORD = 5 ' кол-во строк
Dim rst As adodb.Recordset
Dim strTemp As String
Dim I As Integer
Dim J As Integer
Dim C As Integer ' кол-во символов с текстовом поле
Randomize Timer
Set rst = New adodb.Recordset
rst.Open "Select * from tblSample", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
For I = 1 To COUNT_RECORD
C = Int((MAX_CH - MIN_CH + 1) * Rnd + MIN_CH)
strTemp = ""
For J = 1 To C
strTemp = strTemp & Chr(216 * Rnd + 40) ' генерим текстовую строку
Next
With rst
.AddNew
![Поле1] = (MAX_NUM - MIN_NUM + 1) * Rnd + MIN_NUM ' числовое
![Поле2] = strTemp ' тектовое
![Поле3] = DateAdd("d", 1801 * Rnd - 900, Date) ' дата
.Update
End With
Next
rst.Close
|
| |
| |
| |
| |
|
|
| | Большое спасибо! Все работает замечательно. | |
| |
| |
