Gcy6Vrxx

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, db As Database, InsertRecord As String
14    Dim num1 As Integer
15    Dim gnum As Integer
16    Dim anum As Integer
17    Dim StudentFName As String
18    Dim StudentLName As String
19    Dim StudentPhone As Long
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    Dim SQL As String
26    Set db = CurrentDb()  'The CurrentDb method returns an object variable of type   Database
27  For num1 = 0 To 9
28  fnames = Array("George", "Christan", "Doonie", "Eva", "Lily", "Thomas", "Anastasia", "Kim", "Steve", "Matthew")
29  lnames = Array("Chelli", "OMartin", "Cravens", "Davis", "Wolfe", "Wick", "Cooper", "McBride", "Winters", "Joseph")
30  address = Array("Roosevelt Avenue", "College Street", "Catherine Street", "Park Drive", "River Street", "Manor Drive", "Virginia Avenue", "Taylor Street", "Second Street", "Fake Street")
31  email = Array("ettofenal0056", "elezallud7273", "grale1930", "jurpso9920", "mayhouris2212", "kekyourss2224", "laruipwoie0928", "uyrasshp0192", "kaysnops2267", "oopsididit2656")
32  tail = Array("@hotmail.com", "@yahoo.com", "@gmail.com", "@outlook.com", "@live.com", "@zoho.com", "@gmx.com", "@fastmail.com", "@hushmail.com", "@dodo.com")
33  belt = Array("White", "Red", "Yellow", "Orange", "Green", "Blue", "Purple", "Brown", "Black-Half", "Black-Full")
34  grade = Array("Good", "Very Good", "Excellent")
35  class = Array("CLS001", "CLS002", "CLS003", "CLS004", "CLS005", "CLS006", "CLS007", "CLS008", "CLS009", "CLS010")
36  
37' Equation for Random generation:
38' Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
39
40num = Int((9 - 0 + 1) * Rnd + 0)
41gnum = Int((2 - 0 + 1) * Rnd + 0)
42anum = Int((999 - 1 + 1) * Rnd + 1)
43StudentFName = fnames(num)
44StudentLName = lnames(num)
45StudentPhone = Int((99999999 - 90000000 + 1) * Rnd + 90000000)
46StudentAddress = CStr(anum) & " " & address(num)
47StudentEmail = email(num) & tail(num)
48StudentBelt = belt(num)
49StudentGrade = grade(gnum)
50StudentClass = class(num)
51
52'InsertRecord = "INSERT INTO STUDENT (StudentID, StudFName, StudLName, StudPhone, StudAddress, StudEmail, StudBelt, StudGrade, StudClass) VALUES (" & "'" & StudentID & "'" & "," & "'" & StudentFName & "'" & "," & "'" & StudentLName & "'" & "," & "'" & StudentPhone & "'" & "," & "'" & StudentAddress & "'" & "," & "'" & StudentEmail & "'" & "," & "'" & StudentBelt & "'" & "," & "'" & StudentGrade & "'" & "," & "'" & StudentClass & "'" & ");"
53 
54'db.Execute InsertRecord
55SQL = "INSERT INTO STUDENT (StudFName, StudLName, StudPhone, StudAddress, StudEmail, StudBelt, StudGrade, StudClass) " & _
56"VALUES ('" & StudentFName & "','" & StudentLName & "','" & StudentPhone & "','" & StudentAddress & "','" & StudentEmail & "','" & StudentBelt & "','" & StudentGrade & "','" & StudentClass & "');"
57DoCmd.RunSQL (SQL)
58Debug.Print StudentFName; StudentLName; StudentPhone; StudentAddress; StudentEmail; StudentBelt; StudentGrade; StudentClass
59
60  Next
61
62End Sub