VB如何同时在一句代码里面同时操作2个数据库.

2010-09-26 02:58:31 171 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

工业4.0 底层逻辑工业4.0 的概念已经被滥用了，它与物联网，工业物联网等概念一样，几乎什么都往里面装。演变成了一句口号和愿景。许多人并不清楚工业4.0的底层逻辑到底是什么？如何遵循工业4.0 的思想构建新一代智能制造系统？并没用清晰地展示工业4.0的技术路线图。阅读详情

我的代码如下
Dim db As New ADODB.Connection
Dim db1 As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim rs1 As New ADODB.Recordset
db.ConnectionString = "provider=microsoft.jet.oledb.4.0; " & "data source= " & App.Path & "\send.mdb "
db.Open
db.Execute "UPDATE send SET send1 = '" & Trim(Text1.Text) & "'"
db1.ConnectionString = "provider=microsoft.jet.oledb.4.0; " & "data source= " & App.Path & "\send2.mdb "
db1.Open
db1.Execute "insert into send (send1, send2, send3, send4, send5, send6) SELECT send1, send2, send3, send4, send5, send7 FROM send1"

我想db1.Execute "insert into send (send1, send2, send3, send4, send5, send6) SELECT send1, send2, send3, send4, send5, send7 FROM send1"这里把SEND数据库里的数据写到SEND2数据库里面怎么改?如何操作两个数据里面的表.

...全文