有2个数据库 a.mdb 它有N个表。其中一个表名为a。a的里面有3个字段aa和bb和cc b.mdb 它有N个表。其中有一个表名为b里面有3或者更多字段。其中有3个字段是dd和ee和ff 现在要做的是将a.mdb中的a表.中的aa和bb和cc字段中的内容全都导入到b.mdb的b表里的dd和ee和ff.要保证b.mdb的数据不丢失去。只是在b.mdb已经存在的数据的后面加入a.mdb的记录。 表达能力不是很好。希望高手指点一二。谢谢。
采用循环 do while not rs_a.eof 'rs_a是指向a表的游标 dim aa,bb,cc aa=rs_a("aa") bb=rs_a("bb") cc=rs_a("cc") exec="insert into b(dd,ee,ff)values('"+aa+"','"+bb+"','"+cc+"')" conn.execute exec
听说ASP里得用&来连接字符。那么楼上的应该改为。 do while not rs_a.eof 'rs_a是指向a表的游标 dim aa,bb,cc aa=rs_a("aa") bb=rs_a("bb") cc=rs_a("cc") exec="insert into b(dd,ee,ff)values('"&aa&"','"&bb&"','"&cc+&')" conn.execute exec 没错吧。呵呵。
strConn=Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & Server.MapPath(数据表.mdb) set objConn=Server.CreateObject("Adodb.Connection") set objRs=objConn.open "select * from A表",strConn,1,1 set objRs2=objConn.open B表,strConn.1.3 Do While Not objRs.Eof then objRs2("字段A")=objRs("字段B") objRs.movenext Loop objConn.close set objConn=nothing 这样应该可以吧