r8Vj713Q

1Option Compare Database
2Option Explicit
3
4Sub arrayData()
5    Dim fnames() As Variant  'Must be variant data type only
6    Dim lnames() As Variant
7    Dim address() As Variant
8    Dim email() As Variant
9    Dim tail() As Variant
10    Dim belt() As Variant
11    Dim grade() As Variant
12    Dim class() As Variant
13    Dim num As Integer, dbs As Database, InsertRecord As String
14    Dim gnum As Integer
15    Dim anum As Integer
16    Dim StudentID As Integer, num1 As Integer, num2 As Integer
17    Dim StudentFName As String
18    Dim StudentLName As String
19    Dim StudentPhone As Integer
20    Dim StudentAddress As String
21    Dim StudentEmail As String
22    Dim StudentBelt As String
23    Dim StudentGrade As String
24    Dim StudentClass As String
25    Set dbs = CurrentDb()  'The CurrentDb method returns an object variable of type   Database
26    StudentID = 100
27  For num1 = 0 To 1000
28  StudentID = "STU" + StudentID + 1
29  fnames = Array("George", "Christan", "Doonie", "Eva", "Lily", "Thomas", "Anastasia", "Kim", "Steve", "Matthew")
30  lnames = Array("Chelli", "OMartin", "Cravens", "Davis", "Wolfe", "Wick", "Cooper", "McBride", "Winters", "Joseph")
31  StudentPhone = Int((99999999 - 90000000 + 1) * Rnd + 90000000)
32  address = Array("Roosevelt Avenue", "College Street", "Catherine Street", "Park Drive", "River Street", "Manor Drive", "Virginia Avenue", "Taylor Street", "Second Street", "Fake Street")
33  email = Array("ettofenal0056", "elezallud7273", "grale1930", "jurpso9920", "mayhouris2212", "kekyourss2224", "laruipwoie0928", "uyrasshp0192", "kaysnops2267", "oopsididit2656")
34  tail = Array("@hotmail.com", "@yahoo.com", "@gmail.com", "@outlook.com", "@live.com", "@zoho.com")
35  belt = Array("White", "Red", "Yellow", "Orange", "Green", "Blue", "Purple", "Brown", "Black-Half", "Black-Full")
36  For num2 = 0 To 2
37    grade = Array("Good", "Very Good", "Excellent")
38    Next num2
39  class = Array("CLS001", "CLS002", "CLS003", "CLS004", "CLS005", "CLS006", "CLS007", "CLS008", "CLS009", "CLS010")
40  
41' Equation for Random generation:
42' Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
43
44num = Int((9 - 0 + 1) * Rnd + 0)
45gnum = Int((2 - 0 + 1) * Rnd + 0)
46anum = Int((999 - 1 + 1) * Rnd + 1)
47StudentFName = fnames(num)
48StudentLName = lnames(num)
49StudentAddress = anum + " " + address(num)
50StudentEmail = email(num) + tail(num)
51
52InsertRecord = "insert into STUDENT (StudentID, StudFName) values (" & "'" & StudentID & "'" & "," & "'" & StudentFName & "'" & ")"
53 
54dbs.Execute InsertRecord
55Next
56End Sub