Question

ASP+ACC,跪求通过一个网页插入一个数据库表的代码

在文本框里输入"国家"后提交,插入一个"国家"做为表的名字的完整代码,谢谢~
本人QQ99222334

回答者： 137yy -代码运行出差参数不对,(RS.OPEN SQL,CONN,1,3)

回答者： China_Code - 代码文件和数据库文件在同一目录里,调试没成功
db="database.mdb" '数据库文件位置
<%
set rs=server.createobject("adodb.recordset")
TableName=request.Form("123") '代表你的文本框ID
sql="CREATE TABLE "&TableName&" (ID int(4) NOT NULL,Title char(10))"
conn.Execute(sql)

'...代表的是你需要添加的字段值这里不知道你需要添加的字段
%>
<form method="post" action="">
表的名称: <input type="text" name="b" id="123" maxlength="18" size="18"><br>
<input type="submit" name="Submit" value=" 确 定 ">
</form>

Answer 1

代码如下
<%
dim conn
dim connstr
dim db
db="db.mdb" '数据库文件位置
on error resume next
connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
conn.open connstr
end if

sub CloseConn()
conn.close
set conn=nothing
end sub
%>
<%
set rs=server.createobject("adodb.recordset")
TableName=request.Form("xxx") '代表你的文本框ID
sql="CREATE TABLE "&TableName&" (ID int(4) NOT NULL,Title char(10))，...."
conn.Execute(sql)

'...代表的是你需要添加的字段值这里不知道你需要添加的字段
%>

Answer 2

跟帖 等答案！

偶也想知道！~

Answer 3

<%
a=request("b")
If a="" then
%>
<form method=post action="?">
表的名称: <input type="text" name="b" maxlength="18" size="18"><br>
<input type="submit" name="Submit" value=" 确 定 "></form>
<%
else
set rs=server.createobject("adodb.recordset")
sql="create table ["&a&"]"
rs.open sql,conn,1,3
response.write " "&a&" 表已经创建"
end if
%>