当前位置：网站首页 > 程序技巧 > asp > 文章当前位置： asp > 文章

ASP创建SQL Server数据库和access数据库及数据表的方法

时间：2023-07-29 点击：次来源：网络添加者：佚名 - 小 + 大

方法一：
<%
************ 使用ADODB.Connect对象创建 ************************
Dim oConn
Dim sDatabaseName
sDatabaseName = "CodeCreateDB"
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "Provider=SQLOLEDB;Data Source=(local);User ID=sa;Password=;"
oConn.Execute "CREATE DATABASE " & sDatabaseName
%>

方法二：

<%@ Language=VBScript %>
<%
******************* 使用 SQLDMO Object 对象库 *******************
Dim oSQLServer
Dim oDatabase
Dim oDBFileData
Dim oLogFile
Dim sDatabaseName
Dim sDatapath

数据库名字
sDatabaseName = "CodeCreateDBTest"
数据文件保存路径
sDatapath = "D:\"

创建Sql Server对象并进行链接,(local)处为Server名字
Set oSQLServer = Server.CreateObject("SQLDMO.SQLServer")
oSQLServer.LoginSecure = True 使用集成验证integrated security
oSQLServer.Connect "(local)"
oSQLServer.Connect "(local)", "sa", "" 使用标准验证 standard security

创建Database对象
Set oDatabase = Server.CreateObject("SQLDMO.Database")
oDatabase.Name = sDatabaseName

创建db文件对象
Set oDBFileData = Server.CreateObject("SQLDMO.DBFile")
With oDBFileData
.Name = sDatabaseName & "_data"
.PhysicalName = sDatapath & "\" & sDatabaseName & "_data.mdf"
.PrimaryFile = True
.FileGrowthType = SQLDMOGrowth_MB
.FileGrowth = 1
End With

创建日志文件对象
Set oLogFile = Server.CreateObject("SQLDMO.LogFile")
With oLogFile
.Name = sDatabaseName & "_log"
.PhysicalName = sDatapath & "\" & sDatabaseName & "_log.ldf"
End With

把DB文件对象和日志文件对象添加到DataBase数据库对象
oDatabase.FileGroups("PRIMARY").DBFiles.Add oDBFileData
oDatabase.TransactionLog.LogFiles.Add oLogFile

把数据库添加到Sql server(create the database)
oSQLServer.Databases.Add oDatabase

关闭连接
oSQLServer.Close

释放对象
Set oLogFile = Nothing
Set oDBFileData = Nothing
Set oDatabase = Nothing
Set oSQLServer = Nothing

第三种方法：操作access数据库

'创建data1数据库,建一个数据库文件名

'create database data1

db="data1.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.Open connstr

'创建表Skin
sql="Create Table Skin (ID INT IDENTITY (1, 1) NOT NULL PRIMARY KEY,"&_
"SkinName VARCHAR(10),"&_
"SkinSetting TEXT)"
set rs=conn.execute(sql)
conn.execute("insert into Skin (SkinName,SkinSetting) values ('默认方案','#708090,,#EEEEEE,#FFFFFE,#EFEFEF,#000000,#FFFFFF,#778899,#DDEEFF,#000000,#778899,#778899,#778899,#778899,#778899,#708090,#FFFFFE,images/ydxz_logo.gif,images/bg.gif')")

参考资料 https://www.idcnote.com/php/biji/38572.html

分享按钮

上一篇：asp 读取.html 并按照原格式输出html的源代码

下一篇：在ASP中添加修改Access数据库的结构：字段和属性或者sql

本栏目热门阅读

本栏目最新文章

本栏目随机阅读