用asp代码生成access数据库

阿杰

1. 
   
2. 用asp代码生成access数据库，然后在生成的数据库中创建表。
   
3. < %
   
4. DBName = server.mappath(".")&"\AccessDB.mdb"
   
5. '创建数据库
   
6. Set mycat = Server.CreateObject( "ADOX.Catalog" )
   
7. mycat.Create "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBName
   
8. if err.number=0 then
   
9. Response.Write("<script>alert('数据库创建成功')</script>")
   
10. end if
    
11. % >
    
12. < %
    
13. '创建数据表
    
14. Set conn = Server.CreateObject( "ADODB.Connection" )
    
15. conn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & DBName
    
16. Sql="CREATE TABLE TestTable("&_
    
17. "id counter IDENTITY (1, 1) NOT NULL ,"&_
    
18. "name varchar(255) NOT NULL ,"&_
    
19. "pass varchar(255) NULL ,"&_
    
20. "logintimes int Default 0 NOT NULL ,"&_
    
21. "createtime datetime Default now() NOT NULL "&_
    
22. ")"
    
23. conn.execute(sql)
    
24. if err.number=0 then
    
25. Response.Write("<script>alert('数据表创建成功')</script>")
    
26. end if
    
27. % >
    

复制代码