<%
************ إنشاء باستخدام كائن ADODB.Connect ************************
خافت أوكون
DimsDatabaseName
sDatabaseName = "CodeCreateDB"
تعيين oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "الموفر=SQLOLEDB;مصدر البيانات=(محلي);معرف المستخدم=sa;كلمة المرور=;"
oConn.Execute "إنشاء قاعدة بيانات" وsDatabaseName
%>
الطريقة الثانية:
<%@ Language=VBScript %>
<%
******************** استخدام مكتبة كائنات SQLDMO **********************
خافت oSQLServer
قاتمة قاعدة البيانات
خافت oDBFileData
خافت oLogFile
DimsDatabaseName
اسم قاعدة البيانات
DimsDatapath
sDatabaseName = "CodeCreateDBTest"
مسار حفظ ملف البيانات
sDatapath = "D:"
ينشئ كائن Sql Server ويربطه، (محلي) هو اسم الخادم
تعيين oSQLServer = Server.CreateObject("SQLDMO.SQLServer")
oSQLServer.LoginSecure = True يستخدم الأمان المتكامل
oSQLServer.Connect "(محلي)"
oSQLServer.Connect "(local)"، "sa"، ""
إنشاء كائن قاعدة بيانات
باستخدام الأمان القياسي للمصادقة القياسية
تعيين oDatabase = Server.CreateObject("SQLDMO.Database")
oDatabase.Name = sDatabaseName
يقوم بإنشاء كائن ملف ديسيبل
تعيين oDBFileData = Server.CreateObject("SQLDMO.DBFile")
مع oDBFileData
.Name = sDatabaseName و"_data"
.PhysicalName = sDatapath & "" & sDatabaseName & "_data.mdf"
.PrimaryFile = صحيح
.FileGrowthType = SQLDMOGrowth_MB
.نمو الملف = 1
End With
بإنشاء كائن ملف السجل
تعيين oLogFile = Server.CreateObject("SQLDMO.LogFile")
مع ملف oLog
.Name = sDatabaseName و"_log"
.PhysicalName = sDatapath & "" & sDatabaseName & "_log.ldf"
End With
كائن ملف DB وكائن ملف السجل إلى كائن قاعدة البيانات DataBase
oDatabase.FileGroups("PRIMARY").DBFiles.Add oDBFileData
oDatabase.TransactionLog.LogFiles.Add
يضيف oLogFile قاعدة البيانات إلى خادم Sql (إنشاء قاعدة البيانات)
oSQLServer.Databases.Add
اتصال
oDatabaseClose
oSQLServer.Closeيحرر
الكائن
تعيين oLogFile = لا شيء
تعيين oDBFileData = لا شيء
تعيين oDatabase = لا شيء
تعيين oSQLServer = لا شيء
%>