VB ile �zet Tablo Office Web bile�eni nas�l kullan�l�r

Makale numaras�: 235542 - Bu makalenin ge�erli oldu�u �r�nleri g�r�n.

Otomatik terc�me makalelerin ne oldu�unu a��klayan yaz�y� okumak i�in buraya t�klay�n

�ngilizce ve T�rk�e'yi yan yana g�r�nt�leme

Buraya t�klayarak �ngilizce ve T�rk�e'yi yan yana g�r�nt�leyebilirsiniz.

Hepsini a� | Hepsini kapa

�zet

Bu makalede, Office �zet Tablo nas?l kullan?laca??n? g�sterir Web Bile�eni'nin �zerinde bir Visual Basic formu bilgilerini g�r�nt�lemek.

�ste | Geri Bildirim Ver

Office Web bile�enleri, Office veri g�zatmay� etkinle�tir denetimleri k�mesidir. Web bile�enleri denetimleri oldu�undan, bunlar� bir Visual Basic formunda yerle�tirin ve verileri g�r�nt�lemek i�in bu bile�enleri otomatikle�tirme.

Otomasyon �rne�i olu�turma

Visual Basic'� ba�lat�n ve yeni bir Standart EXE projesi olu�turun. Varsay�lan olarak, Form1 olu�turulur.
Project|References, ActiveX Data Objects 2.1 kitapl�� ' na bir ba�vuru ekleyin ve Tamam ' � t�klat�n.
<a0>Bile�en Ekle</a0> ileti�im kutusunu g�r�nt�lemek i�in CTRL + T tu�lar�na bas�n. Microsoft Office Web Bile�enleri'ni ekleyin ve Tamam ' � t�klat�n.

Not: Office XP, Office 2000 hem de Office XP Web i�eren bile�enleri. Office 2003 Web Bile�enleri'ni kullanmak i�in <a0></a0>, Microsoft Office Web ekleme bile�enleri 11.0 kitapl��. Office 2000 Web Bile�enleri'ni kullanmak i�in <a0></a0>, Microsoft Office Web bile�enleri 9.0 kitapl�� ekleyin. Office XP Web kullanmak i�in Microsoft Office Web Components 10.0 kitapl�� bile�enleri, ekleme.
Bir �zet Tablo, forma ekleyin.

Form1 kod penceresinde, a�a��daki kodu ekleyin:

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

Sonra Microsoft Access'i kullanarak bir �rnek veritaban� olu�turun. Access'i ba�lat�n ve bir Bo� Access veritaban� ' n� se�in. Dosyay� c:\pivottest.mdb kaydedin. Tasar�m g�r�n�m�nde tablo olu�tur ' u �ift t�klat�n. A�a��daki verileri girin:

Bu tabloyu kapaBu tabloyu a�
Field Name Veri T�r�
Madde Text
Kategori Text
DE�ER Say�
Pencereyi kapat�n ve de�i�iklikleri Table1 kaydedin. Bir anahtar olu�turmak i�in Hay�r ' � se�in. Table1 �ift t�klat�n ve a�a��daki verileri girin:

Bu tabloyu kapaBu tabloyu a�
Madde Kategori DE�ER
Nails Donan�m 5
Shirt Giysisinin 23
�eki� Donan�m 16
Sandwich Yiyecek 5
Pants Giysisinin 31
Drinks Yiyecek 2
Dosyay� kaydetmek i�in Access kapat�n.
Proje �al��t�rmak i�in F5 tu�una bas�n. �al��an sonra �zet Tablo doldurman�z. H�cre ve h�crenin de�erini, veri i�eren bir h�creyi �ift s�tun ve sat�r adlar�n� g�sterir.

�ste | Geri Bildirim Ver

Referanslar

Office Otomasyonu hakk�nda daha fazla bilgi i�in Microsoft Office geli�tirme Destek sitesini ziyaret edin:

http://support.microsoft.com/ofd

(http://support.microsoft.com/ofd)

�ste | Geri Bildirim Ver

�zellikler

Makale numaras�: 235542 - Son G�zden Ge�irme: 23 Ekim 2006 Pazartesi - G�zden ge�irme: 3.5

Bu makaledeki bilginin uyguland�� durum:

Microsoft Office PivotTable Component 9.0
Microsoft Office XP Web Components
Microsoft Office 2003 Web Components

kbmt kbautomation kbhowto kbweb KB235542 KbMttr

Otomatik Terc�me

�NEML�: Bu makale, bir ki�i taraf�ndan �evrilmek yerine, Microsoft makine-�evirisi yaz�l�m� ile �evrilmi�tir. Microsoft size hem ki�iler taraf�ndan �evrilmi�, hem de makine-�evrisi ile �evrilmi� makaleler sunar. B�ylelikle, bilgi bankam�zdaki t�m makalelere, kendi dilinizde ula�m�� olursunuz. Bununla birlikte, makine taraf�ndan �evrilmi� makaleler m�kemmel de�ildir. Bir yabanc�n�n sizin dilinizde konu�urken yapabilece�i hatalar gibi, makale; kelime da�arc��, s�z dizim kurallar� veya dil bilgisi a��s�ndan yanl��lar i�erebilir. Microsoft, i�eri�in yanl�� evrimi veya onun m��teri taraf�ndan kullan�m�ndan do�an; kusur, hata veya zarardan sorumlu de�ildir. Microsoft ayr�ca makine �evirisi yaz�l�m�n� s�k�a g�ncellemektedir.

Makalenin �ngilizcesi a�a��daki gibidir:235542

(http://support.microsoft.com/kb/235542/en-us/ )

�ste | Geri Bildirim Ver