|
Displaying Source Code(s)
|
|
MkDatabase Function
--------------------------------------------------------------------------------
Description : The MkDatabase statement creates an empty
Microsoft Access database. The required argument pathname must
end in .mdb and reflects the location of where the new database
will be created. MkDatabase can only create a database. An error
occurs if the specified path is not found or if there is a
database with the same name at the location specified in the
pathname argument. Use the Kill Statement to delete an MS Access
database.
click an example below
VBScript: SQLServerTools ...
MkDatabase Function
< prev proc
MkArchive Function Next proc >
MkDir Statement
purpose:
The MkDatabase statement creates an Empty Microsoft Access
database. The
required argument pathname must End In .mdb And reflects the
location of where
the New database will be created. MkDatabase can only create a
database. An
Error occurs If the specified path Is Not found Or If there Is a
database With
the same name at the location specified In the pathname
argument. Use the Kill
Statement To delete an MS Access database.
syntax:
MkDatabase pathname
example usage:
<%
MkDatabase "C:database.mdb"
%>
source code:
<%
Private Sub MkDatabase(ByVal pathname)
Dim objAccess, objFSO
If LCase( Right( pathname, 4 ) ) <> ".mdb" Then
Err.Raise 5155, "MkDatabase Statement", _
"Database name must end with '.mdb'"
Exit Sub
End If
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists( pathname ) Then
Set objFSO = Nothing
Err.Raise 5155, "MkDatabase Statement", _
"Specified MS Access database already exists."
Exit Sub
End If
Set objFSO = Nothing
On Error Resume Next
Set objAccess = CreateObject("Access.Application")
If Err Then
On Error GoTo 0
Err.Raise 5155, "MkDatabase Statement", _
"MS Access is not installed on this server."
Exit Sub
End If
With objAccess
.Echo False
.NewCurrentDatabase pathname
.CloseCurrentDatabase
.Quit
End With
Set objAccess = Nothing
On Error GoTo 0
End Sub
%>
--------------------------------------------------------------------------------
|
|
|
123
Eng