ASP创建ACCESS数据表代码函数
2007-03-06 14:43
513 查看
Function CreateTableName(TableName)
TableSql="CREATE TABLE "&TableName&" ("
TableSql=TableSql+"UserID autoincrement PRIMARY KEY,"
TableSql=TableSql+"UserName VARCHAR(20),"
TableSql=TableSql+"Password VARCHAR(16),"
TableSql=TableSql+"GradeLevel Long,"
TableSql=TableSql+"GradeName VARCHAR(20),"
TableSql=TableSql+"PostID Long,"
TableSql=TableSql+"PostName VARCHAR(20),"
TableSql=TableSql+"UserRealName VARCHAR(10),"
TableSql=TableSql+"UserSex VARCHAR(10),"
TableSql=TableSql+"UserTel VARCHAR(20),"
TableSql=TableSql+"UserMobile VARCHAR(20),"
TableSql=TableSql+"WorkQQ VARCHAR(20),"
TableSql=TableSql+"WorkEmail VARCHAR(60),"
TableSql=TableSql+"WorkMSN VARCHAR(60),"
TableSql=TableSql+"WorkDuty VARCHAR(20),"
TableSql=TableSql+"CheckStatus BIT NOT NULL,"
TableSql=TableSql+"CheckUser VARCHAR(20),"
TableSql=TableSql+"CheckTime DateTime,"
TableSql=TableSql+"CheckIP VARCHAR(16),"
TableSql=TableSql+"CheckFrom VARCHAR(100),"
TableSql=TableSql+"AddUser VARCHAR(20),"
TableSql=TableSql+"AddTime DateTime,"
TableSql=TableSql+"AddIP VARCHAR(16),"
TableSql=TableSql+"AddFrom VARCHAR(100),"
TableSql=TableSql+"UpdateUser VARCHAR(20),"
TableSql=TableSql+"UpdateTime DateTime,"
TableSql=TableSql+"UpdateIP VARCHAR(16),"
TableSql=TableSql+"UpdateFrom VARCHAR(100),"
TableSql=TableSql+"TotalLoginTimes Long,"
TableSql=TableSql+"LoginTime DateTime,"
TableSql=TableSql+"LoginIP VARCHAR(16),"
TableSql=TableSql+"LoginFrom VARCHAR(100),"
TableSql=TableSql+"LastLoginTime DateTime,"
TableSql=TableSql+"LastLoginIP VARCHAR(16),"
TableSql=TableSql+"LastLoginFrom VARCHAR(100)"
TableSql=TableSql+")"
response.Write("<br>正在执行数据库操作语句"&TableSql)
conn.execute(TableSql)
if err then
response.Write("<br>发生系统错误")
response.Write(err.description)
else
response.Write("<br>语句执行成功")
end if
end Function
TableSql="CREATE TABLE "&TableName&" ("
TableSql=TableSql+"UserID autoincrement PRIMARY KEY,"
TableSql=TableSql+"UserName VARCHAR(20),"
TableSql=TableSql+"Password VARCHAR(16),"
TableSql=TableSql+"GradeLevel Long,"
TableSql=TableSql+"GradeName VARCHAR(20),"
TableSql=TableSql+"PostID Long,"
TableSql=TableSql+"PostName VARCHAR(20),"
TableSql=TableSql+"UserRealName VARCHAR(10),"
TableSql=TableSql+"UserSex VARCHAR(10),"
TableSql=TableSql+"UserTel VARCHAR(20),"
TableSql=TableSql+"UserMobile VARCHAR(20),"
TableSql=TableSql+"WorkQQ VARCHAR(20),"
TableSql=TableSql+"WorkEmail VARCHAR(60),"
TableSql=TableSql+"WorkMSN VARCHAR(60),"
TableSql=TableSql+"WorkDuty VARCHAR(20),"
TableSql=TableSql+"CheckStatus BIT NOT NULL,"
TableSql=TableSql+"CheckUser VARCHAR(20),"
TableSql=TableSql+"CheckTime DateTime,"
TableSql=TableSql+"CheckIP VARCHAR(16),"
TableSql=TableSql+"CheckFrom VARCHAR(100),"
TableSql=TableSql+"AddUser VARCHAR(20),"
TableSql=TableSql+"AddTime DateTime,"
TableSql=TableSql+"AddIP VARCHAR(16),"
TableSql=TableSql+"AddFrom VARCHAR(100),"
TableSql=TableSql+"UpdateUser VARCHAR(20),"
TableSql=TableSql+"UpdateTime DateTime,"
TableSql=TableSql+"UpdateIP VARCHAR(16),"
TableSql=TableSql+"UpdateFrom VARCHAR(100),"
TableSql=TableSql+"TotalLoginTimes Long,"
TableSql=TableSql+"LoginTime DateTime,"
TableSql=TableSql+"LoginIP VARCHAR(16),"
TableSql=TableSql+"LoginFrom VARCHAR(100),"
TableSql=TableSql+"LastLoginTime DateTime,"
TableSql=TableSql+"LastLoginIP VARCHAR(16),"
TableSql=TableSql+"LastLoginFrom VARCHAR(100)"
TableSql=TableSql+")"
response.Write("<br>正在执行数据库操作语句"&TableSql)
conn.execute(TableSql)
if err then
response.Write("<br>发生系统错误")
response.Write(err.description)
else
response.Write("<br>语句执行成功")
end if
end Function
相关文章推荐
- ASP创建ACCESS数据表代码函数
- asp Access数据备份,还原,压缩类代码
- asp Access数据备份,还原,压缩类代码
- asp连接SQL和Access数据代码(asp里的随机函数)
- asp连接SQL和Access数据代码_asp里的随机函数
- 代码收藏系列--mysql--创建数据库、数据表、函数、存储过程命令
- 在asp使用ado创建access数据表
- 在asp使用ado创建access数据表
- Asp Excel数据导入到Access,Sql Server中示例代码
- asp连接SQL和Access数据代码(asp里的随机函数)
- Asp.net 2.0 GridView数据导出Excel文件(示例代码下载)
- SYD8801 UART使用说明【uart轮发数据代码实现】【 uart中断发数据代码实现】【RFSleep函数对串口的影响】【中断中调用串口打印函数有可能会造成死机】
- Ajax 实现在WebForm中拖动控件并即时在服务端保存状态数据 (Asp.net 2.0)(示例代码下载)
- access中,有无将文本类型的数据格式转化成数值型的函数?(解决 order by 的非数字排序问题)
- ajax 异步获取数据实现代码 (js创建ajax对象)
- AspNetPager+access 实现 分页 代码
- asp中向文本框输出数据原样式的函数
- asp.net 一些常用的处理函数代码
- 8.IDA-数据与代码、函数互相转换
- Excel 数据导入到 Access、Sql Server 中示例代码