|
Тогда почему при использовании первого метода скорость на много больше, чем во втором?
Программный код моей базы:
Private Sub btnDBOpen_Click()
On Error GoTo Err_btnDBOpen_Click
Dim dDbs As DAO.Database, tdf As TableDef, rst As DAO.Recordset
Dim stDocName As String, arTables As Variant, arLTables As Variant
Dim stLinkCriteria As String, Num As Integer
Set dDbs = CurrentDb
arTables = Array("AditionField", "BlanksMvmt", "BlanksTotal", "BlankTypes", "Coupons", "FinReports", "FinDocBlanks", "FinDocHeads", "FinDocRoutes", "FinDocTaxes", "Agents", "Agency", "Carriers", "Customers", "DocTypes", "Taxes", "PayForms", "Sys_Monthes", "Filials")
arLTables = Array("AditionField", "BlanksMvmt", "BlanksTotal", "BlankTypes", "Coupons", "AgencyReports", "FinDocBlanks", "FinDocHeads", "FinDocRoutes", "FinDocTaxes", "Agents", "Agency", "Carriers", "Customers", "DocTypes", "Taxes", "PayForms", "Sys_Monthes", "Filials")
For Num = LBound(arLTables) To UBound(arLTables)
For Each tdf In dDbs.TableDefs
If tdf.Name = arLTables(Num) Then
dDbs.TableDefs.Delete tdf.Name
End If
Next tdf
DoCmd.TransferDatabase acLink, "Microsoft Access", Me.listDBSelect & "\Dbdata.mdb", acTable, arTables(Num), arLTables(Num), False, True
Next Num
Set rst = dDbs.OpenRecordset("DBPaths")
With rst
.Index = "PrimaryKey"
.Seek "=", Me.listDBSelect.Column(0)
If .NoMatch Then
MsgBox "Îøèáêà!"
Else
.Edit
!LastDT = Now
.Update
End If
End With
Set rst = Nothing
Set dDbs = Nothing
DoCmd.Close acForm, Me.Name
stDocName = "frmMenu"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_btnDBOpen_Click:
Exit Sub
Err_btnDBOpen_Click:
MsgBox Err.Description
Resume Exit_btnDBOpen_Click
End Sub
|
