减小字体
增大字体- ·上一篇文章：sql关键字
- ·下一篇文章：mssql安装出错的解决方法
用asp代码生成access数据库
用asp代码生成access数据库，然后在生成的数据库中创建表。
<
%
DBName = server.mappath(".")&
"\AccessDB.mdb"
'创建数据库
Set mycat = Server.CreateObject( "ADOX.Catalog" )
mycat.Create "Provider=Microsoft.Jet.OLEDB.4.0
Data Source=" &
DBName
if err.number=0 then
Response.Write("<
script>
alert('数据库创建成功')<
/script>
")
end if
% >
<
%
'创建数据表
Set conn = Server.CreateObject( "ADODB.Connection" )
conn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0
DATA SOURCE=" &
DBName
Sql="CREATE TABLE TestTable("&
_
"id counter IDENTITY (1, 1) NOT NULL ,"&
_
"name varchar(255) NOT NULL ,"&
_
"pass varchar(255) NULL ,"&
_
"logintimes int Default 0 NOT NULL ,"&
_
"createtime datetime Default now() NOT NULL "&
_
")"
conn.execute(sql)
if err.number=0 then
Response.Write("<
script>
alert('数据表创建成功')<
/script>
")
end if
% >
<
%
DBName = server.mappath(".")&
"\AccessDB.mdb"
'创建数据库
Set mycat = Server.CreateObject( "ADOX.Catalog" )
mycat.Create "Provider=Microsoft.Jet.OLEDB.4.0
Data Source=" &
DBName
if err.number=0 then
Response.Write("<
script>
alert('数据库创建成功')<
/script>
")
end if
% >
<
%
'创建数据表
Set conn = Server.CreateObject( "ADODB.Connection" )
conn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0
DATA SOURCE=" &
DBName
Sql="CREATE TABLE TestTable("&
_
"id counter IDENTITY (1, 1) NOT NULL ,"&
_
"name varchar(255) NOT NULL ,"&
_
"pass varchar(255) NULL ,"&
_
"logintimes int Default 0 NOT NULL ,"&
_
"createtime datetime Default now() NOT NULL "&
_
")"
conn.execute(sql)
if err.number=0 then
Response.Write("<
script>
alert('数据表创建成功')<
/script>
")
end if
% >
用asp代码生成access数据库
