CreateaSQLServerdatabase.

复制代码 代码如下:

DB_SIZE_IN_MEGABYTES=5

strDBServerName="."

SetobjSQLServer=CreateObject("SQLDMO.SQLServer")

objSQLServer.LoginSecure=True

objSQLServer.ConnectstrDBServerName

SetobjDB=CreateObject("SQLDMO.Database")

SetobjFG=CreateObject("SQLDMO.Filegroup")

SetobjDBFile=CreateObject("SQLDMO.DBFile")

SetobjLogFile=CreateObject("SQLDMO.LogFile")

objDB.Name="ScriptingGuysTestDB"

objDBFile.Name="ScriptingGuysTestDB_Data"

objDBFile.PhysicalName="C:ProgramFilesMicrosoftSQLServerMSSQLdataScriptingGuysTestDB_Data.MDF"

objDBFile.Size=DB_SIZE_IN_MEGABYTES

objDB.FileGroups("PRIMARY").DBFiles.Add(objDBFile)

objSQLServer.Databases.Add(objDB)