Do you like this article? Please, rate it and write review!
Rated:
by Aspin.com users
| |
| | Top messages |
| 4.5.2002 9:16:43 | |
| 22.3.2003 19:18:41 | |
| 26.1.2007 13:57:34 | |
Create MDB database by VBS (ADO/DAO), new MDB file | Areas>Languages>VBScript Areas>ASP / ASP.Net>Functions Areas>ASP / ASP.Net>Database>Data access>OLEDB>JetOLEDB Areas>ASP / ASP.Net>Database>Data access>DAO Areas>ASP / ASP.Net>Database>MDB | |
| There are (at least) two ways how to create MDB database from VBS.
1. Create MDB by ADO (ADOX)
At least MDAC2.0 installed is required to run next code.
Const Jet10 = 1
Const Jet11 = 2
Const Jet20 = 3
Const Jet3x = 4
Const Jet4x = 5
Sub CreateNewMDB(FileName, Format)
Dim Catalog
Set Catalog = CreateObject("ADOX.Catalog")
Catalog.Create "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Jet OLEDB:Engine Type=" & Format & _
";Data Source=" & FileName
End Sub
'Create Access2000 database
CreateNewMDB "G:\a2000.mdb", Jet4x
|
1. Create MDB by DAO
DAO 3.6 is required to run the code (You can also use other version of DAO, for example DAO.DBEngine.35)
Const dbVersion10 = 1
Const dbVersion11 = 8
Const dbVersion20 = 16
Const dbVersion30 = 32
Const dbVersion40 = 64
Sub CreateNewMDB(FileName, Format)
Dim Engine
Set Engine = CreateObject("DAO.DBEngine.36")
Engine.CreateDatabase FileName, ";LANGID=0x0409;CP=1252;COUNTRY=0", Format
End Sub
'Create Access2000 database
CreateNewMDB "G:\a2000.mdb", dbVersion40
| |
|
If you like this page, please include next link on your pages:
<A
Href="http://www.motobit.com/tips/detpg_createmdb/"
Title="The article contains information about creating
database from ASP/VBS."
>Create MDB database by VBS (ADO/DAO), new MDB file</A>
|
|