用sql语句动态的创建access表[转]
<%
nowtime = now()
tablename = cstr(year(nowtime))+"_"+cstr(second(nowtime))
response.write tablename
db_path = "test.mdb"
Set conn= Server.CreateObject("ADODB.Connection")
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(db_path)
conn.Open connstr
Set rs = Server.CreateObject ("ADODB.Recordset")
sql = "create table "& tablename &" (id integer primary key,name text,Birthday datetime)"
rs.Open sql,conn,2,3
%>
nowtime = now()
tablename = cstr(year(nowtime))+"_"+cstr(second(nowtime))
response.write tablename
db_path = "test.mdb"
Set conn= Server.CreateObject("ADODB.Connection")
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(db_path)
conn.Open connstr
Set rs = Server.CreateObject ("ADODB.Recordset")
sql = "create table "& tablename &" (id integer primary key,name text,Birthday datetime)"
rs.Open sql,conn,2,3
%>
本作品采用 知识共享署名-非商业性使用 2.5 中国大陆许可协议进行许可。 |