报价函怎么写:如何在数据库中新建一个表？ASP，ACCESS

<%
Dim SQL,Conn
Set Conn= Server.CreateObject("ADODB.Connection")
Conn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("111.mdb")
Conn.Open

'上面是建立数据库连接，并打开

'*********************************************************************************************************

SQL="CREATE TABLE 222("&_ '创建表222
"333 varchar(20),"&_ '建立字符型字段333,大小为20
"444 int Default 0"&_ '建立数值型字段444,默认值为0
") "
Conn.ExeCute(SQL) '执行Sql语句
%>

不要忘了把数据库的安全改为完全控制

<%
dim conn
db= "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("111.mdb")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Mode = 3
Conn.Open db
'以上为连接数据库

sql="create table 222 (333 varchar(50),444 int')"
conn.execute sql
'创建表

SQL语言入门教程：第二课 创建表格
http://www.itlearner.com/article/2005/1728.shtml

看看吧...
利用SQL语句创建表格.这是ASP编程中运行效率最高的创建表格的方式了.

以下代码已经经过测试，可以直接使用。
<%
dim conn,connstr,db,sql
db="111.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
conn.Open connstr '连接数据库111.mdb
sql="create table 222(333 char,444 number)" '创建带有所需列的数据表
conn.execute(sql) '执行创建
%>

create table 222
(
333 varchar(10),
444 decimal
)

一个框，引申去吧！

在Access中，选择"新建"菜单下的"表格",就可以了，然后在字段名中输入你要建立的字段名就可以了，然后保存到相应的数据库里！如果用SQL语句的话，就是:
sql="create table 222 (333 varchar(70),444 int')"
conn.execute sql