大家好,这段代码为什么执行不成功!
Option Explicit
Private conn1 As ADODB.Connection
Private rs1 As ADODB.Recordset
Private conn2 As ADODB.Connection
Private rs2 As ADODB.Recordset
Private Sub Command3_Click()
Dim dbfilename As String
Dim strsql As String
Dim ConnectString As String
Dim i As Integer
Set conn1 = New ADODB.Connection
ConnectString = "Provider=sqloledb;Data Source=yl001;Initial Catalog=" & "marry" & ";User Id=sa;Password=''"
conn1.Open ConnectString
Set conn2 = New ADODB.Connection
ConnectString = "Provider=sqloledb;Data Source=yl003;Initial Catalog=" & "marry" & ";User Id=sa;Password=''"
conn2.Open ConnectString
Set rs1 = New ADODB.Recordset
Set rs2 = New ADODB.Recordset
strsql = "select * from mz"
rs1.Open strsql, conn1, 1, 3
rs2.Open strsql, conn2, 1, 3
For i = 0 To rs1.RecordCount - 1
rs2.AddNew
rs2.Fields("mc") = rs1.Fields("mc")
rs2.Fields("memo") = rs1.Fields("memo")
rs2.Update
rs1.MoveNext
Next
End Sub
拜托了,哪里出问题了???