Sub CopyTable(PathName,TableName,TableName1)
response.Write("<br>数据库路径:"&PathName)
response.Write("<br>源数据表名称:"&TableName)
response.Write("<br>目标数据表名称:"&TableName1)
strConn="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath(PathName)
set Conn=server.createobject("Adodb.connection")
On Error Resume Next
Conn.open strConn
strSql1 = "select * from "&TableName&" where 1=0"
rsSrc.open strSql1,conn,1,3
strSql = "create table "&TableName1&"("
response.Write(rsSrc.Fields(0).Type)
for i = 0 to rsSrc.Fields.Count - 1
select case rsSrc.Fields(i).Type
case 2
strSql = strSql&rsSrc.Fields(i).Name&" short,"
case 3
if rsSrc.Fields(i).Properties("ISAUTOINCREMENT") = True then
strSql = strSql&rsSrc.Fields(i).Name&" Autoincrement,"
else
strSql = strSql&rsSrc.Fields(i).Name&" integer,"
end if
case 4'单精度数字
strSql = strSql&rsSrc.Fields(i).Name&" real,"
case 5'双精度数字
strSql = strSql&rsSrc.Fields(i).Name&" double,"
case 6'货币
strSql = strSql&rsSrc.Fields(i).Name&" Currency,"
case 7'日期时间
strSql = strSql&rsSrc.Fields(i).Name&" datetime,"
case 11'是/否
strSql = strSql&rsSrc.Fields(i).Name&" YesNo,"
case 17'字节型数字
strSql = strSql&rsSrc.Fields(i).Name&" byte,"
case 72'同步复制ID数字
strSql = strSql&rsSrc.Fields(i).Name&" guid,"
case 131'带小数点数字
strSql = strSql&rsSrc.Fields(i).Name&" Numeric,"
case 202'文本
strSql = strSql&rsSrc.Fields(i).Name&" varchar,"
case 203'备注/超级链接
strSql = strSql&rsSrc.Fields(i).Name&" memo,"
case 205'OLE对象
strSql = strSql&rsSrc.Fields(i).Name&" OLEObject,"
case 129
strSql = strSql&rsSrc.Fields(i).Name&" char("&CStr(rsSrc.Fields(i).DefinedSize)&"),"
case else
response.write("<script>alert('数据表"&tablename&"表中字段 "&rsSrc.Fields(i).Name&" 类别"&rsSrc.Fields(i).Type&"错误 ,系统即将返回');location.href='CopyTable.asp';</script>")
Response.end
end select
next
strSql = Left(strSql,Len(strSql)-1)&")"
rsSrc.Close
response.Write(strSql)
response.End()
conn.execute(strSql)
conn.close
set Conn=nothing
response.write("<script>alert('数据从表"&tablename&"到表"&TableName1&" 复制成功 ,系统即将返回');location.href='CopyTable.asp';</script>")
Response.end
End Sub
分享到:
相关推荐
在收集由多种类型的录音组成的训练数据集并进行实验后,根据所获得的结果,我们继续在相同条件下通过同一医生的检查过程收集来自PWP的独立测试集。在收集这个数据集的过程中,28名PD患者被要求分别只说出持续元音'a'...
将局部数据库自下而上构成分布式数据库系统,各系部存放本 机构的数据,全局数据库则存放所有业务数据,并对数据进行完整性和一致性的检查, 这种做法虽然有一定的数据冗余,但在不同场地存储同一数据的多个副本,能...
此数据集是3755个常用的汉字。第个汉字包含20种不同的样式。 20种同一汉字放在一个文件夹内,文件夹名称以数字命名。 测试集每个汉字包含6种字体。... 把\u4e4d复制到转换框中->单击Unicode转中文汉字
5.2.6 复制数据 106 5.3 使用事务加快处理速度 108 5.4 使用定制的属性 109 5.5 小 结 111 第6章 ActiveX数据库对象 112 6.1 查看对象模型 112 6.1.1 ADODB 2.1对象模型 114 6.1.2 ADOX 2.1 for DDL ...
5.2.6 复制数据 106 5.3 使用事务加快处理速度 108 5.4 使用定制的属性 109 5.5 小 结 111 第6章 ActiveX数据库对象 112 6.1 查看对象模型 112 6.1.1 ADODB 2.1对象模型 114 6.1.2 ADOX 2.1 for DDL and ...
Copy on Write的缩写,在OceanBase中特指BTree在更新时复制数据备份写入,避免系统锁的技术手段 OceanBase的特点 OceanBase功能 OceanBase设计和实现的时候暂时摒弃了不紧急的DBMS的功能,例如临时表,...
LocalDB存放着本地检索数据库文件夹,有部分爬虫爬取的测试数据在里面。 FulltextRetrievalSystem/packages/Xapian.1.2.23/的_XapianSharp.dll和zlib1.dll需手动复制到执行文件夹下,包括Orleans的服务器文件夹下,...
模式浏览功能可以让我们快速访问数据字典,浏览数据库中的表、索引、存储过程。Toad 提供对数据库的快速访问,使用极为方便,用户界面简洁,结构安排合理。当我们点击一个单独的数据库对象,Toad立即显示此对象的...
对存储在数据库中的数据来说,随机数特性能给出上面的效果,但它们可能太慢了些。你不能要求ASP“找个随机数”然后打印出来。实际上常见的解决方案是建立如下所示的循环: Randomize RNumber = Int(Rnd*499) +1 ...
//从源端复制数据到目标端,并检测和解决自上一次复制以来出现的任何更新冲突 //由位于源和目标之间、方向相反的两个复制链接组成的复制构造块 64、 下面哪些应用可以被称为Smart :A:能够利用本地资源 A:智能安装...
并确保在同一事务处理种对相同数据的两次查询看到的是相同的值。 值范围: TRUE | FALSE 默认值: FALSE row_locking: 说明: 指定在表已更新或正在更新时是否获取行锁。如果设置为 ALWAYS, 只有在表被更新后才获取...
将数据库表中的数据生成Insert脚本的存储过程!!! 2分法-通用存储过程分页(top max模式)版本(性能相对之前的not in版本极大提高) 分页存储过程:排序反转分页法 优化后的通用分页存储过程 sql语句 一些Select检索高级...
消息数据与您的数据库一样可靠消息是在更新您的业务数据的同一笔交易中创建的,因此不会与它们不同步很好地处理大量负载您可以创建自己的消息格式消息使用者或生产者不受限制无需其他技术堆栈,一些表,函数和触发器...
我用的是2010 sp3版本的火车采集器 大家可以网上去下载 我们把51wyc.exe复制到这个data下的项目文件夹里 (跟SpiderResult.mdb 放在同一文件夹里)启动工具 就可以批量伪原创文章标题和内容了嘻嘻 欢迎测试噢 有问题 ...
11.6.2 在异步页面中查询数据 11.6.3 错误处理 11.6.4 在异步任务中使用缓存 11.6.5 多异步任务和超时 11.7 总结 第12章 文件和流 12.1 使用文件系统 12.1.1 Directory类和File类 12.1.2 ...
4-01.aspx aspx页面中添加一个Lable标签。 4-02.aspx 读出Application的属性值。 4-03.aspx 读出SessionID的值。 4-04.aspx 创建Session对象。 4-05.aspx 读取传递的Session值并显示。 4-...
在未上传前进行了多项多次测试,抱着宁缺勿滥的心态!也只是为了对自己所发帖子尽最大的可能发现未知问题,以避免浪费大家的时间!设置售价只是彼此间的一分肯定一份尊重而已!同时为了方便大家对别人回帖意见的参照...
清除配置日志记录数据库中的日志条目 153 生成“配置日志记录”报告 153 生成配置日志记录报告 153 加密敏感配置日志记录数据 154 使用 IMA 加密实用工具 155 本地存储 IMA 加密实用工具 155 将密钥复制到本地计算机...
2.31 K用户环境K310.2+SP1+704,打开工资发放表或汇总表提示:名称或代码在系统中已补使用。 22 2.32 K3登陆时,加密组件之间不匹配,登录系统时报错。 23 2.33 K3用户客户端登录时,系统提示无法建立数据连接,如图...