[ Pobierz całość w formacie PDF ]
.Umożliwia ona rozszerzenie reguł biznesowych nawięcej niż jedną tabelę.Możesz użyć SQL do odnalezienia informacji w kilku tabelach, a następnie użyć tych informacji dowymuszenia określonych warunków na nowo wstawianych rekordach.Załóżmy, że mamy tabele Customers (Klienci) iCredit Limit (Limit kredytu).Możesz nakazać silnikowi Jet wymuszenie reguły biznesowej, która spowoduje, że nowo wsta-wiany rekord może być zaakceptowany jedynie w sytuacji, gdy przyjmuje wartości niższe od przyjętego limitukredytowego.Ograniczenie to zdefiniowałbyś poprzez SQL w następujący sposób:CHECK ()Poniższy kod tworzy tabelę z ograniczeniem w polu CREDITLIMIT:CREATE TABLE Customers (CustId IDENTITY (100,10),CFrstNm VARCHAR(10), CLstNm VARCHAR(15), CustomerLimit DOUBLE,CHECK (CustomerLimit ""'Teraz dodaj do rst nowy rekord.AddNew Array("FileName", "Extention"), _Array(strPath, Right(strPath, 3))strPath = DirLoop.MoveFirst'Wydrukuj plikiDo Until.EOFDebug.Print !FileNamerst.MoveNextLoopEnd WithProc_Exit:Exit SubProc_Err:MsgBox Err.DescriptionResume Proc_ExitEnd SubKształtowanie danychUmożliwienie przeglądania danych w zhierarchizowany sposób w obiektach ADO jest bardzo proste.Możesz użyć nowejzdolności ADO, o nazwie Data Shaping (ang.kształtowanie danych), aby przeglądać nadrzędne i podrzędne rekordy wjednym zestawie.Możesz użyć dostawcy MSDataShape OLE DB do tworzenia hierarchii opartych na relacjach i hierarchiigrupowania.Tworzenie tego typu hierarchicznych zestawów rekordów może ułatwić dość pracochłonną obróbkęhierarchicznych danych.Przykładowo, na rysunku 7.6 znajduje się grupowa hierarchia wszystkich zamówień klientów z bazyNorthwind, przeglądana w nowej siatce o nazwie Microsoft Hierarchical FlexGrid (wersja OLAP popularnej FlexGrid).Formant ten dołączony jest do pakietu Office 2000 w wersji Developer Edition oraz do Visual Basic 6 (nasze wartości i listinginapisane zostały w VB 6 i używają bazy danych Accessa jako zródła danych).Zwróć uwagę na znak plus znajdujący się przykażdym z rekordów.Umożliwia on rozszerzanie każdego z rekordów i przeglądanie jego szczegółów, co przedstawia rysunek7.7.Zanim powstał dostawca MSDataShape OLE DB, utworzenie takiej siatki wymagało napisania wielu linijek kodu. 112Część II f& Dostęp do danychRysunek 7.6.Zestaw rekordówuzyskany poprzezdostawcęMSDataShape OLEDB w Visual BasicRysunek 7.7.Zestaw rekordówGrupujWedługw Visual BasicWydruk 7.5.Tworzenie rekordu z ukształtowanymi danymi i wypełnianie siatki MSHFlexGrid w VBSub CubeGroupHierarchy()'Wypełnij formant MSFLEXGRID'Z książki "Access 2000 Księga eksperta" (Helion)'Autorzy: Forte, Howe, Ralston'Kod do wypełnienia zestawu rekordówDim rst As ADODB.RecordsetDim strConnect As StringSet rst = New ADODB.Recordset'Ustaw właściwości połączenia'Każ ADO użyć dostarczyciela OLE DB dla Data Shaping'Następnie podłącz wbudowanego dostarczyciela OLE DB do'wybranego zródła danychstrConnect = "Provider=MSDataShape" & _";data provider=Microsoft.Jet.OLEDB.4.0" & _";data source=" & App.path & "\sample.mdb"'Wprowadz SQL Data Shaperst.Source = "shape {Select customerid, " & _"Region from Customers} rst1 " & _"COMPUTE COUNT (rst1.customerid) AS CustCount, rst1 By Region "rst.ActiveConnection = strConnectrst.Open , , adOpenStatic, adLockBatchOptimistic'Pokaż RSTSet frmADO.MSHFlexGrid1.Recordset = rstEnd SubJak widać w tym fragmencie kodu, musisz użyć specjalnej, powiązanej z Data Shaping składni SQL.Kompletną listęzastosowań tej składni znajdziesz w dostarczanym wraz z Visual Basic 6 i pakietem Office Developer 2000 dokumentacjiMSDN oraz na stronie WWW pod adresem http://www.microsoft.com/data.Możesz również użyć tego kodu do operacjiData Shaping i przeniesienia danych do programu Microsoft Excel.Kod na wydruku 7.6 przedstawia sposób, jak zapomocą poprzedniego przykładu przenieść dane do arkusza programu Excel.Wydruk 7.6.Użycie Data Shaping w programie Microsoft ExcelSub CUBRelation()'Użycie OLAP z Microsoft Excel'Z książki "Access 2000 Księga eksperta" (Helion)'Autorzy: Forte, Howe, RalstonDim rst As ADODB.RecordsetDim strConnect As StringSet rst = New ADODB [ Pobierz całość w formacie PDF ]