关于ASP创建ACCESS表的程序出错，立即结帖！！

[zhybxyz]

程序报错，但是我没有找到错误所在！请高手帮忙看下，立即结帖！

Microsoft JET Database Engine 错误 '80040e14'

字段定义语法错误。

/works/insert.asp，行 40

程序如下：
<% @LANGUAGE="VBSCRIPT" CODEPAGE="936" %>
<% Option Explicit %>
<%
function Il(l1)
response.write ltrim(l1)
end function

dim action
action = request("action")
select case action
case"" : index()
case"insert": insert()
case else response.write "error!!"
end select

sub index()
Il"<form name=""form"" method=""post"" action=""?action=insert"">"
Il"<input type=""submit"" value=""GOOOO"" />"
Il"</form>"
end sub

sub insert()
dim db,conn,objconn,sql
db = "kkk.mdb"
set conn = server.createobject("adodb.connection")
objconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mapPath(db)
conn.open objconn
'*************************************************
'Admin
'*************************************************
sql = "AdminID int not null identity primary key,"
sql = sql & "AName nvarchar(50),"
sql = sql & "APass nvarchar(50),"
sql = sql & "LoginIP nvarchar(20),"
sql = sql & "LoginNum int not null default 0,"
sql = sql & "LoginLock int not null default 0,"
sql = sql & "AGroup int not null default 0,"
sql = sql & "LoginTime datetime"
sql = sql & "AddTime datetime"
conn.execute "create table Admin (" & sql & ")"''''#####报这行出错！-_-0
conn.close
set conn = nothing
response.write "<script>alert(""数据表创建成功!"");window.history.go(-1);</script>"
response.end
end sub
%>

[zhybxyz]

顶一下，寻求帮助！~~~

[wwwwb]

nvarchar->sTRING。
int->integer
identity ->Counter
你的类型为SQL　SERVER中的类型。

[zhybxyz]

sql = "AdminID int not null identity primary key,"
sql = sql & "AName nvarchar(50),"
sql = sql & "APass nvarchar(50),"
sql = sql & "LoginIP nvarchar(20),"
sql = sql & "LoginTime datetime"
sql = sql & "AddTime datetime"

如果我改成这样他就可以创建了，那为什么呢？就是去掉了几行代码。想不通

[zhybxyz]

顶，哪位大侠在来帮忙看下~~~~

[wwwwb]

不会吧，你创建的是ACCESS表还是SQL　SERVER表，你的字段定义不正确，在
ACCESS2000+ADO下是有问题的。正确的我已经给出。

[zhybxyz]

老大，确实是access数据库表，我也觉得奇怪呢？真的可以建立，如果加多了就失败，如果去掉几行就可以建立，我都用他建过几个库了，突然出现这样的错误！老大有Q吗？分不够可以再加的。

[wwwwb]

在ACCESS2000+ADO下测试通过
SQL = "AdminID counter not null primary key,"
SQL = SQL & "AName string,"
SQL = SQL & "APass string,"
SQL = SQL & "LoginIP string,"
SQL = SQL & "LoginNum integer not null default 0,"
SQL = SQL & "LoginLock integer not null default 0,"
SQL = SQL & "AGroup integer not null default 0,"
SQL = SQL & "LoginTime datetime,"
SQL = SQL & "AddTime datetime"
MsgBox SQL
cn.Execute "create table Admin (" & SQL & ")" ''''#####报这行出错！-_-0

[changechange]

关于此主题请参考：
新手来看：关于 JET SQL 在 ACCESS 中不同位置的不同用法《查询》
http://access911.net/index.asp?u1=a&u2=72FAB01E17DCEFF3

[zhybxyz]

多谢各位~~~~结帖~~~