VB Code:
Public Function CreateDB(strPath As String) As Boolean
Dim cat As ADOX.Catalog
Dim tbl As ADOX.Table
'On Error GoTo errorHandler
Set cat = New ADOX.Catalog
Set tbl = New ADOX.Table
cat.Create "Provider=Microsoft.JET.OLEDB.4.0;Data Source=" & strPath
With tbl
.Name = "Clients"
.Columns.Append "User", adVarWChar, 50
.Columns.Append "IP", adVarWChar, 16
End With
cat.Tables.Append tbl
Set tbl = Nothing
Set tbl = New ADOX.Table
With tbl
.Name = "Data"
.Columns.Append "Path", adVarWChar, 250
.Columns.Append "Name", adVarWChar, 250
.Columns.Append "Exe", adVarWChar, 250
End With
cat.Tables.Append tbl
Set tbl = Nothing
Set tbl = New ADOX.Table
With tbl
.Name = "Office"
.Columns.Append "Username", adVarWChar, 250
.Columns.Append "Password", adVarWChar, 250
.Columns.Append "Num", adInteger
End With
cat.Tables.Append tbl
Set tbl = Nothing
Set tbl = New ADOX.Table
With tbl
.Name = "Teachers"
.Columns.Append "Username", adVarWChar, 250
.Columns.Append "Password", adVarWChar, 250
.Columns.Append "Num", adInteger
End With
cat.Tables.Append tbl
Set tbl = Nothing
Set tbl = New ADOX.Table
With tbl
.Name = "Students"
.Columns.Append "Username", adVarWChar, 250
.Columns.Append "Password", adVarWChar, 250
.Columns.Append "Num", adInteger
End With
cat.Tables.Append tbl
Set tbl = Nothing
Set tbl = New ADOX.Table
With tbl
.Name = "Settings"
.Columns.Append "School Details", adVarWChar, 250
.Columns.Append "Admin Pass", adVarWChar, 250
.Columns.Append "Internet Pass", adVarWChar, 250
.Columns.Append "Pass Enabled", adBoolean
.Columns.Append "NumLic", adInteger
End With
cat.Tables.Append tbl
CreateDB = True
Exit Function
errorHandler:
CreateDB = False
End Function