VB6插入删除数据

Question

假设有两张表，简称表1，表2。表2里面有如下图所示的数据，我现在要把表2里面同机器名的3条数据只需要一条，然后插入表1里面，要求是选择发行日期最新的一条数据插入到表2，然后把表2里面这3条数据都删除，怎么用代码实现？机器名     规格      名称      数据              
ABC         5A       日期    2005.1.1            
ABC         5A       日期    2009.1.1            
ABC         5A       日期    2011.1.1            

Answer 1

题目描述不清，不好猜测~~~
select 机器名，规格，名称，max(日期) from 表2 group by 机器名，规格，名称

Answer 2

strSql="select 机器名，规格，名称，max(日期) from 表2 group by 机器名，规格，名称"
rs.open strSql,conn,3,3do while not rs.eof  conn.execute "insert into 表1（机器名，规格，名称，日期）Values('"& rs.fields("机器名") &"','"& rs.fields("规格") &"','"& rs.fields("名称") &"','"& rs.fields("日期") &"')" 
 rs.movenext
loopconn.execute "delete from 表2"