Sub Mwrite() On Error GoTo thiserr Dim rs As New ADODB.Recordset rs.Open "dlmd", CurrentProject.Connection, adOpenDynamic, adLockOptimistic, acTable rs.Save "a:\dlmd.adtg", adPersistADTG rs.Close Set rs = Nothing thisexit: Exit Sub thiserr: MsgBox Err.Description Resume thisexit End Sub Sub Mread() On Error GoTo Merr Dim i As Integer Dim rsDe As New ADODB.Recordset Dim rsSo As New ADODB.Recordset rsSo.Open "a:\dlmd.adtg", "provider=mspersist" rsDe.Open "dlmd", CurrentProject.Connection, adOpenKeyset, adLockOptimistic, acTable Do Until rsSo.EOF rsDe.AddNew For i = 0 To rsSo.Fields.Count - 1 rsDe.Fields(i) = rsSo.Fields(rsDe.Fields(i).Name) Next i rsDe.Update rsSo.MoveNext Loop rsSo.Close rsDe.Close Set rsSo = Nothing Set rsDe = Nothing Mexit: Exit Sub Merr: MsgBox Err.Description Resume Mexit End Sub
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
