Access 2000 Księga eksperta (4)

[ Pobierz całość w formacie PDF ]
.Tabela 7.3.Kombinacje obiektów ADO dla AccessaTyp kursora Opcje i typy blokowania Odpowiednik w DAOadOpenForwardOnly adLockReadOnly dbOpenSnapShotdbForwardOnlyAdOpenKeySet adLockReadOnlyBrak odpowiednikaAdOpenKeySet adLockPessimistic dnOpenDynasetTabela 7.3.Kombinacje obiektów ADO dla Accessa (ciąg dalszy)Typ kursora Opcje i typy blokowania Odpowiednik w DAOAdOpenKeySet adLockOptimistic dnOpenDynasetAdOpenKeySet adLockBatchOptimistic dnOpenDynasetAdOpenStatic adLockReadOnly dnOpenDynasetadOpenDynamic adLockOptimistic dbOpenTableadCmdTableDirectTrwałe zestawy rekordówDla tych z was, którzy muszą również zadbać o obsługę użytkowników nie podłączonych do sieci, pojęcie trwałości rekordówto fantastyczny podarunek od firmy z Redmond.Teraz masz bowiem możliwość zapisania zestawu rekordów na dysku ijego obróbkę w aplikacji VB lub VBA.Pózniej możesz ten zestaw ponownie włączyć do bazy.Aby tego dokonać, otwórzzestaw rekordów ADO z typem blokowania adLockBatchOptimistic i używając kursora client.Następnie użyjpolecenia Save obiektu Recordset.Musisz określić nazwę pliku i format, w jakim ma być zapisany.ADO oddaje doTwojej dyspozycji następujące możliwości:u adPersistADTG;u adPersistXML.Jeśli wybierzesz format adPersistADTG lub adPersistXML, będziesz mógł pózniej z łatwością otworzyć ten plik wADO.Wydruk 7.9 przedstawia, jak otworzyć zestaw rekordów, zmienić rekord, zapisać zmiany do pliku, otworzyć goponownie i włączyć z powrotem do bazy.Wydruk 7.9.Zapisywanie zestawu rekordów na dysku, jego ponowne otwarcie i ponowne włączenie do bazy danychSub RstPersistence Save()' Przykład pobrania wyniku, odłączenia od bazy danych' zapisu na dysk a następnie synchronizacji z bazą' Synchronizacja zachodzi w RstPersistence_Open' Z książki "Access 2000 Księga eksperta" (Helion)' Autorzy: Forte, Howe, RalstonDim strSOL As StringDim strMsg As StringDim strNewValue As StringDim conn As ADODB.ConnectionDim rst As ADODB.RecordsetOn Error GoTo Proc ErrstrSQL = "Select * From Customers Where CustomerID='ALFKI'"Set conn = New ADODB.ConnectionWith conn.Provider = "Microsoft.Jet.OLEDB.4.O".ConnectionString = "data source=c:\sample.mdb".OpenEnd WithSet rst = New ADODB.Recordset' Należy użyć kursora po stronie klientarst.CursorLocation = adUseClientrst.Open strSQL, conn, adOpenStatic, adLockBatchOptimistic116Część II f& Dostęp do danych' Pozwól użytkownikowi zmienić dane, pokazując dane bieżącestrMsg = "Proszę wprowadzić nową nazwę firmy dla: " & _rst!CompanyName & vbNewLine & _"ID klienta=" & rst!CustomerID' Pobierz nową nazwęstrNewValue = InputBox(strMsg)' Zmień rekord na komputerze klienta i zapisz na dysku' Nie zmienia to danych w bazie danychrst.Update "CompanyName", strNewValue' Zmiana została wprowadzona do recordsetu klientaOn Error Resume Next' Usuń istniejący plikKill "c:\hcado.dat"On Error GoTo Proc_Err' Zapisz recordset na dyskurst.Save "c:\hcado.dat", adPersistADTGrst.CloseSet rst = NothingMsgBox "Zapisane do: c:\hcado.dat", vbInformationProc_Exit:Exit SubProc_Err:MsgBox Err.DescriptionResume Proc_ExitEnd SubSub RstPersiStence Open()' Przykład pobrania wyniku, odłączenia od bazy danych' zapisu na dysk a następnie synchronizacji z bazą' Zapis był wykonany w RstPersistence_Save' Tu wykonywana jest synchronizacja' Z książki "Access 2000 Księga eksperta" (Helion)' Autorzy: Forte, Howe, RalstonDim conn As ADODB.ConnectionDim rst As ADODB.RecordsetDim strSQL As StringDim strMsg As StringOn Error GoTo Proc ErrstrSQL = "Select * From Customers Where CustomerID='ALFKI'"' Pobranie nowego recordset z dyskuSet rst = New ADODB.Recordsetrst.Open "c:\hcado.dat", , adOpenStatic, adLockBatchOptimistic, _adCmdFile' Pokazanie danych z bazy danych i z dyskustrMsg = "Wartości w bazie danych: " & _rst!CompanyName.OriginalValuestrMsg = strMsg & vbNewLine & _"Wartości na dysku: " & rst!CompanyName' Wyświetl wartościMsgBox strMsg, vbInformation, "Wartości z bazy i z dysku"' Teraz uaktualnimy bazę danych wartościami z dysku' Trzeba ponownie podłączyć się do bazySet conn = New ADODB.ConnectionWith conn.Provider = "Microsoft.Jet.OLEDB.4.O".ConnectionString = "data source=c:\sample.mdb" [ Pobierz całość w formacie PDF ]

Podstrony