在ACCESS查询的问题

Question

根据一定的条件从ACCESS一个表中查询数据，写入另一个表中（表已建好）该如何写代码？
举例说明。

Answer 1

dim conn as adodb.connection
dim rs as adodb.recordset
dim idnum as integersql="select * from table1 where 条件"
rs.open sql,conn,3,2
if rs.eof =false then
   sql = "insert into table2 (字段1，2，3...)value(rs("字段1"),rs("字段2")，...)"
   conn.execute sql,idnum  'idnum用来返回新增记录数      
end if

Answer 2

1、读出符合条件的数据，得到结果为记录集rst；
2、把rst的活动连接断开  set rst.ActiveConnection=nothing；
3、修改rst内容；
4、更新到数据库rst.UpdateBatch。

Answer 3

各位老大能不能把代码写详细一点。
小弟刚入门，一定给分。
 xing0091()：
 sql = "insert into table2 (字段1，2，3...)value(rs("字段1"),rs("字段2")，...)"
这句提示
缺少：语句结束。

Answer 4

不好意思
应该是 sql= "insert into table2 (字段1，2，3...)values('"& rs("字段1") &"','"& rs("字段2") &"'，...)" 
我少写了个 s
values 后面的数值 如果是字符串的格式为 '"& 变量 &"' 数值型为 "& 变量 &"

Answer 5

sql="insert into table2 (字段1，2，3...) values (rs("字段1"),rs("字段2")，...)"

Answer 6

dim sql as string
sql="select * from 表 where 条件"
dim con as adodb.connection
dim rs as adodb.recordset
dim cmd as adodb.commmand
set con=new adodb.connection
set rs=new adodb.recordset
set cmd=new adodb.command
com.connectionstring=""
com.open
rs.open sql,com,3,3
if rs.eof=false then
   set com.actionconnection=com
   com.excute "insert into table2 (字段1，2，3...) values (rs("字段1"),rs("字段2")，...);"
end if
close com 

Answer 7

rs.open "select * from table1 where 条件",conn, adOpenStatic, adLockOptimistic
   
 conn.Execute "select * into table  FROM rs "

Answer 8

group by 语句写在哪里呀？

Answer 9

where 条件 group by 字段