|Written by||Imar Spaanjaars|
|Listened to||Build A Bridge by Limp Bizkit (Track 7 from the album: Results May Vary)|
Are you looking to hire an experienced software developer or .NET consultant? Then get in touch with me through my company's web site at devierkoeden.com
Found an interesting article on this site? Got inspired by something you read here? Then consider making a donation with PayPal.
Like this article? Or do you think it sucks? Make yourself heard by casting your vote below.Total number of ratings: 80
<!--#include virtual="/Includes/adovbs.inc"--> <% Dim sDatabaseName sDatabaseName = "C:\Databases\MyNewDatabase.mdb"
Sub CreateAccessDatabase(sDatabaseToCreate) Dim catNewDB ' As ADOX.Catalog Set catNewDB = Server.CreateObject("ADOX.Catalog") catNewDB.Create "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & sDatabaseToCreate & _ ";Jet OLEDB:Engine Type=5;" ' Engine Type=5 = Access 2000 Database ' Engine Type=4 = Access 97 Database Set catNewDB = Nothing End Sub
Sub CreateAccessTable(sDatabaseToCreate) Dim catDB ' As ADOX.Catalog Set catDB = Server.CreateObject("ADOX.Catalog") ' Open the catalog catDB.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & sDatabaseToCreate Dim tblNew ' As ADOX.Table Set tblNew = Server.CreateObject("ADOX.Table") tblNew.Name = "Contacts"
' First Create an Autonumber column, called ID. ' This is just for demonstration purposes. ' You could have done this below with all the other columns as well Dim col ' As ADOX.Column Set col = Server.CreateObject("ADOX.Column") With col ParentCatalog = catDB .Type = adInteger .Name = "ID" .Properties("Autoincrement") = True End With tblNew.Columns.Append col
' Now add the rest of the columns With tblNew ' Create fields and append them to the ' Columns collection of the new Table object. With .Columns .Append "NumberColumn", adInteger .Append "FirstName", adVarWChar .Append "LastName", adVarWChar .Append "Phone", adVarWChar .Append "Notes", adLongVarWChar End With
Dim adColNullable ' Is not defined in adovbs.inc, ' so you need to define it here. ' The other option is adColFixed with a value of 1 adColNullable = 2 With .Columns("FirstName") .Attributes = adColNullable End With End With
' Add the new Table to the Tables collection of the database. catDB.Tables.Append tblNew Set col = Nothing Set tblNew = Nothing Set catDB = Nothing End Sub
' First call the Create Database method CreateAccessDatabase sDatabaseName ' Then add a table and columns to this database CreateAccessTable sDatabaseName %>
Wonder where to go next?
You can read existing comments below
or you can post a comment yourself on this article
Consider making a donation
Please consider making a donation using PayPal. Your donation helps me to pay the bills so I can keep running Imar.Spaanjaars.Com, providing fresh content as often as possible.
I am interested in what you have to say about this article. Feel free to post any comments, remarks or questions you may have about this article. The Talk Back feature is not meant for technical questions that are not directly related to this article. So, a post like "Hey, can you tell me how I can upload files to a MySQL database in PHP?" is likely to be removed. Also spam and unrealistic job offers will be deleted immediately.
When you post a comment, you have to provide your name and the comment. Your e-mail address is optional and you only need to provide it if you want me to contact you. It will not be displayed along with your comment. I got sick and tired of the comment spam I was receiving, so I have protected this page with a simple calculation exercise. This means that if you want to leave a comment, you'll need to complete the calculation before you hit the Post Comment button.
For more information about the Talk Back feature, check out this news item.
Unfortunately, something went wrong and your message or comments have not been submitted successfully.
There's a fair chance things broke down because you tried to post something that looks like HTML. Things that look like HTML include (X)HTML, obviously, XML, ASP.NET markup and c# generics syntax as all of them use the < and > characters.
If that's the case, try altering your message and remove anything that looks like an angled bracket. You can replace them with [ and ] for example so you can still make it look like HTML to some extend.
If, on the other hand, you were trying to spam this web site, I am pretty glad I caught you in the act and stopped you from doing so ;-)
The number you entered is not correct. Please enter the sum of the two numbers again.