Обработка баз данных на Visual Basic®.NET

Прайс Кевин Т.

Листинг 12.7. Вспомогательный код Web-формы Form1.vb

Imports Novelty1.GetRowCount

Public Class Form1

 Inherits System.Windows.Forms.Form

#Region " Windows Form Designer generated code "

 Public Sub New MyBase.New

' Этот вызов метода организован конструктором Web-форм.

InitializeComponent

'

Инициализация после вызова метода InitializeComponent.

 End Sub

 ' Переопределение метода Dispose для очистки списка компонентов.

 Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)

If disposing Then

If Not (components Is Nothing) Then

components.Dispose

End If

End If

MyBase.Dispose(disposing)

 End Sub

 ' Код, созданный конструктором Web-форм.

 Private components As System.ComponentModel.IContainer

 ' ЗАМЕЧАНИЕ: Код, созданный конструктором компонентов.

 ' Его можно изменять только с помощью конструктора

 ' Не изменяйте его вручную в окне редактирования кода.

 Friend WithEvents Label1 As System.Windows.Forms.Label

 Friend WithEvents Button1 As System.Windows.Forms.Button

 <System.Diagnostics.DebuggerStepThrough> _

Private Sub InitializeComponent

Me.Label1 = New System.Windows.Forms.Label

Me.Button1 = New System.Windows.Forms.Button

Me.SuspendLayout

'

' Label1

'

Me.Label1.Location = New System.Drawing.Point(8, 16)

Me.Label1.Name = "Label1"

Me.Label1.Size = New System.Drawing.Size(248, 16)

Me.Label1.Tablndex = 0

Me.Label1.Text = "Label1"

'

' Button1

'

Me.Button1.Location = New System.Drawing.Point(264, 8)

Me.Button1.Next = "Button1"

Me.Button1.Size = New System.Drawing.Size(72, 24)

Me.Button1.TabIndex = 1

Me.Button1.Text = "Test It!"

'

' Form1

'

Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)

Me.ClientSize = New System.Drawing.Size(344, 54)

Me.Controls.AddRange(New System.Windows.Forms.Control _

{Me.Button1, Me.Label1})

Me.Name = "Form1"

Me.Text = "Form1"

Me.ResumeLayout(False)

 End Sub

#End Region

 Private Sub Button1_Click(ByVal sender As System.Object, _

ByVal

е As System.EventArgs) Handles Button1.Click

Dim GRC As New Novelty1.GetRowCount

Label1.Text = "There are " & GRC.GetRowCount.ToString _

& " rows in the table."

GRC.Dispose

 End Sub

End Class

В код, созданный конструктором форм, добавлены только объекты Label1 и Button1. Текст надписи будет задан только во время выполнения приложения. Теперь можно приступить к созданию Web-службы.

Доступ к объектам с помощью Web-служб

Итак, мы приступаем к работе на совершенно новом уровне, т.е. с использованием Web-служб. С самого начала Web-среда рассматривалась как способ передачи данных между двумя точками. Именно эта исходная концепция способствовала развитию и популяризации Web-среды. Однако она обладала несколькими ограничениями и только недавно консорциум World Wide Web Consortium (W3C) начал реализовывать стандарты технологии обмена данными. Реализация Web-служб на платформе .NET основана именно на этих стандартах и использует язык XML для идентификации и передачи данных.

Допустим, что компания Jones Novelties, Incorporated решила предоставить другим компаниям быстрый доступ к своим данным без необходимости создания пользовательского интерфейса. Для решения этой задачи прекрасно подходят Web-службы.

Прежде чем приступить к решению этой бизнес-ситуации, следует привести основные сведения о Web-службах. Читатели с опытом создания Web-служб могут пропустить остаток этого раздела без ущерба для понимания остального материала или освежить свои знания, бегло познакомившись с ним.

По определению Web-службы – это объекты, которые обмениваются данными с помощью протоколов Internet, например HTTP. Причем для определения данных или набора выполняемых сервером инструкций используется XML. Эти инструкции также могут возвращать данные. Например, для включения нового пользователя с фамилией Doe и именем John в базу данных можно послать некому воображаемому Web-серверу www.someserver.com следующий запрос:

http://www.someserver.com/sevices/dataserver.asmx?op=AddUserToDB&FName= John&LName=Doe