小弟我自己做了两个SQL数据库，一个另数据库1，另一个数据库2，数据库1里有几张表，想把其中一张表符合要求的纪录插入数据库2的某张表里，这表的字段是升序排列的！谢

我自己做了两个SQL数据库，一个另数据库1，另一个数据库2，数据库1里有几张表，想把其中一张表符合要求的纪录插入数据库2的某张表里，这表的字段是升序排列的！！谢
你好，我想在VB里实现，我自己做了两个SQL数据库，一个另数据库1，另一个数据库2，数据库1里有几张表，想把其中一张表符合要求的纪录插入数据库2的某张表里，这表的字段是升序排列的！！谢谢各位高手指点

------解决方案--------------------
Private Sub Command1_Click()
connstring = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=bs_tjxt_wj;Data Source=20100413-1548"/*连接数据库*/
conn.Open (connstring)
Dim sql As String
Dim sql1 As String
sql = "select TJBH,XMLX,XMBH,XMMC,DJ,KSBM from tj_tjjlb where tj_tjjlb .tjbh in (select tj_tjdjb.tjbh from tj_tjdjb where tjrq='2010-03-31' )"/*要插入的表*/
connstring1 = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=wc_tjxt;Data Source=20100413-1548"
conn1.Open (connstring1)
这里我只会先打开两个数据库，然后我就写不下去到，到底怎么样把SQL的表插入数据库
dim rs1
set rs1=conn.open sql
do while not rs1.eof
conn1.execute "insert into tab (f1,f2) values('" & rs1("f1") & "','" & rs1("f2") & "')"
rs1.movenext
loop
conn.Close
conn1.Close

End Sub
------解决方案--------------------

VB code

Private Sub Command1_Click()
'1、引用ADO 2.5
'2、这里你可把pubs理解成你的数据库2，把master理解成你的数据库1
'3、把sysdatabases理解为数据库1中的一张表，新表1理解成数据库2中的一张表
   Dim cnn As New ADODB.Connection
   cnn.ConnectionString = "Provider=SQLOLEDB.1;Password=dg;Persist Security Info=True;User ID=sa;Initial Catalog=pubs;Data Source=."
   cnn.CursorLocation = adUseClient
   cnn.Open
   
   '数据库2中[新表1]不存在时用以下方式复制符合条件的记录到[新表1]
   cnn.Execute "if not exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[新表1]') " & _
                              "and OBJECTPROPERTY(id, N'IsUserTable') = 1) select * into [新表1] " & _
                              "from master.dbo.sysdatabases where left(name,2)='ma'"
   '数据库2中[新表1]已存在时用以下方式插入符合条件的记录到[新表1]
   cnn.Execute "Insert into [新表1]  select * from master.dbo.sysdatabases WHERE left(name,2)='ma'"
   cnn.Close
   MsgBox "OK"
   
End Sub