Làm th? nào ð? s? d?ng các thành ph?n Web PivotTable vãn ph?ng v?i VB

Xây d?ng m?u t? ð?ng hóa

1. B?t ð?u Visual Basic và t?o ra m?t d? án m?i EXE tiêu chu?n. Form1 ðý?c t?o ra theo m?c ð?nh.
2. Dý?i Project|Tham khaÒo, thêm m?t tham chi?u ð?n các Microsoft ActiveX Data Objects 2.1 Library và sau ðó nh?p vào Ok.
3. Báo chí các CTRL + T phím ð? hi?n th? các Thêm các thành ph?n h?p tho?i. Thêm các thành ph?n Web Microsoft Office, và sau ðó Nh?p vào Ok.
   
   LÝU ?: Office XP bao g?m c? Office 2000 và Office XP Web Các thành ph?n. Ð? s? d?ng Office 2003 c?u ph?n Web, thêm Microsoft Office Web Thý vi?n thành ph?n 11,0. Ð? s? d?ng các thành ph?n Office 2000 Web, thêm các Microsoft Office Web thành ph?n 9,0 thý vi?n. Ð? s? d?ng Office XP Web Các thành ph?n, thêm thý vi?n Microsoft Office Web thành ph?n 10,0.
4. Thêm m?t PivotTable m?u.
5. Trong c?a s? m? cho Form1, chèn ðo?n m? sau:

   Option Explicit
   
   Dim cnnConnection As Object
   
   Private Sub Form_Load()
   
      Dim strProvider As String
      Dim view As PivotView
      Dim fsets As PivotFieldSets
      Dim c As Object
      Dim newtotal As PivotTotal
      
      strProvider = "Microsoft.Jet.OLEDB.4.0"
      ' Create an ADO object
      Set cnnConnection = CreateObject("ADODB.Connection")
      ' Set the provider and open the connection to the database
      cnnConnection.Provider = strProvider
      cnnConnection.Open "C:\pivottest.mdb"
      ' Set the pivot table's connection string to the cnnConnection's connection string
      PivotTable1.ConnectionString = cnnConnection.ConnectionString
      ' SQL statement to get everything from table1
      PivotTable1.CommandText = "Select * from table1"
      
      ' Get variables from the pivot table
      Set view = PivotTable1.ActiveView
      Set fsets = PivotTable1.ActiveView.FieldSets
      Set c = PivotTable1.Constants
      
      ' Add Category to the Row axis and Item to the Column axis
      view.RowAxis.InsertFieldSet fsets("Category")
      view.ColumnAxis.InsertFieldSet fsets("Item")
      
      ' Add a new total - Sum of Price
      Set newtotal = view.AddTotal("Sum of Price", view.FieldSets("Price").Fields(0), c.plFunctionSum)
      view.DataAxis.InsertTotal newtotal
      view.DataAxis.InsertFieldSet view.FieldSets("Price")
         
      ' Set some visual properties
      PivotTable1.DisplayExpandIndicator = False
      PivotTable1.DisplayFieldList = False
      PivotTable1.AllowDetails = False
   End Sub
   
   Private Sub Form_Terminate()
     ' Remove reference to the ADO object
     Set cnnConnection = Nothing
   End Sub
   
   
   Private Sub PivotTable1_DblClick()
      Dim sel As Object
      Dim pivotagg As PivotAggregate
      Dim sTotal As String
      Dim sColName As String
      Dim sRowName As String
   
      Dim sMsg As String
      
      ' Get the selection object you double-clicked on
      Set sel = PivotTable1.Selection
      ' If it is a aggregate, you can find information about it
      If TypeName(sel) = "PivotAggregates" Then
         ' Select the first item
   
         Set pivotagg = sel.Item(0)
         ' Display the value
         MsgBox "The cell you double-clicked has a value of '" & pivotagg.Value & "'.", vbInformation, "Value of Cell"
         
         ' Get variables from the cell
         sTotal = pivotagg.Total.Caption
         sColName = pivotagg.Cell.ColumnMember.Caption
         sRowName = pivotagg.Cell.RowMember.Caption
         
         ' Display the row and column name
         sMsg = "The value is " & sTotal & " by " & sRowName & " by " & sColName
         MsgBox sMsg, vbInformation, "Value Info"
      End If
   End Sub
   					

6. Sau ðó, t?o ra m?t cõ s? d? li?u m?u b?ng cách s? d?ng Microsoft Access. B?t ð?u truy c?p và ch?n Tr?ng truy c?p cõ s? d? li?u. Lýu các t?p tin nhý c:\pivottest.mdb. B?m ðúp T?o b?ng theo quan ði?m thi?t k?. Nh?p d? li?u sau:
   
   
   Thu g?n b?ng nàyBung r?ng b?ng này

   Tên trý?ng	Ki?u d? li?u
   Kho?n m?c	Vãn b?n
   Th? lo?i	Vãn b?n
   Giá	S?

7. Ðóng c?a s? và lýu các thay ð?i nhý Table1. Ch?n Không ð? t?o m?t phím. B?m ðúp vào Table1 và nh?p dý?i ðây d? li?u:
   
   
   Thu g?n b?ng nàyBung r?ng b?ng này

   Kho?n m?c	Th? lo?i	Giá
   Móng tay	Ph?n c?ng	5
   Áo sõ mi	Qu?n áo	23
   Búa	Ph?n c?ng	16
   Bánh sandwich	Th?c ph?m	5
   Qu?n	Qu?n áo	31
   Ð? u?ng	Th?c ph?m	2

8. Ðóng truy c?p ð? lýu t?p tin.
9. Báo chí các F5 ch?a khóa ð? ch?y các d? án. Sau khi ch?y, pivot b?ng nên cý. B?m-ðúp vào ngày m?t t? bào v?i d? li?u cho th?y giá tr? c?a các t? bào và các t? bào c?t và d?ng tên.

Quay l?i ð?u trang | Cung câìp PhaÒn hôÌi