【vfp开源代码栏目提醒】:本文主要为网学会员提供createdatabasewithdmo.prg,希望对需要createdatabasewithdmo.prg网友有所帮助,学习一下!
LOCAL oSQLServer,cResult
oSQLServer=CREATEOBJECT("SQLDMO.SQLServer")
cResult=oSQLServer.Connect("ccb-zhj","sa","")
oDB=CREATEOBJECT("SQLDMO.Database") &&创建数据库对象
oLogFile=CREATEOBJECT("SQLDMO.LogFile") &&创建表日志文件对象
oDBFile=CREATEOBJECT("SQLDMO.DBFile") &&创建数据文件对象
oDB.Name="MyDb" &&数据库名
oDBFile.Name="MyDb_Dat" &&数据文件的逻辑名称
oDBFile.PhysicalName="c:\mssql7\data\MyDbDat.mdf" &&数据文件物理名字
oDBFile.PrimaryFile=.T. &&主文件群
oDbFile.Size=10
oDbFile.MaximumSize=50
oDBFile.FileGrowthType=0 && 文件增长类型 0-MB,1-百分比
oDBFile.FileGrowth=5 &&增长大小 (5MB)
oDB.FileGroups("PRIMARY").DBFiles.Add (oDBFile) &&添加到文件群里
oLogFile.Name="MyDb_Log" &&日志文件逻辑名
oLogFile.PhysicalName="c:\ms
sql7\data\MyDbLog.ldf" &&物理名
oLogFile.Size=5
oLogFile.MaximumSize=25
oLogFile.FileGrowthType=0
oLogFile.FileGrowth=5
oDB.TransactionLog.LogFiles.Add(oLogFile) &&重新添加
oSQLServer.Databases.Add(oDB) &&建立数据库