Cara menggunakan komponen Web PivotTable kantor dengan BB

Membuat Sampel Otomatisasi

1. Mulai Visual Basic dan membuat sebuah proyek EXE standar yang baru. Form1 dibuat secara default.
2. Di bawah Project|Referensi, menambahkan referensi ke Objek Microsoft ActiveX Data 2,1 perpustakaan kemudian klik Oke.
3. Tekan CTRL + T kunci untuk menampilkan Menambahkan komponen kotak dialog. Menambahkan komponen Web Microsoft Office, dan kemudian Klik Oke.
   
   CATATAN: Office XP mencakup Office 2000 dan Office XP Web Komponen. Untuk menggunakan komponen Web Office 2003, tambahkan Microsoft Office Web Komponen 11,0 perpustakaan. Untuk menggunakan Office 2000 Web komponen, tambahkan Microsoft Office Web komponen 9,0 perpustakaan. Menggunakan Office XP Web Komponen, menambah Microsoft Office Web komponen 10,0 perpustakaan.
4. Menambahkan sebuah PivotTable ke bentuk.
5. Dalam jendela kode untuk Form1, masukkan kode berikut:

   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. Selanjutnya, membuat database contoh menggunakan Microsoft Access. Mulai akses dan memilih Kosong akses Database. Simpan berkas sebagai c:\pivottest.MDB. Klik dua kali Membuat tabel dalam Design View. Masukkan data berikut:
   
   
   Perkecil tabel iniPerbesar tabel ini

   Nama field	Jenis Data
   Item	Teks
   Kategori	Teks
   Harga	Nomor

7. Menutup jendela dan menyimpan perubahan sebagai Table1. Pilih Tidak untuk menciptakan kunci. Klik dua kali Table1 dan masukkan berikut data:
   
   
   Perkecil tabel iniPerbesar tabel ini

   Item	Kategori	Harga
   Kuku	Perangkat keras	5
   Kemeja	Pakaian	23
   Palu	Perangkat keras	16
   Sandwich	Makanan	5
   Celana	Pakaian	31
   Minuman	Makanan	2

8. Menutup akses untuk menyimpan file.
9. Tekan F5 kunci untuk menjalankan proyek. Setelah berjalan, tabel pivot harus mengisi. Mengklik dua kali pada sel dengan data menunjukkan nilai sel dan sel baris dan kolom nama.

Kembali ke atas | Berikan Masukan