Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Option Compare Database
- Option Explicit
- Sub arrayData()
- Dim fnames() As Variant 'Must be variant data type only
- Dim lnames() As Variant
- Dim address() As Variant
- Dim email() As Variant
- Dim tail() As Variant
- Dim belt() As Variant
- Dim grade() As Variant
- Dim class() As Variant
- Dim num As Integer, dbs As Database, InsertRecord As String
- Dim gnum As Integer
- Dim anum As Integer
- Dim StudentID As Integer, num1 As Integer, num2 As Integer
- Dim StudentFName As String
- Dim StudentLName As String
- Dim StudentPhone As Integer
- Dim StudentAddress As String
- Dim StudentEmail As String
- Dim StudentBelt As String
- Dim StudentGrade As String
- Dim StudentClass As String
- Set dbs = CurrentDb() 'The CurrentDb method returns an object variable of type Database
- StudentID = 100
- For num1 = 0 To 1000
- StudentID = "STU" + StudentID + 1
- fnames = Array("George", "Christan", "Doonie", "Eva", "Lily", "Thomas", "Anastasia", "Kim", "Steve", "Matthew")
- lnames = Array("Chelli", "OMartin", "Cravens", "Davis", "Wolfe", "Wick", "Cooper", "McBride", "Winters", "Joseph")
- StudentPhone = Int((99999999 - 90000000 + 1) * Rnd + 90000000)
- address = Array("Roosevelt Avenue", "College Street", "Catherine Street", "Park Drive", "River Street", "Manor Drive", "Virginia Avenue", "Taylor Street", "Second Street", "Fake Street")
- email = Array("ettofenal0056", "elezallud7273", "grale1930", "jurpso9920", "mayhouris2212", "kekyourss2224", "laruipwoie0928", "uyrasshp0192", "kaysnops2267", "oopsididit2656")
- tail = Array("@hotmail.com", "@yahoo.com", "@gmail.com", "@outlook.com", "@live.com", "@zoho.com")
- belt = Array("White", "Red", "Yellow", "Orange", "Green", "Blue", "Purple", "Brown", "Black-Half", "Black-Full")
- For num2 = 0 To 2
- grade = Array("Good", "Very Good", "Excellent")
- Next num2
- class = Array("CLS001", "CLS002", "CLS003", "CLS004", "CLS005", "CLS006", "CLS007", "CLS008", "CLS009", "CLS010")
- ' Equation for Random generation:
- ' Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
- num = Int((9 - 0 + 1) * Rnd + 0)
- gnum = Int((2 - 0 + 1) * Rnd + 0)
- anum = Int((999 - 1 + 1) * Rnd + 1)
- StudentFName = fnames(num)
- StudentLName = lnames(num)
- StudentAddress = anum + " " + address(num)
- StudentEmail = email(num) + tail(num)
- InsertRecord = "insert into STUDENT (StudentID, StudFName) values (" & "'" & StudentID & "'" & "," & "'" & StudentFName & "'" & ")"
- dbs.Execute InsertRecord
- Next
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement