ASP数据库编程SQL常用技巧

三.数据库合并问题

　　access里的两个表,想让两个表的内容合并

　　表[a]结构如下:

[id]	编号	自动编号
[name]	名称	文本
[price]	价格	数字
[guige]	规格	文本
[changjia]	生产厂家	文本
[baozhuang]	包装	文本
[danwei]	单位	文本

　　共有900条记录,除了id和name字段,其他均可以为空

　　表[b]结构如下:

[id]	编号	自动编号
[name]	名称	文本
[price]	价格	数字
[changjia]	生产厂家	文本
[danwei]	单位	文本
[xingzhi]	性质	文本

　　共有800条记录,除了id和name字段,比表[a]少几个字段,但还多一个[xingzhi]的字符安其它均可以为空

　　现在想生成一个新表[c],结构如下,而且内容是两个表的内容之和。

[id]	编号	自动编号
[name]	名称	文本
[price]	价格	数字
[guige]	规格	文本
[changjia]	生产厂家	文本
[baozhuang]	包装	文本
[danwei]	单位	文本
[xingzhi]	性质	文本

　　用sql语句也可以,手工操作也好,xml也好,别管怎么着吧,怎么实现呀,哥们要郁闷坏了,真要让我们再输入800条记录,我就挂了。

　　回答:

　　1.这样

insert into c(id,name,.....) select id,name,..... from a insert into c(id,name,.....) select max(id)+1,name,..... from b

　　2.更正：

　　如果直接在查询分析器里执行：

insert into c(name,.....) select name,..... from a insert into c(name,.....) select name,..... from b

　　3.用union方法

insert into [c] ([id] ,编号,自动编号) select [id],编号,自动编号 from [a] union select [id],编号,自动编号 from [b]

　　4.asp的解决办法

＜% '循环检测a表 Set rs = Server.CreateObect("ADODB.RECORDSET") rs.open "select * from a order by id",conn,1,1 Do while not rs.eof Call actAdd(rs("name")) '调用像b表添加内容的函数！ rs.MoveNext Loop rs.Close Set rs = Nothing Sub actAdd(txt) Dim ts, sql sql = "insert into b(name) values('"& txt &"')" Set ts = Conn.Execute(sql) ts.Close Set ts = Nothing end Sub %＞

　　5.asp的解决办法

＜% dim arr_temp1,arr_temp2,arr_data set rs=conn.execute("select id,name,price,guige,changjia,baozhuang,danwei from a") arr_temp1=rs.getrows rs.close set rs=nothing set rs=conn.execute("select id,name,price,guige,changjia,danwei,xingzhi from b") arr_temp2=rs.getrows rs.close set rs=nothing rem 开始处理 redim arr_data(ubound(arr_temp1,2)+ubound(arr_temp2,2),7) rem 把两个数组的内容复制进来 这一部分自己写了做两个循环 然后再存进数据库 %＞