Bu adım adım makalede, ASP.NET alır verileri Microsoft Access, Northwind veritabanını örnek ve istemci hizmetinin bir yöntemini çağırdığında verileri XML olarak istemciye döndürür basit bir XML Web hizmeti oluşturmak için nasıl kullanılacağını açıklar. Istemci tarafında, verileri Office Özet Tablo ve grafik bileşenleri ile sunulur. Bu makalede, Visual Basic .NET veya Visual Basic 6. 0'ı kullanarak XML Web hizmeti için bir istemci nasıl de gösterilmektedir.
ASP.NET'i kullanarak basit bir XML Web hizmetini oluşturma
Visual Studio'nun başlatın. NET.
Dosya menüsünde Yeni'yi tıklatın ve Project ' ı tıklatın. Proje türleri altında) Visual Basic Projeleri tıklatın, sonra altında ASP.NET Web Service ' ı tıklatın.
Şablonları. Varsayılan olarak, Form1 oluşturulur.
Konum için http://localhost/MyDataService değiştirmek ve Tamam ' ı tıklatın. XML Web hizmeti projesi MyDataService adlı bir yerel bilgisayarda oluşturulur. Hangi System.Web.Services.WebService devralır, Sınıf Service1, varsayılan olarak Service1.asmx dosyası oluşturulur.
Solution Explorer'da (Çözüm Gezgini), Service1.asmx ' ı sağ tıklatın ve sonra da Görünüm kodu seçin. Bu, .asmx sayfası için arka planda kodlama dosyasını görüntüler.
Microsoft ActiveX veri nesneleri için bir başvuru kitaplığı. Bunu yapmak için şu adımları izleyin:
Proje) menüsünde Add Reference ' ı tıklatın.
COM</a0> sekmesini tıklatın, ActiveX Data Objects 2.7 kitaplığı ' nı seçin, Seç ' i tıklatın ve sonra Tamam ' ı tıklatın.
Sınıf Service1 için aşağıdaki yöntemi ekleyin:
<WebMethod()> Public Function GetResultsAsAdoXML() As String
Dim myAdoRs As ADODB.Recordset
Dim myAdoConnection As New ADODB.Connection()
Dim mypersiststream As New ADODB.Stream()
Dim myConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
"C:\Program Files\Microsoft Office\Office10\Samples\Northwind.mdb"
Dim mySelect As String = "SELECT * from [Category Sales for 1997]"
myAdoConnection.ConnectionString = myConnectionString
myAdoConnection.Open()
myAdoRs = myAdoConnection.Execute(mySelect)
myAdoRs.Save(mypersiststream, ADODB.PersistFormatEnum.adPersistXML)
Return mypersiststream.ReadText
End Function
varsayılan klasör için Office XP'YI yüklediğinizde Not (C:\Program Files\Microsoft Office), bağlantı dizesinde kodu, Office kurulumunuzun doğru yolunu gösterecek biçimde değiştirin. Ayrıca, Office 2003'ü yüklediyseniz yolu buna göre değiştirmeniz gerekebilir.
Yapı) menüsünde, XML Web hizmetinin Build Solution ' ı tıklatın.
Hata Ayıkla) menüsünde, Başlat ' ı tıklatın. Microsoft ınternet Explorer başlatılır ve Service1.asmx dosyaya gözatar.
GetResultsAsAdoXML köprüyü tıklatın.
ınvoke yöntemi çağrısı sınamak için Ek Yardım düğmesini tıklatın. Yeni BIR pencere 1997 için kategori Sales sorgu sonuçlarını, satır kümesi şeması XML biçiminde görüntüler. Satır kümesi XML belgesi dize öğe içine alınır.
Dur hata ayıklama, Visual Studio. NET'te Hata Ayıkla menüsünde tıklatın.
Bu bölüm, MyDataService XML Web hizmetini kullanmak için bir istemci nasıl oluşturulacağını açıklar. Istemciniz, Visual Basic 6. 0'da veya Visual Basic .NET ile oluşturabilirsiniz.
Gösteri amaçlı, XML Web ile aynı bilgisayarda sınama istemci nasıl adımları açıklamak hizmet. Ancak, sınama istemcilerinizin herhangi bir bilgisayarda, <a1>Gözat</a1> Web Hizmetleri Açıklama Dili (WSDL) için dosyalamadan olu?turabilirsiniz Web sunar hizmet.
Visual Basic .NET kullanın.
Yeni bir Visual Basic .NET Windows uygulaması) projesi oluşturun. Varsayılan olarak, Form1 oluşturulur.
Araç kutusunu görüntülemek için CTRL + ALT + X tuşlarına basın.
Araçlar menüsünden Toolbox ' ı tıklatın. Bileşenler listesinde aşağıdaki öğeleri seçin ve Tamam ' ı tıklatın:
Microsoft Office Grafiği 10.0
Microsoft Office veri kaynağı denetimi 10.0
Microsoft Office Özet Tablo 10.0
Simgeleri bileşenler için araç kutusunda görünür.
Bir grafik denetimi, bir Özet Tablo denetimi ve bir veri denetimi Form1 kaynak. Boyut ve form ve denetimleri gerektiği şekilde konumlandırın.
Form1'e bir Düğme denetimi ekleyin ve metin özelliği denetimin Veri doldurmak için ayarlayın.
Örnek XML Web hizmeti için bir başvuru ekleyin. Bunu yapmak için şu adımları izleyin:
Proje) menüsünde Add Web Reference ' ı tıklatın. <a0>Add Web Reference</a0> iletişim kutusu görüntülenir.
Adresi, metin kutusuna http:// localhost /MyDataService/Service1.asmx?wsdl yazın ve ENTER tuşuna basın. WSDL dosyası iletişim kutusunda görüntülenir.
Not: MyDataService yerel bilgisayarda bulunan, localhost adresin yerine Web adını ile MyDataService bulunduğu sunucu.
Iletişim kutusunda, Add Reference ' ı tıklatın.
Form1 Düğme denetimi çift tıklatın ve sonra Button1_Click işleyicisinin aşağıdaki kodla değiştirin:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Reference to the service.
Dim objClient As New localhost.Service1()
'Result obtained from the Service method.
Dim strresult As String
'The results will be stored on this disk file.
Dim datafile As String
datafile = System.IO.Directory.GetCurrentDirectory() + "\\mydata.xml"
'Call the Web service method GetResultsAsAdoXML, which returns the recordset as XML.
strresult = objClient.GetResultsAsAdoXML()
Dim oxmldoc As New System.Xml.XmlDocument()
'Load the XML recordset into the XML Document object.
oxmldoc.LoadXml (strresult)
'Save it to disk file.
oxmldoc.Save (datafile)
'Get data in the DataSource component.
If Len(AxDataSourceControl1.ConnectionString) = 0 Then
AxDataSourceControl1.ConnectionString = "provider=mspersist"
AxDataSourceControl1.RecordsetDefs.AddNew( _
datafile, AxDataSourceControl1.Constants.dscCommandFile, "ChartData")
End If
'Get data in Chart component.
Dim c
Dim cht As OWC10.ChChart
Dim ser As OWC10.ChSeries
Dim ax As OWC10.ChAxis
c = AxChartSpace1.Constants
' Clear the ChartSpace.
AxChartSpace1.Clear()
'DataSource to the Chart component.
AxChartSpace1.DataSource = AxDataSourceControl1.DefaultRecordset.DataSource
'Get the reference to Chart within the ChartSpace component.
cht = AxChartSpace1.Charts(0)
cht.Type = c.chChartTypeBarStacked
cht.HasLegend = True
cht.Legend.Position = c.chLegendPositionTop
cht.HasTitle = True
cht.Title.Caption = "Category Sales for 1997"
'Set the Chart data.
AxChartSpace1.SetData(OWC10.ChartDimensionsEnum.chDimCategories, 0, "CategoryName")
AxChartSpace1.SetData(OWC10.ChartDimensionsEnum.chDimValues, 0, "CategorySales")
ax = cht.Axes(c.chAxisPositionBottom)
'Set the series attributes.
ser = cht.SeriesCollection(0)
ser.Name = "Category Sales"
ser.Caption = ser.Name
ser.Marker.Size = 4
'Get Data in the PivotTable component.
Dim pview As OWC10.PivotView
AxPivotTable1.AutoFit = True
AxPivotTable1.ConnectionString = "provider=mspersist"
AxPivotTable1.CommandText = datafile
pview = AxPivotTable1.ActiveView
pview.AutoLayout()
pview.FilterAxis.Label.Visible = False
pview.RowAxis.Label.Visible = False
pview.ColumnAxis.Label.Visible = False
pview.TitleBar.Visible = False
End Sub
Not XML Web hizmeti için ayrı bir bilgisayarda ise bildirmek objClient değişkenini aşağıdaki gibi:
Dim objClient As New <servername>.Service1()
burada servername XML Web hizmeti bulunduğu sunucunun adıdır.
Not Office 2003 kullanıyorsanız, başvuruları uygun biçimde değiştirmeniz gerekebilir.
Aşağıdaki kodu Form1.vb en üstüne ekleyin:
Imports OWC10 = Microsoft.Office.Interop.OWC
Hata Ayıkla menüsünde oluşturmak ve bu istemci programı çalıştırmak için Başlat ' ı tıklatın. Form1 görüntülenir.
Dolgu verileri grafik ve Özet Tablo denetimlerde verileri sunmak için Ek Yardım düğmesini tıklatın.
Visual Basic 6. 0'ı kullanın
Basit Nesne kullanarak, XML Web Hizmetleri istemcileriyle iletişim erişim Protokolü (SOAP) iletileri. SOAP ile uyumlu bir istemci uygulaması ise, bu XML Web hizmeti tarafından sunulan yöntemleri çağırabilir. Istemci bilgisayarları Visual Studio .NET ile XML Web hizmeti yöntemlerini çağırmak için yüklü olması. Istemci, XML Web hizmeti yöntem çağrılarının SOAP istekleri olarak çerçeve SOAP yöntem çağrıları sonuçlarını alma olanağı olmalıdır yanıtlar. Bunu yapabilmeniz için SOAP araç seti sağlar.
SOAP araç seti hakkında daha fazla bilgi için karşıdan yükleme yönergeleri dahil, aşağıdaki Microsoft Developer Network (MSDN) Web sitesine bakın:
MyDataService XML Web hizmeti yöntemleri kullanan bir Visual Basic 6.0 sınama istemci oluşturmak için aşağıdaki adımları izleyin:
Not Bu sınama istemci, SOAP Toolkit 2.0 Service Pack 2 bilgisayarda yüklü olmasını gerektirir.
Visual Basic 6. 0'ı başlatın ve yeni bir standart exe DOSYASı oluşturma proje. Varsayılan olarak, Form1 oluşturulur.
Proje menüsünde Başvurular ' ı tıklatın. Aşağıdaki başvuru projeye ekleyin:
Microsoft SOAP tür kitaplığı
Microsoft XML, v3.0
Proje menüsünde bileşenleri ' ni tıklatın. Microsoft Office XP Web Components ' ı seçin ve Tamam ' ı tıklatın.
Aşağıdaki Office Web bileşenleri Form1'e ekleyin:
Microsoft Office Grafiği 10.0
Microsoft Office veri kaynağı denetimi 10.0
Microsoft Office Özet Tablo 10.0
Form1'e KomutDüğmesi denetimi ekleyin ve Veri doldurmak için düğmenin <a1>başlık</a1> özelliğini ayarlayın.
KomutDüğmesi denetimi çift tıklatın ve Command1_Click işleyicisinin aşağıdaki kodla değiştirin:
Private Sub Command1_Click()
Dim osoapClient As MSSOAPLib.SoapClient
'Initialize the SOAP client object.
Set osoapClient = CreateObject("MSSOAP.SoapClient")
osoapClient.mssoapinit "http://localhost/MyDataService/Service1.asmx?wsdl", "Service1", "Service1Soap"
'DOM object to load the results.
Dim oXMLDoc As New MSXML2.DOMDocument
Dim strdirname As String
'File to store XML recordset.
strdirname = FileSystem.CurDir$ + "\mydata.xml"
Dim strxmlrecordset As String
'Call the WebService method.
strxmlrecordset = osoapClient.GetResultsAsAdoXML()
'Load the XML in the DOM document.
oXMLDoc.loadXML strxmlrecordset
'Save it to the disk file.
oXMLDoc.Save (strdirname)
'Get the data into the DataSourceControl1 component.
If Len(DataSourceControl1.ConnectionString) = 0 Then
DataSourceControl1.ConnectionString = "provider=mspersist"
' Add a RecordsetDef with name ChartData to the DataSourceControl1
DataSourceControl1.RecordsetDefs.AddNew strdirname, DataSourceControl1.Constants.dscCommandFile, "ChartData"
End If
'Get the Data into the Chart component.
Dim c
Dim cht As ChChart
Dim chart1 As ChChart
Dim ser As ChSeries
Dim ax As ChAxis
Set c = ChartSpace1.Constants
ChartSpace1.Clear
'DataSource to the Chart component.
ChartSpace1.DataSource = DataSourceControl1.DefaultRecordset.DataSource
' Draw the chart.
Set cht = ChartSpace1.Charts(0)
cht.Type = c.chChartTypeBarStacked
cht.HasLegend = True
cht.Legend.Position = c.chLegendPositionTop
cht.HasTitle = True
cht.Title.Caption = "Category Sales for 1997"
'Set the chart data.
ChartSpace1.SetData chDimCategories, 0, "CategoryName"
ChartSpace1.SetData chDimValues, 0, "CategorySales"
' Set the tick label spacing depending on the number of points plotted.
Set ax = cht.Axes(c.chAxisPositionBottom)
'Set the series attributes.
Set ser = cht.SeriesCollection(0)
ser.Name = "Category Sales"
ser.Caption = ser.Name
ser.Marker.Size = 4
'Get the data into the PivotTable.
PivotTable1.ConnectionString = "provider=mspersist"
PivotTable1.CommandText = strdirname
PivotTable1.AutoFit = True
Set pview = PivotTable1.ActiveView
pview.AutoLayout
pview.FilterAxis.Label.Visible = False
pview.RowAxis.Label.Visible = False
pview.ColumnAxis.Label.Visible = False
pview.TitleBar.Visible = False
End Sub
Not XML Web hizmeti ayrı bir bilgisayarda bulunan, değiştirme, XML Web hizmetinin adresini localhost ile XML Web hizmeti bulunduğu sunucunun adı.
Oluşturmak ve bu programı çalıştırmak için F5 tuşuna basın. Form1 görüntülenir.
Dolgu veri grafik ve Özet Tablo bileşenleri içindeki verileri sunmak için Ek Yardım düğmesini tıklatın.
ASP.NET kullanılarak oluşturulan XML Web Hizmetleri hakkında daha fazla bilgi için Microsoft Knowledge Base'deki makaleyi görüntülemek üzere aşağıdaki makale numarasını tıklatın:
301273
(http://support.microsoft.com/kb/301273/
)
Visual Basic .NET kullanarak basit bir Web hizmeti yazma
ASP.NET kullanılarak oluşturulan XML Web Hizmetleri hakkında daha fazla bilgi için Visual Studio .NET Yardımı'nda "Web Hizmetleri ile Web programlama" başlığı altında veya Microsoft .NET Framework Geliştirici Kılavuzu'nda "ASP.NET Web Hizmetleri ve ASP.NET Web hizmeti istemcileri" konusuna bakın.
Web hizmetini temel ve ASP.NET kullanılarak oluşturulan XML Web Hizmetleri hakkında ek bilgi için aşağıdaki Microsoft Developer Network (MSDN) Web sitesini ziyaret edin:
Office XP Web Components hakkında daha fazla bilgi için Microsoft Knowledge Base'deki makaleleri görüntülemek üzere aşağıdaki makale numaralarını tıklatın:
286212
(http://support.microsoft.com/kb/286212/
)
Office Grafiği bileşeni bir XML DataSource nasıl kullanılır
235542
(http://support.microsoft.com/kb/235542/
)
VB ile Özet Tablo Office Web bileşeni nasıl kullanılır
Ö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:315695
(http://support.microsoft.com/kb/315695/en-us/
)
Bu makaleyi kullanmak için ne kadar kişisel çaba harcadınız?
Çok az
Az
Orta
Fazla
Çok fazla
Bu bilgiyi geliştirmemiz için nedenleri ve bu konuda neler yapabileceğimizi paylaşın
Teşekkürler! Görüşleriniz, destek içeriğimizi geliştirmemize yardımcı olmak için kullanılmaktadır. Diğer yardım seçenekleri için, lütfen Yardım ve Destek Giriş Sayfasını ziyaret edin.