If conn.State = adStateOpen Then conn.Close
If conn1.State = adStateOpen Then conn1.Closeconnstring = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=wj_wjzx;Data Source=办公室1" 这个不是本地服器中的 wj_wjzx数据库
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)
str0 = "select *from wc_tjxt.dbo.tj_tjdjb where DJRQ= '" & Trim(Text1.Text) & "'and DWBH='" & Trim(Text2.Text) & "' "
str1 = "select *from wj_wjzx.dbo.tj_tjdab"
rs.Open str0, conn1, 1, 3
rs1.Open str1, conn, 1, 3
conn.Execute ("insert into wj_wjzx.dbo.tj_tjdjb select * from wc_tjxt.dbo.tj_tjdjb where tj_tjdjb.dabh="010") 把wc_tjxt数据库中的表插入到 wj_wjzx,怎么不行,急!!!!!求各位高手给一个答案,非常感谢!!!
If conn1.State = adStateOpen Then conn1.Closeconnstring = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=wj_wjzx;Data Source=办公室1" 这个不是本地服器中的 wj_wjzx数据库
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)
str0 = "select *from wc_tjxt.dbo.tj_tjdjb where DJRQ= '" & Trim(Text1.Text) & "'and DWBH='" & Trim(Text2.Text) & "' "
str1 = "select *from wj_wjzx.dbo.tj_tjdab"
rs.Open str0, conn1, 1, 3
rs1.Open str1, conn, 1, 3
conn.Execute ("insert into wj_wjzx.dbo.tj_tjdjb select * from wc_tjxt.dbo.tj_tjdjb where tj_tjdjb.dabh="010") 把wc_tjxt数据库中的表插入到 wj_wjzx,怎么不行,急!!!!!求各位高手给一个答案,非常感谢!!!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货