Howto Create a Microsoft Access Database from ASP Code
The Complete CodeYou can take a look at the complete code by following this link. It will open in a new browser window, so it's easy to follow along with the explanation.
Creating the DatabaseBefore you start using this code, you have to make sure that the account that IIS runs under (this is usually the IUSR_MachineName account, where MachineName is the name of your computer) has the right permissions to write to the folder where you want to add your database. This means you have to open the Security dialog for the folder, add the IUSR account to the list with accounts and groups that have access to the folder and make sure that you give the account at least Write permissions. Once this has been settled, you are ready to create the database through ASP code.
To successfully create a database, you'll need to perform two steps: first you'll have to create a new and empty database. Once you have the database, you are able to create a new table that defines one or more columns. What's important with these two steps is that you close the connection to the database after you have created the database. If you leave the connection open, you won't be able to add the tables and the columns. This is the reason that this code is split up in two method calls: CreateAccessDatabase creates the database, and then CreateAccessTable opens a connection to this database and adds a table with a few columns. To make things easier, sDatabaseName is defined at the top of the code. This variable holds the name and location of the database you want to create, and is used in both methods. Now let's look at the code and see how you can create the database:
<!--#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
Now that you have a mechanism to create an empty database, it's time to do something useful with it. After all, what good is a database without any tables? Here's the code for the CreateAccessTable method:
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
At the end, the new column is added to the Columns collection of the new table you created.
' 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
Now that the columns have been added, you can change some of their properties, like whether they are required (adColFixed) or not (adColNullable). Both these constants are not defined in the adovbs.inc file, so you'll need to declare them in your code. For easier access, you can add them to the adovbs.inc file if you want.
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
All that's left now, is the code that actually calls these two methods. With all the hard work done, this is now really simple:
' First call the Create Database method CreateAccessDatabase sDatabaseName ' Then add a table and columns to this database CreateAccessTable sDatabaseName %>
Things to Watch Out ForIf you try to run this code multiple times in succession, you'll get an error. The database cannot be created if it already exists. For debugging purposes, you could add some code that uses the FileSystemObject to delete the old database before you create a new one.
The current definition for sDatabaseName uses a folder called Databases at your C drive. The code does not create this folder, so you'll need to make sure it exists before you run this page, or you'll need to modify the path so it points to an existing folder.
Where to Next?
Wonder where to go next? You can post a comment on this article.
Links in this Document
Talk Back! Comment on Imar.Spaanjaars.Com
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.
If you want to object to a comment made by another visitor, be sure to contact me and I'll look into it ASAP. Don't forget to mention the page link, or the Doc ID of the document.
Please correct the following errors:
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 ;-)
Also, please don't use links in your posts; I had to block them to filter out most of the junk mail I am receiving.
The number you entered is not correct. Please enter the sum of the two numbers again.