123 Eng

Engineering the engineers™


Latest Jobs   Forum Map

 


Home

Source Codes

Engineering Colleges

BE Students

Training  Reports (updated)

Seminar Reports (updated

Placement Papers (updated)

Forums

   Computer Science / IT

   Electronics

   Electrical

   Mechanical

   Chemical

   Civil

   CAT / MBA

   GMAT / Foreign MBA

Latest Jobs

Engineering Jobs / Technical Jobs

Management Jobs

Sitemap

About-Us

Terms of use

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
%>
--------------------------------------------------------------------------------
 

 

Contribute content or training reports / feedback / Comments
job placement papers
All rights reserved copyright 123ENG