Create an Access database

This example shows how to create an Access (.mdb) database .

Code :

DAO version

<%
Const dbVersion10 = 1
Const dbVersion11 = 8
Const dbVersion20 = 16
Const dbVersion30 = 32
Const dbVersion40 = 64
Sub CreateMDB(FileName, Format)
Dim Engine
Set Engine = CreateObject("DAO.DBEngine.36")
Engine.CreateDatabase FileName, ";LANGID=0x0409;CP=1252;COUNTRY=0", Format
End Sub
%>
<%
' Access2000
CreateMDB "D:\sampledb.mdb", dbVersion40
%>

ADO version

<%
Const Jet10 = 1
Const Jet11 = 2
Const Jet20 = 3
Const Jet3x = 4
Const Jet4x = 5
Sub CreateMDB(FileName, Format)
Dim objCatalog
Set objCatalog = CreateObject("ADOX.Catalog")
objCatalog.Create "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Jet OLEDB:Engine Type=" & Format & _
";Data Source=" & FileName
End Sub
%>
<%
'Create Access2000 database
CreateMDB "D:\sample.mdb", Jet4x
%>