唉，板块分得太细了，这个放在数据库区都没人管~~~~

Question

怎么这么乱？看着太累，我给你重写吧。
dim rs1 as new adodb.recordset
dim rs2 as new adodb.recordset
dim i as integer
dim maxid as integermaxid=-1
rs2.open "select max(aid) from table1",conn,3,2
if rs2.recordcount>0 then maxid=rs2.fields(0).value
rs2.closefor i=1 to 10
  rs1.open "select aid from table1 where aname='" & c(i) & "'",conn,3,2
  if rs1.recordcount=0 then
    conn.execute "insert into table1 (aname) values ('" & c(i) & "')"
    maxid=maxid+1
  end if
  conn.execute "insert into table2 (bid,aid) values ('" & i+1 & "','" & maxid & "')"
next

Answer 1

直接用 SQL 语句把数据从一个表 INSERT 到另一个表不就 OK 了。

Answer 2

非常感谢XLYT(雨田) ，等着拿分吧~~~
对了,里奥你说的join能不能给出一个例子~~~~谢谢~~

Answer 3

用合并查询么,你可以用sql新建一个查询来自动产生sql语句

Answer 4

这个问题里怎么用join啊？用join的时候必须两个表里都有记录，否则join谁去啊？而且join好象也不能为两个被join的表增加新记录。