Public ConnRD As New ADODB.Connection
Public ConnWR As New ADODB.Connection
Public Rs As New ADODB.Recordset
Public Rs1 As New ADODB.Recordset
'Public Mrc As New ADODB.Recordset
Public l As Long
Public i As Long, j As Long, k As Long
Dim tbName(7) As String
Public Sub WriteTB(sSqlRd As String, sSqlWr As String)
Me.Timer1.Enabled = True
If Rs.State = adStateOpen Then
Rs.Close
Set ConnRD = Nothing
End If
If Rs1.State = adStateOpen Then
Rs1.Close
Set ConnWR = Nothing
End If
Rs.CursorLocation = adUseClient
Rs.Open sSqlRd, ConnRD, adOpenDynamic, adLockOptimistic
Set Me.DataGrid1.DataSource = Rs
Rs.MoveFirst
Rs1.Open sSqlWr, ConnWR, adOpenDynamic, adLockOptimistic
' Mrc.MoveFirst
' Me.Caption = Rs.RecordCount
MsgBox "OK!:"
On Error Resume Next
Do While Not Rs.EOF
With Rs1
.AddNew
For i = 0 To Rs.Fields.Count - 1
.Fields(i).Value = Rs.Fields(i).Value
DoEvents
Next i
.Update
End With
Rs.MoveNext
l = l + 1
Me.Caption = tbName(j - 1) & "================>" & l
Loop
'Me.Timer1.Enabled = False
End Sub
’這裡是入口
Private Sub lblWr_Click()
Dim sWr As String, sRd As String
Dim strRd(1 To 8) As String
Dim strWr(1 To 8) As String
strWr(1) = "SELECT * From tblAWMMain"
strWr(2) = "SELECT * From tblEveryDayProcessControlSheet"
strWr(3) = "SELECT * From tblEveryDayProcessControlSheetTmp"
strWr(4) = "SELECT * From tblEveryDayprocessControlTotalSheet"
strWr(5) = "SELECT * From tblMaterialDetail"
strWr(6) = "SELECT * From tblMaterialOverDetail"
strWr(7) = "SELECT * From tblProcessInformation_PQ"
strWr(8) = "SELECT * From tblProcessInformation_PT"
strRd(1) = "SELECT * From tblAWMMain"
strRd(2) = "SELECT * From tblEveryDayProcessControlSheet"
strRd(3) = "SELECT * From tblEveryDayProcessControlSheetTmp"
strRd(4) = "SELECT * From tblEveryDayprocessControlTotalSheet"
strRd(5) = "SELECT * From tblMaterialDetail"
strRd(6) = "SELECT * From tblMaterialOverDetail"
strRd(7) = "SELECT * From tblProcessInformation_PQ"
strRd(8) = "SELECT * From tblProcessInformation_PT"
For j = 2 To 2 '8
sWr = strWr(j)
sRd = strRd(j)
Call WriteTB(sRd, sWr)
Next j
MsgBox "OK!"
End Sub
rivate Sub Form_Load()
Dim ConnRead As String
Dim ConnWrite As String