SQL数据迁移脚本示例

Dim conn As New ADODB.Connection
Dim conn1 As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim rs1 As New ADODB.Recordset
Dim connstring As String
Dim connstring1 As String



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)
connstring1 = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=wc_tjxt;Data Source=20100413-1548"
conn1.Open (connstring1)
conn.Execute "insert into wc_tjxt.dbo.tj_photo select * from tj_photo where tj_photo.tjbh in (select tj_tjdjb.tjbh from tj_tjdjb where DJRQ= '" & Trim(Text1.Text) & "')"
conn.Execute "insert into wc_tjxt.dbo.tj_tjjlmxb select * from tj_tjjlmxb where  tj_tjjlmxb.tjbh in (select tj_tjdjb.tjbh from tj_tjdjb  where DJRQ= '" & Trim(Text1.Text) & "')"
conn.Execute "insert into wc_tjxt.dbo.tj_tjxj select * from tj_tjxj where tj_tjxj.tjbh in (select tj_tjdjb.tjbh from tj_tjdjb where DJRQ= '" & Trim(Text1.Text) & "')"
conn.Execute "insert into wc_tjxt.dbo.tjjlb select TJBH,XMLX,XMBH,XMMC,DJ,KSBM from tj_tjjlb where tj_tjjlb .tjbh in (select tj_tjdjb.tjbh from tj_tjdjb '" & Trim(Text1.Text) & "')"


conn.Close
conn1.Close

End Sub

Private Sub Command2_Click()


Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=bs_tjxt_wj;Data Source=20100413-1548"
Adodc1.CommandType = adCmdText